在上一篇文章中，我们学习了for循环语句的基本用法，这节课我们主要是通过两个例子来巩固和提高一下。

例题1：计算1~100的加和

程序代码为：
program add(input,output);
var i:integer;
var s:real;
begin
s:=0;
for i:=1 to 100 do
begin
s:=s+i;
end;
writeln;
write('s=',s:8:1);
end.

 本程序的结果是：5050

例题2：求10!(10！就是10的阶乘)。

程序代码如下：

program cql(input,output);
var i:integer;s:real;
begin
s:=1;
i:=1;
for i:=1 to 10 do
begin
s:=s*i;
end;
write('s=',s:8:2);
end.

本程序的结果是：3628800

-------------------------
理论联系实际才能提高能力