pascal语言矩阵:1 3 6 10 15 2 5 9 14 19 4 8 13 18 22 7 12 17 21 2

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/07/19 02:58:49

pascal语言矩阵:1 3 6 10 15 2 5 9 14 19 4 8 13 18 22 7 12 17 21 24 11 16 20 23 25
初学者,求用for循环做的,
1 3 6 10 15
2 5 9 14 19
4 8 13 18 22
7 12 17 21 24
11 16 20 23 25

program test;
const
n=5;
var
i,j,k:integer;
a:array [1..n] of array [1..n] of integer;
begin
k:=1;
i:=1;
j:=1;
a[i,j]:=k;
for k:=2 to (n*n) do
begin
if j=n
then begin
j:=i+1;
i:=n;
end
else if i=1
then begin
i:=j+1;
j:=1;
end
else begin
i:=i-1;
j:=j+1;
end
a[i.j]:=k;
end
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j],' ');
writeln;
end;
end.
抱歉,我很久没编程了,pascal还是初中学的,不知道能不能运行通过.大体应该是不错的,细节可能存在问题.
稍微解释一下,思路就是调整数组的下标,给数组中元素一次赋值1,2,3,.直到n*n停止.改变下标的原则是：
1.先判断有没有到列末尾（j=n）,
1.1 到了就j:=i+1;i:=n;
1.2 不到就判断有没有到第一行(i=1),
1.2.1 到了就i:=j+1; j:=1;
1.2.2 不到就i:=i-1;j:=j+1;
然后给a[i,j]赋值.

pascal语言矩阵:1 3 6 10 15 2 5 9 14 19 4 8 13 18 22 7 12 17 21 2 pascal输出数字 1 7 2 12 8 3 16 13 9 4 19 17 14 10 5 21 20 18 15 pascal蛇形矩阵n＊n的矩阵,n：1－20,样例输出：1　　　12　　11　10 2　　　13　　16　　9 3 pascal编程输出图形 7 6 5 8 1 4 9 2 3 10 11 c语言求矩阵已知矩阵a=[1,2,3;4,5,6;7,8,9;10,11,12]通过vc一维指针形式编程计算矩阵a的第用pascal语言的while循环求s=1+2+3+...+10 PASCAL将1,2,3,4,5,6,7,8,9组成一个三位数,必须是素数,回文数 c语言输出矩阵第一行2 4 8 16第二行3 5 9 17第三行4 6 10 18 C语言二维数组输出：矩形矩阵{7,0,0,0,4,8,0,0,2,5,9,0,1,3,6,10} 一个矩阵[1 2 3 4 5 6 7 8]怎样用matlab语言编程转化成0.12345678 1 2 3 5 8 13 21 34 55 89 求通项公式（pascal语句） C语言编写螺旋矩阵编写一个形如这样的矩阵宽度自制~1 2 3 4 516 17 18 19 615 24 25 2