作业帮回形矩阵 pascal
来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/05/28 02:40:24
回形矩阵 pascal
[问题描述] 从键盘输入正整数n,i,j,( l
[问题描述] 从键盘输入正整数n,i,j,( l
program hxjz; var a:array[0..200,0..200] of integer; j,fx,y,i,k,n,x:longint; begin read(n); x:=1;y:=n; k:=1; fx:=1; for i:=1 to n*n do begin a[x,y]:=k; k:=(k+1) mod 10; if fx=1 then begin if (xn)and(yn) then begin inc(x);inc(y);end else if x=n then begin dec(y);fx:=2;end else if y=n then begin inc(x);fx:=2;end; end else if fx=2 then begin if (x1)and(y1) then begin dec(x);dec(y);end else if y=1 then begin inc(x);fx:=1;end else if x=1 then begin dec(y);fx:=1;end; end; end; readln(x,y); writeln(a[x,y]); end. 模拟,呵呵