例题：使用while循环语句求10的阶乘（10！）
程序代码如下：
program cql(input,output);
var i:integer;s:real;
begin
s:=1;
i:=1;
while i<=10 do
begin
s:=s*i;
i:=i+1;
end;
writeln;
write('s=',s:8:1);
end.
最后的运行结果是：3628800.0
| 对联 ·故事 ·史海钩沉 ·人物档案 ·地方风俗 ·谚语大全 ·讽刺与幽默 | · 赚钱 · 法律 · 在线教研 · 会员中心 · 心理测试 · 魔鬼词典 · 顺口溜 |
|