如何用pascal语言编写出可打出以下图形的程序
1232345434567654567898765678901098767890123210987...
1
232
34543
4567654
567898765
67890109876
7890123210987 展开
232
34543
4567654
567898765
67890109876
7890123210987 展开
3个回答
展开全部
完整程序如下:
program exp;
var i,j,n:integer;
begin
write('n=');readln(n);
for i:=1 to n do
begin
for j:=1 to n-i do write(' ');
for j:=1 to i do write((i-1+j)mod 10);
for j:=i-1 downto 1 do write((i-1+j)mod 10);
writeln
end;
end.
以上程序在TURBO PASCAL 7下调试通过,运行示例如下:
n=4
1
232
34543
4567654
n=5
1
232
34543
4567654
567898765
n=9
1
232
34543
4567654
567898765
67890109876
7890123210987
890123454321098
90123456765432109
program exp;
var i,j,n:integer;
begin
write('n=');readln(n);
for i:=1 to n do
begin
for j:=1 to n-i do write(' ');
for j:=1 to i do write((i-1+j)mod 10);
for j:=i-1 downto 1 do write((i-1+j)mod 10);
writeln
end;
end.
以上程序在TURBO PASCAL 7下调试通过,运行示例如下:
n=4
1
232
34543
4567654
n=5
1
232
34543
4567654
567898765
n=9
1
232
34543
4567654
567898765
67890109876
7890123210987
890123454321098
90123456765432109
展开全部
const n=7;
var
i,j:integer;
begin
for i:=1 to n do begin
for j:=i to i*2-1 do write(j);
for j:=i*2-2 downto i do write(j);
writeln;
end;
end.
var
i,j:integer;
begin
for i:=1 to n do begin
for j:=i to i*2-1 do write(j);
for j:=i*2-2 downto i do write(j);
writeln;
end;
end.
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
对不起,只说c#
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询