Câu 5 trang 51 SGK Tin học 11

Bình chọn:
3.8 trên 17 phiếu

Lập trình tính:

Lập trình tính:

Trả lời:

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.

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.

Các bài liên quan: - Bài tập và thực hành 2

>>Học trực tuyến Lớp 11 trên Tuyensinh247.com, mọi lúc, mọi nơi tất cả các môn. Các thầy cô giỏi nổi tiếng, dạy hay dễ hiểu

Gửi văn hay nhận ngay phần thưởng