1034:打印数字图形 分数: 1

题目描述

先要求你从键盘输入一个整数n（1<=n<=9），打印出指定的数字图形。

输入格式

输入包含多组测试数据。每组输入一个整数n（1<=n<=9）。

输出

对于每组输入，输出指定的数字图形。
注意：每行最后一个数字后没有任何字符。

样例输入

5

样例输出

1
121
12321
1234321
123454321
1234321
12321
121
1

方法一：

 program p1034;
var n,i,j,k:integer;
begin
 while not eof do
 begin
 readln(n);
 if n=0 then
  begin
  i:=1;
  end
 else
  begin
  for i:=1 to n do
  begin
    for j:=1 to n-i do
    write(' ');
    for j:=1 to i do
    begin
    write(j);
    end;
    for j:=i-1 downto 1 do
    begin
    write(j);
    end;
    writeln;
  end;
   for i:=n-1 downto 1 do
   begin
    for j:=1 to n-i do
    write(' ');
    for k:=1 to i do
    begin
    write(k);
    end;
    for k:=i-1 downto 1 do
    begin
    write(k);
    end;
    writeln;
   end;
  end;
  end;
end.

方法二：program p1043;
var i,j,k,n:longint;
begin
 while not eof do
  begin
  readln(n);
  for i:=1 to n do
   begin
    for j:=1 to n-i 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:=1 to n-i do
     write(' ');
     for j:=1 to i do
      write(j);
     for j:=i-1 downto 1 do
      write(j);
     writeln;
    end;
   end;
end.