Question

求Fortran大神说一下n×n维逆时针方阵怎么做

Answer 1

以下是pascal程序，供参考。不管什么语言，思路是基本相同的。
var
a,b,t,x:longint; {a行号，b为列号，t为顺序号，x为矩阵阶数}
s:array[0..100,0..100]of longint;
begin
x:=10;
for a:=1 to x+1 do begin
s[0,a]:=1; s[x+1,a]:=1; s[a,0]:=1; s[a,x+1]:=1;
{设定方阵的外边界值为1}
end;
t:=1; a:=1; b:=1;
while t<=x*x do begin
s[a,b]:=t;
if (s[a+1,b]<>0)and(s[a-1,b]=0)and(s[a,b+1]<>0)then a:=a-1
{当在右侧行进时，行号-1，即向上行}
else
if (s[a,b+1]=0)and(s[a+1,b]<>0)and(s[a,b-1]<>0)then b:=b+1
{当在下侧行进时，列号＋1，即向右行}
else
if (s[a+1,b]=0)and(s[a-1,b]<>0)and(s[a,b-1]<>0)then a:=a+1
{当行左侧行进时，行号+1，即向下行}
else
b:=b-1; {当在上部行进时，列号-1，即向左行}
t:=t+1;
end;
for a:=1 to x do begin
for b:=1 to x do write(s[a,b]:5,' ');
writeln;
end;
end.

Answer 2

这么古老的语言，你天文，物理还是地球科学的？

追问

水利水电工程的

追答

土木也搞fortan

追问

你会吗，帮帮忙

对，都是我们院的，

追答

这是矩阵？

追问

嗯

追答

噢

好长时间木用啦

坐等高手回答看看

追问

哦(⊙o⊙)哦

追答

你19？