For...to...do
var s: real;
i, n: byte;
Begin
Write('n = '); readln(n);
S:=0;
For i:=1 to n do s:=s+1/i;
Write(s);
Readln
End.
While....do
var s: real;
i, n: byte;
Begin
Write('n = '); readln(n);
S:=0;
While i<=n do
Begin
s:=s+1/i; inc(i);
end;
Write(s);
Readln
End.
N. Xét: cấu trúc for..to..do có nhiều ưu thế hơn vì giá trị đầu và giá trị cuối đã xác định, cấu trúc while..do chậm hơn vì phải kiểm tra điều kiện nhiều lần