杭州交通信息网青岛到云南物流:pascal问题！``````
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/30 11:46:47
请高手帮我解决3个问题！````
1：program sd;
var i,r,c:integer;
begin
i:20;
for r:1 to 5 do
begin
write(' ':i);
for c:1 to 2*r-1 do;
write(c:1);
writeln;
end;
end.
求出以上的结果。
2:从键盘输入20个整数，分别统计其中的正数，负数，零的个数。
这个怎么编！``
3：已知数列a0,a1,a2,`````````,a20
a0=0
a1=1
a2=1
a3=a0+2a1+a2
a4=a1+2a2+a3
这个怎么编！``
1：program sd;
var i,r,c:integer;
begin
i:20;
for r:1 to 5 do
begin
write(' ':i);
for c:1 to 2*r-1 do;
write(c:1);
writeln;
end;
end.
求出以上的结果。
2:从键盘输入20个整数，分别统计其中的正数，负数，零的个数。
这个怎么编！``
3：已知数列a0,a1,a2,`````````,a20
a0=0
a1=1
a2=1
a3=a0+2a1+a2
a4=a1+2a2+a3
这个怎么编！``
第一个程序有点问题，应该是
program sd;
var i,r,c:integer;
begin
i:=20;
for r:=1 to 5 do
begin
write(' ':i);
for c:=1 to 2*r-1 do;
write(c:1);
writeln();
end;
end.
输出：
（20空格）1
（20空格）3
（20空格）5
（20空格）7
（20空格）9
第二
var
a,i:integer;
t:array[1..3] of integer;
begin
for i:=1 to 10 do begin
readln(a);
if a>0 then t[1]:=t[1]+1 else if a=0 then t[2]:=t[2]+1 else t[3]:=t[3]+1;
end;
writeln('>0:',t[1]);
writeln('=0:',t[2]);
writeln('<0:',t[3]);
end.
第三题是这个意思吗？
var
a:array[0..20] of longint;
i:integer;
begin
a[0]:=0;
a[1]:=1;
a[2]:=1;
for i:=0 to 2 do writeln(a[i]);
for i:=3 to 20 do begin
a[i]:=a[i-3]+a[i-2]+a[i-1];
writeln(a[i]);
end;
end.