Question

Bài toán tính tổng : S=1+1/2+1/3+...+1/100

a.Nêu thuật toán và viết  chương trình sử dụng câu lệnh For...to...do

b.Nêu thuật toán và viết chương trình sử dụng câu lệnh While...do

Answer 1

a: uses crt;

var i,n:integer;

s:real;

begin

clrscr;

s:=0;

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

writeln(s:4:2);

readln;

end.

b: 

uses crt;

var i,n:integer;

s:real;

begin

clrscr;

s:=0;

i:=0;

while i<=100 do 

begin

inc(i);

s:=s+1/i;

end;

writeln(s:4:2);

readln;

end.