pascal编程数字图形

来源：学生作业帮编辑：搜搜考试网作业帮分类：综合作业时间：2024/06/04 18:43:06

pascal编程数字图形
打印下列图形：
1
121
12321
1234321
123454321
1234321
12321
121
1

其实我没编译,但愿能过
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.

pascal编程数字图形 pascal打印数字图形数字游戏 pascal编程题 pascal编程打印如下星号图形编程输入与以下图形（pascal repeat语句）编程（用 PASCAL) pascal编程超急 pascal编程：统计数字 pascal编程：阶乘 Turbo Pascal编程题目 Turbo Pascal编程问题 pascal语言编程题

pascal编程 数字图形

pascal编程数字图形