-->
Câu 5 trang 51 SGK Tin học 11
Lập trình tính các biểu thức toán học
a)
b)
Với n lần lượt bằng 4,5,... cho đến khi
Đưa giá trị e(n) ra màn hình.
Giải câu a:
PROGRAM Tong_5a; USES crt; VAR y: real; n: byte; BEGIN clrscr; y : 0; for n :=1 to 50 do y: = y + n / ( n +1 ) ; writeln('Tong y la: y:0:18); readln ; END;
Nếu biến y khai báo theo kiểu extended thì chương trình tính tổng y sẽ là như sau:
($e+, N+}
program Tong_5a; USES crt; VAR y: real; n: byte; BEGIN clrscr; y:= 0 ; for n:= 1 to 50 do y:= y + n/(n+1); writeln('Tong y la: y:0:18); readln; END;
Giải câu b:
PROGRAM Tong_5b; USES crt; VAR n: longint; e, sh: real; BEGIN clrscr; sh:= 1/2, n: = 2 ; e:= 2 + sh; WHILE sh>= 2*1E-16 DO BEGIN inc (n) , sh: = sh*(1/n) , e:= e + sh; END; writeln('Gia tri e(n)la: ',e:10:6); readln; END;