- Ví dụ :

* * * N = 4

Tổng là : 2.083

Thuật toán :

B4 : Nếu i <= N thì T ← T + 1 / i;

* * * N = 8

Tổng là : 2.718

Viết chương trình:

Uses CRT;

Var i, N : integer; T : real;

Begin

Clrscr;

Write('Nhap so N = '); readln(N);

T := 0; i := 1;

While i <= N do begin

T := T + 1 / i; i := i + 1; end;

Write('T = ', T : 2 : 3);

Readln;

End.

VD:

N=4

Tổng là:2.08;

Thuật toán:

B1: Nhập số N:

B2: T←0;

B3: Cho i←1;

B4 : Nếu i<=N thì T←T+(1/i);

N=8

Tổng là:2.72;

Viết chương trình:        (có 2 cách nhé)

Cách 1:

uses crt;

var i,n: integer;

t: real;

begin

clrscr;

write ('nhap n: ');   readln (n);

t:=0; 

i:=1;

while i<=n do

begin

t:=t+(1/i);

i:=i+1;

end;

write('T:', t:1:2);

readln;

end.

Cách 2:

uses crt;

var i,n: integer;

t: real;

begin

clrscr;

write ('nhap n: ');   readln (n);

t:=0; 

for i:=1 to n do t:=t+(1/i);

write('T:', t:1:2);

readln;

end.