UC知道Pascal编程实现计算：1+1/2+1/3+......+1/n的值（n由键盘输入）
来源：百度知道 编辑：UC知道 时间：2024/06/19 00:01:37
program v3;
var i,n,s:real;
begin
writeln('input n:');
readln(n);
s:=0;i:=1;
for i:=1 to n do
begin
s:=s+1/i;
i:=i+1;
writeln('n=',n:8:2);
end;
readln
end.
调试通不过，帮着查一下哪里错了...
var i,n,s:real;
begin
writeln('input n:');
readln(n);
s:=0;i:=1;
for i:=1 to n do
begin
s:=s+1/i;
i:=i+1;
writeln('n=',n:8:2);
end;
readln
end.
调试通不过，帮着查一下哪里错了...
var s:real;
i,n:Integer;
begin
writeln('input n:');
readln(n);
s:=0;i:=1;
for i:=1 to n do
begin
s:=s+1/i;
writeln('n=',n);
end;
Writeln('s=',s);
end.
首先 循环里面 要用integer 变量。
这个代码可以通过
你好，i是real，不能作循环变量，再说在for循环里，是不能给循环变量赋值的。
O(∩_∩)O~
循环变量i不能在循环中加减乘除。