Đổi ma trận số

Bài 64/2001 - Đổi ma trận số
(Dành cho học sinh THCS và PTTH)
Program DoiMT;
Uses Crt;
Const nmax=50;
 inp='INPUT.TXT'; {Du lieu duoc nhap vao file input.txt}
Type Mang=array [1..nmax,1..nmax] of real;
Var a,b,c: Mang;
 n,i,j: integer;
Procedure Nhap;
Var i,j: integer; 
 f: text;
Begin
 Assign(f,inp); Reset(f);
 Readln(f,n);
 For i:=1 to 2*n do
 begin
 For j:=1 to 2*n do Read(f,c[i,j]); 
 Readln(f);
 end;
 Close(f);
End;
Procedure Xuat(a: Mang);
Var i,j: integer;
Begin
 For i:=1 to 2*n do
 begin
 For j:=1 to 2*n do Write(a[i,j]:8:2); 
 Writeln;
 end;
End;
BEGIN
 Nhap;
 For i:=1 to n do
 For j:=1 to n do
 begin
 a[i+n,j+n]:=c[i,j];
 a[i,j+n]:=c[i+n,j];
 a[i,j]:=c[i+n,j+n];
 a[i+n,j]:=c[i,j+n];
 b[i,j]:=c[i+n,j];
 b[i,j+n]:=c[i,j];
 b[i+n,j+n]:=c[i,j+n];
 b[i+n,j]:=c[i+n,j+n];
 end;
 ClrScr;
 Xuat(c); {mang ban dau}
 Writeln;
 Xuat(a);
 Writeln;
 Xuat(b);
 Readln;
END.
(Lời giải của bạn Lê Thanh Tùng - Vĩnh Yên - Vĩnh Phúc)