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

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;