mirror of
https://gitee.com/mirrors_PX4/PX4-Autopilot.git
synced 2026-04-14 10:07:39 +08:00
57623d42eb
git-svn-id: http://svn.code.sf.net/p/nuttx/code/trunk@5153 42af7a65-404d-4744-a932-0658087f49c3
20 lines
233 B
ObjectPascal
20 lines
233 B
ObjectPascal
{ compute h(n) = 1 + 1/2 + 1/3 +...+ 1/n }
|
|
|
|
program egwhile(input, output);
|
|
|
|
var
|
|
n : integer;
|
|
h : real;
|
|
|
|
begin
|
|
read(n);
|
|
writeln(n);
|
|
h := 0;
|
|
while n>0 do
|
|
begin
|
|
h := h + 1/n;
|
|
n := n - 1;
|
|
end;
|
|
writeln(h);
|
|
end.
|