Tin học Mảng 2 chiều xoắn ốc pascal

[Nhật Hạ !]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

VIết chương trình nhập n, nhập vào các số từ 1 tới n^2. In ra mảng 2 chiều cấp nxn theo hình xoắn ốc.
VD: n=4

 

[Hải Ham Học]

var a:array[1..150,1..150]of word;
i,j,n,k:longint;
f:text;

procedure inmt; {in ma trận}
begin
for j:=1 to n do
begin
for i:=1 to n do write(f,a[i,j]:6);
writeln(f);
end;
end;

procedure chon; {chọn số vào ô}
begin
inc(k);
a[i,j]:=k;
end;

begin
readln(n);
assign(f,'123.txt');rewrite(f);
j:=1;
while k<n*n do
begin
for i:=j to n+1-j do chon; {sang phải}
for j:=n+2-i to i do chon; {xuống dưới}
for i:=j-1 downto n+1-j do chon; {sang trái}
for j:=n-i downto i+1 do chon; {lên trên}
end;
inmt;
close(f);
end.

 

[Nhật Hạ !]

var a:array[1..150,1..150]of word;
i,j,n,k:longint;
f:text;

procedure inmt; {in ma trận}
begin
for j:=1 to n do
begin
for i:=1 to n do write(f,a[i,j]:6);
writeln(f);
end;
end;

procedure chon; {chọn số vào ô}
begin
inc(k);
a[i,j]:=k;
end;

begin
readln(n);
assign(f,'123.txt');rewrite(f);
j:=1;
while k<n*n do
begin
for i:=j to n+1-j do chon; {sang phải}
for j:=n+2-i to i do chon; {xuống dưới}
for i:=j-1 downto n+1-j do chon; {sang trái}
for j:=n-i downto i+1 do chon; {lên trên}
end;
inmt;
close(f);
end.

Mình chạy ct thấy sai bạn ơi...!!!

 

[Hải Ham Học]

Mình chạy ct thấy sai bạn ơi...!!!
View attachment 139295
View attachment 139296

Bên mình chạy đúng mà ta :v ?

 

[Nhật Hạ !]

View attachment 139320
Bên mình chạy đúng mà ta :v ?

Sai rồi kìa bạn... chỗ 45 sao nhảy lên 50 vậy. 7x7 = 49 mà ở đây chạy tới 52 và bỏ một vài số đó