LÆp víi sè lÇn cha biÕt tríc, C©u lÖnh WHILE - do.[r]
Trang 2VÝ dô:
* ThuËt to¸n:
B1: NhËp sè a;
B2: S:=1/a; N:=0;
B3: Khi 1/(a+N) >=0,0001 th×
N := N + 1;
S := S + 1/(a+ N) råi quay l¹i B3;
B4: § a ra S råi kÕt thóc.
TÝnh tæng
S = + + + +
a a + 1 a + 2 a + 100
0,0001
1
a + N
Trang 3* Ch ¬ng tr×nh:
Uses crt;
Var S : real; a, N : integer;
BEGIN
Clrscr ; Write(‘nhap so a = ’); Readln(a);
S:=1/a; N:= 0;
While 1/(a+N) >= 0,0001 do
Begin
N := N + 1;
S := S + 1/(a + N);
End;
Writeln(‘Tong S = ’, S:8:2); Readln