【基础】数字三角形

题目描述

输入正数N，输出下列形状的三角形。例如：当N=5时输出： 11 7　12 4　8　13 2　5　 9　14 1　3　 6　10　15

输入

一个整数N（ N <= 10 )

输出

数字三角（每个数字的场宽为4）

样例输入

5

样例输出

11 7 12 4 8 13 2 5 9 14 1 3 6 10 15

提示

 

来源

98小学生计算机知识竞赛复赛上机试题

 

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

 

 

 

//雏形

var
    a:array[1..100,1..100] of longint;
    n,i,j,k:longint;
begin
    readln(n);
    k:=1;
    for i:=n downto 1 do
        for j:=1 to n+1-i do
        begin
            a[i,j]:=k; inc(k);
        end;
    for i:=1 to n do
    begin
        for j:=1 to n do write(a[i,j]:4);
        writeln;
    end;
end.

 

 

//进化

var
    a:array[1..100,1..100] of longint;
    n,i,j,k:longint;
begin
    readln(n);
    k:=1;
    for i:=n downto 1 do
        for j:=1 to n+1-i do
        begin
            a[i+j-1,j]:=k; inc(k);
        end;
    for i:=1 to n do
    begin
        for j:=1 to i do write(a[i,j]:4);
        writeln;
    end;
end.