Hãy mô tả thuật toán và viết chương trình Pascal tính tổng s=1+ $\frac{1}{2}$ + $\frac{1}{3}$ +…+ $\frac{1}{n}$ , với n là số tự nhiên nhập vào từ bàn phím
Hãy mô tả thuật toán và viết chương trình Pascal tính tổng s=1+ $\frac{1}{2}$ + $\frac{1}{3}$ +…+ $\frac{1}{n}$ , với n là số tự nhiên nhập vào từ bàn phím
*Thuật toán
In ra: n.
Out: tổng S.
MT:
Bước 1: S← 0; i ← 1.
Bước 2: Nếu i <= n thì S ← S + 1/i.
B3: Nếu i > n thì thông báo S và KTTT, ngược lại thì quay lại bước 2.
*Chương trình:
program tinhtong;
uses crt;
var n,i:integer;
S:real;
begin
clrscr;
write(‘ n = ‘); readln(n);
S:=0;
for i:=1 to n do S:=S + 1/i;
writeln(‘Tong la: ‘,S:10:2);
readln;
end.
In: n.
Out: tổng s.
MT:
B1: s ← 0; i ← 1.
B2: Nếu i ≤ n thì s ← s + 1/i.
B3: Nếu i > n thì thông báo s và KTTT, ngược lại quay lại bước 2.