关闭

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

195人阅读 评论(0) 收藏 举报
分类:

题目描述

先要求你从键盘输入一个整数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.

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:15070次
    • 积分:108
    • 等级:
    • 排名:千里之外
    • 原创:91篇
    • 转载:0篇
    • 译文:0篇
    • 评论:0条
    文章分类
    文章存档