INPUT: nhập n

OUTPUT: in S

◭ THUÂT TOÁN:

B1: nhập n

B2:

B2.1: lặp từ 1`->`n

B2.2: S`<-`s + 1/i

B3: in s và kết thúc chương trình

◭ CHƯƠNG TRÌNH:

uses crt;

var n,i: integer;

s: real;

begin

clrscr;

s:=0;

readln(n);

for i:=1 to n do s:=s+1/i;

write('S=',s:10:2);

readln

end.

- Xác định bài toán :

+ Input : Số nguyên n

+ Output : Tổng 1 + 1/2 + ... + 1/n

- Mô tả thuật toán :

+ Bước 1 : Nhập số n

+ Bước 2 : i ← 1, S ← 0

+ Bước 3 : Nếu i > n thì đưa ra giá trị S kết thúc

+ Bước 4 : 

+ Bước 4.1 : S ← S + 1 / i

+ Bước 4.2 : i ← i + 1 quay lại bước 3

- Viết chương trình :

uses crt;

var i, n : integer; S : real;

begin

clrscr;

write('Nhap so n : '); readln(n);

S := 0; i := 1;

while i <= n do

begin S := S + 1 / i;

i := i + 1; end;

write('S = ', S : 2 : 2);

readln

end.