环境:Lazarus IDE v 2.0.10 + Win 10
程序
program Factorial;
var
a, result, i : integer;
begin
write('Please enter an integer from 0 to 16: ');
readln(a);
if (a < 0) or (a > 16) then
writeln('Error')
else
begin
result := 1;
for i := 1 to a do
result := i * result;
writeln(a, '! = ', result);
end;
readln; {Function like system("pause"); in C.}
end.
输出示例
分析
好久不写 Pascal,都不习惯了。
最后添加了 readln
,防止程序运行完直接关闭。
ALL RIGHTS RESERVED © 2021 Teddy van Jerry
欢迎转载,转载请注明出处。