求 Free PASCAL 的编程

来源：百度知道 编辑：UC知道 时间：2024/06/09 17:51:33
我是1个初学者有几个问题想找个高手解决下，最好再给出每1步的详细解释。
1、求1至100的所有整数和。
2、有数列如下：0 1 1 2 3 5 8 13……，求第20个数的值。
3、求2至200的所有偶数的和。
4、输出1至10000间的完全平方数。完全平方数指开方的值是整数的数，如4、9等

分数给测试可以通过并且解释的最详细的那一位，如果好的话还可以加分

1:program ex1;
var
i,s:integer;
begin
s:=0;
for i:=1 to 100 do
s:=s+i;
writeln(s);
end.
2:program ex2;
var
a:array[1..20] of integer;
i:ineger;
begin
a[1]:=0;
a[2]:=1;
i:=3;
while i<>20 do
begin
a[i]:=a[i-2]+a[i-1];
i:=i+1;
end;
write(a[i]);
end.
3:program ex3;
var
i,s:integer;
begin
s:=0;
for i:=1 to 100 do
s:=s+i*2;
write(s);
end.
4:program ex4;
var
i:integer;
begin
for i:=10000 downto 1 do
if sqrt(i)-trunc(sqrt(i))=0 then
write(i);
end.
第一个就一个for循环，用Sum记住就行了
integer就行，不会很大
第二个是典型的斐波那契数列
用数组很快就能求出来

第三个和第一个一样
在加的时候乘以二就行了

第四个
如果没有小数位,
然后就从10000打印到1就行了。

1、program ex1;
var
s,i::integer;
begin
s:=0;
for i:=1 to 100