我在pascal中的程序遇到一些问题。
我需要输入一个数字，然后我需要程序编写该数字的倒数的加法。它应该是这样的：假设数字是5（n = 5），那么我需要编写程序1/1 + 1/2 + 1/3 + 1/4 + 1/5并加上这个结果，因此我需要使用for,to,do它来获得解决方案，所以如果有人可以帮助我，我真的很感激。我尝试过这样的事情：
program reciprocaladdition;
var x : integer:
begin
writeln('enter number');
readln(x);
for x:=1 to x do writeln(1/x:0:2)
readln
end.
但这并没有给我我所需要的东西，所以如果有人可以帮助我，我会心存感激。
您有一些错别字：
后面的冒号integer应该是分号；和
writeln之后需要一个分号，因为它后面还有另一个语句（readln）。
除此之外，它可以在Lazarus + FPC中编译并正常运行。在下面的更正版本中，我添加了代码以计算和显示中间值的总和。
program reciprocals;
var
x : integer;
Sum : Double; // a floating-point datatype
begin
writeln('enter number');
readln(x);
Sum := 0;
for x:=1 to x do begin
writeln(1/x:0:2);
Sum := Sum + 1/x;
end;
writeln('Sum: ', Sum:0:2);
readln
end.
这产生输出
enter number
3
1.00
0.50
0.33
Sum: 1.83
这是否符合您的要求？如果没有，请说明原因。
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句