Question

如何用pascal语言编写出可打出以下图形的程序

1
232
34543
4567654
567898765
67890109876
7890123210987

Answer 1

完整程序如下：

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

Answer 2

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.

Answer 3

对不起，只说c#