[Help] Sắp xếp dãy số theo ngược chiều kim đồng hồ.

[chautuanpro91]

Lập chương trình nhập các số tự nhiên liên tiếp 1,2,3,4,...,N*N vào bảng A[N*N] theo chiều xoáy ốc ngược chiều kim đồng hồ.

[mapsieunhan93]

Điền giống hệt thuận chiều kim đồng hồ. Trong box đã có vài topic như vậy rồi bạn ạ!

[duylp8686]

Đây là code từ lâu của mình, theo chiều kim đồng hồ, bạn tự sửa lại nhé

var fi,fo:text;
a:array[1..100,1..100]of longint;
n,m,i,j,d,c,mc,nd,so:longint;
begin
assign(fi,'tronoc.inp');reset(fi);
assign(fo,'tronoc.out');rewrite(fo);
read(fi,n,m);
i:=1;j:=0;so:=0;c:=1;d:=2;mc:=m;nd:=n;
repeat
j:=j+1;
repeat
so:=so+1;
a[i,j]:=so;
j:=j+1;
until j>mc;
j:=j-1;
if so>=m*n then break;
i:=i+1;
repeat
so:=so+1;
a[i,j]:=so;
i:=i+1;
until i>nd;
i:=i-1;
if so>=m*n then break;
repeat
j:=j-1;
so:=so+1;
a[i,j]:=so;
until j<=c;
if so>=m*n then break;
c:=c+1;
repeat
i:=i-1;
so:=so+1;
a[i,j]:=so;
until i<=d;
d:=d+1;
mc:=mc-1;
nd:=nd-1;
until so>=m*n;
for i:=1 to n do
begin
for j:=1 to m do write(fo,a[i,j],' ');
writeln(fo);
end;
close(fi);close(fo);
end.