17 lines
432 B
Text
17 lines
432 B
Text
begin
|
|
new i; new sum;
|
|
sum <- ` formal i; formal lo; formal hi; formal term;
|
|
begin
|
|
new temp; label loop;
|
|
temp <- 0;
|
|
i <- lo;
|
|
loop: begin
|
|
temp <- temp + term;
|
|
if [ i <- i + 1 ] <= hi then goto loop else 0
|
|
end;
|
|
temp
|
|
end
|
|
';
|
|
|
|
out sum( @i, 1, 100, `1/i' )
|
|
end $
|