Sử dụng câu lệnh lặp for-do, while-.do để viết phương trình tính tổng: T = $\frac{1}{1}$ + $\frac{1}{2}$ + $\frac{1}{3}$ + – + $\frac{1}{99}

0 bình luận về “Sử dụng câu lệnh lặp for-do, while-.do để viết phương trình tính tổng: T = $\frac{1}{1}$ + $\frac{1}{2}$ + $\frac{1}{3}$ + – + $\frac{1}{99}”

1. Cách `1`

   Program Hotboy ;

   uses crt;

   Var i : integer;

   S: real;

   Begin

   Clrscr;

   For i:=1 to 100 do

   S:=S+1/i;

   Write(‘Tong la’,S);

   Readln

   End.

   Cách `2`

   Program Hotboy;

   Uses crt;

   Var i : integer;

   S: real;

   Begin

   Clrscr;

   S:=0;

   while i<=100 do

   Begin

   S:=S+1/i; inc(i);

   End;

   Write(‘Tong la’, S);

   Readln

   End.

   Bình luận

2. While….do :

   uses crt;

   var i : integer;

   t : real;

   begin clrscr;

   t:=0;

   while i<=100 do begin

   t:=t+1/i;

   i:=i+1;

   end;

   write(‘Nhap t=’, t);

   readln

   end.

   For …to..do :

   uses crt;

   var i : integer; t : real;

   begin clrscr;

   t:=0;

   for i:=1 to 100 do t:=t+1/i;

   wwrite(‘Tong t=’, t);

   readln

   end.

   Bình luận