我只是想知道为什么这个问题会发生在我身上。如果你能帮助我,我将不胜感激。
Program factorial;
uses crt;
var
f, i: Integer;
begin
f:=1;
for i:=1 to 5 do
f:= f * i;
write(f);
readkey;
end.
好的,效果很好,结果是 120。这是真的。
现在,问题来了。如果我要求用户输入数字的值,它将不起作用。
Program factorial;
uses crt;
var
i,r: Integer;
begin
write('Enter the number');
read(r);
for i:=1 to r do
r:= r * i;
write(r);
readkey;
end.
如果我写 5,输出将是 600。