UC知道Turbo Pascal有关数字三角形的程序
来源：百度知道 编辑：UC知道 时间：2024/05/17 01:30:38
求编程高手帮忙啊，期限5天啊=。有几种数字三角形用Turbo Pascal输出。随便哪一种，会就发上来，求求你们了。
1.1
2 3
4 5 6
7 8 9 10
11 12 13 14 15
2.1
2 6
3 7 10
4 8 11 13
5 9 12 14 15
3. 1 2 3 4 5
6 7 8 9
10 11 12
13 14
15
4. 1
2 3
4 5 6
7 8 9 10
11 121314
5. 1
6 2
10 7 3
13 11 8 4
15 14 12 9 5
每个数字三角形前的第一个数字是序号
1.1
2 3
4 5 6
7 8 9 10
11 12 13 14 15
2.1
2 6
3 7 10
4 8 11 13
5 9 12 14 15
3. 1 2 3 4 5
6 7 8 9
10 11 12
13 14
15
4. 1
2 3
4 5 6
7 8 9 10
11 121314
5. 1
6 2
10 7 3
13 11 8 4
15 14 12 9 5
每个数字三角形前的第一个数字是序号
NO.1
var i,j,k:longint;
begin
k:=1;
for i:=1 to 5 do begin
for i:=1 to i do begin
write(k,' ');
inc(k);
end;
writeln;
end;
end.
NO.2
var a:array[1..5,1..5]of longint;
i,j,k,h,l:longint;
begin
h:=1;l:=1;k:=3;
for i:=1 to 15 do begin
a[h,l]:=i;
if h=5 then begin
h:=h-k;
dec(k);
inc(l);
end else begin
if h<>5 then inc(h);
end;
end;
for i:=1 to 5 do begin
for j:=1 to 5 do begin
if a[i,j]<>0 then write(a[i,j],' ');
end;
writeln;
end;
end.
NO.3
var i,j,k:longint;
begin
k:=1;
for i:=5 downto 1 do begin
for i:=1 to i do begin
write(k,' ');
inc(k);
end;
writeln;
end;
end.
NO.4
v