Cau truc lap tiet 3

<span class='text_page_counter'>(1)</span>Bµi 10.

<span class='text_page_counter'>(2)</span> 3. LÆp víi sè lÇn cha biÕt tríc, C©u lÖnh WHILE - do WHILE <®iÒu kiÖn> DO <C©u lÖnh>; VÝ dô:. TÝnh tæng 1 1 1 1 S= + + + ... + ... a a+1 a+2 a + 100. cho tíi khi :. 1  0,0001 víi a d ¬ng a+N. * 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..

<span class='text_page_counter'>(3)</span> 3. LÆp víi sè lÇn cha biÕt tríc, C©u lÖnh WHILE - do. * Ch¬ng tr×nh: Program Tong_lap_kbt; 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 END..

<span class='text_page_counter'>(4)</span>