Viết chương trình tính tích 100 số tự nhiên đầu tiên P=1/2.1/3.1/4....100 Mô tả thuật toán

thuật toán:

B1: p←1; i←1;
B2: nếu i>100 thì xuất p; kết thúc;
B3: s←s*(1/(i+1);
B4: i←i+1; quay lại B2;

chương trình:

uses crt;
var i:longint;p:real;
begin
 clrscr;
  s:=1;
  for i:=1 to 100 do p:=p*(1/(i+1));
  write('p=',p);
 readln;
end.

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

- Bước 1 : i ← 2, P ← 1

- Bước 2 : nếu i > 100 thì đưa ra giá trị P rồi kết thúc

- Bước 3 : 

- Bước 3.1 : P ← P * 1 / i

- Bước 3.2 : i ← i + 1 quay lại bước 2 

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

uses crt;

var i : integer; p : real;

begin

clrscr;

p := 1; i := 2;

while i <= 100 do

begin

p := p * 1 / i;

i := i + 1;

end;

write('p = ', p);

readln

end.