有趣的数字图形II

题目描述

输入一个整数n（n≤12），打印出如下要求的方阵：左上到右下对角线上的数与行数相同，右上半个区域中每个元素等于左边的和下面的元素之和。每个元素场宽为5。左下半个区域为空。

输入

一个整数n（n≤12）

输出

n*n的方阵（场宽为5）。

样例输入

4

样例输出

1 3 8 20 2 5 12 3 7 4

提示

 

来源

 

[ 提交][ 状态][ 讨论版]

 

 

var
    a: array[ 1.. 100, 1.. 100]  of longint;
    n,i,j:longint;
begin
    readln(n);
     for i:= 1  to n  do a[i,i]:=i;
     for i:=n- 1  downto  1  do
         for j:=i+ 1  to n  do
            a[i,j]:=a[i+ 1,j]+a[i,j- 1];
     for i:= 1  to n  do
     begin
         for j:= 1  to n  do
             if a[i,j]> 0  then write(a[i,j]: 5)  else write( '': 5);
        writeln
     end;
end.

 

转载于:https://www.cnblogs.com/qilinart/articles/3061425.html