pascal编程 数字图形

问题描述:

pascal编程 数字图形
打印下列图形:
1
121
12321
1234321
123454321
1234321
12321
121
1
1个回答 分类:综合 2014-11-06

问题解答:

我来补答
其实我没编译,但愿能过
var i,j,n:longint;
begin
readln(n);
for i:=1 to n do
begin
for j:=i to n-i+1 do write(' ');
for j:=1 to i do write(j);
for j:=i-1 downto 1 do write(j);
writeln;
end;
for i:=n-1 downto 1 do
begin
for j:=i to n-i+1 do write(' ');
for j:=1 to i do write(j);
for j:=i-1 downto 1 do write(j);
writeln;
end;
end.
 
 
展开全文阅读
剩余:2000