打印下列图形!用pascal做!
来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:综合作业 时间:2024/07/05 14:54:02
打印下列图形!用pascal做!
6、 1 2 4 7 11 16 22
3 5 8 12 17 23
6 9 13 18 24
10 14 19 25
15 20 26
21 27
28用pascal打印出来!别只给我个打印!要做!
6、 1 2 4 7 11 16 22
3 5 8 12 17 23
6 9 13 18 24
10 14 19 25
15 20 26
21 27
28用pascal打印出来!别只给我个打印!要做!
![打印下列图形!用pascal做!](/uploads/image/z/958726-46-6.jpg?t=%E6%89%93%E5%8D%B0%E4%B8%8B%E5%88%97%E5%9B%BE%E5%BD%A2%21%E7%94%A8pascal%E5%81%9A%21)
var k,i,j,l:longint;
a:array[1..7,1..7]of longint;
begin
{二维数组初始化为
1
2 3
4 5 6
7 8 9 10
.}
k:=0;
for i:=1 to 7 do
for j:=1 to i do
begin
inc(k);
a[i,j]:=k;
end;
{按列主顺序输出就可以了}
for i:=1 to 7 do
begin
for l:=1 to i do write(' ');
for j:=i to 7 do write(a[j,i],' ');
writeln;
end;
end.
a:array[1..7,1..7]of longint;
begin
{二维数组初始化为
1
2 3
4 5 6
7 8 9 10
.}
k:=0;
for i:=1 to 7 do
for j:=1 to i do
begin
inc(k);
a[i,j]:=k;
end;
{按列主顺序输出就可以了}
for i:=1 to 7 do
begin
for l:=1 to i do write(' ');
for j:=i to 7 do write(a[j,i],' ');
writeln;
end;
end.