Lập trình tính tổng: A = 1+1/2+1/3+…+1/n. Với n là số tự nhiên được nhập từ bàn phím. Sử dụng vòng lặp while… do *

0 bình luận về “Lập trình tính tổng: A = 1+1/2+1/3+…+1/n. Với n là số tự nhiên được nhập từ bàn phím. Sử dụng vòng lặp while… do *”

1. program tinhtong;

   uses crt;

   var i, n : integer; S : real;

   begin

   clrscr;

   writeln(‘Nhap so thu n: ‘); readln(n);

   S:=0; i:=1;

   while i<=n do begin

   S:=S+1/i; i:=i+1;

   end;

   writeln(‘Tong la: ‘,S:2:3);

   readln

   end.

   Bình luận

2. Program FNG;
   Uses crt;
   Var s: extended;
       n,i: qword;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           s:=0; i:=1;
           While i<=n do
           Begin
                   s:=s+1/i;
                   inc(i);
           End;

           Write(s:0:2);
           Readln
   End.

   Bình luận