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 j:=1 to 2*n do Write(a[i,j]:8:2);
Writeln;
end;
BEGIN
Nhap;
For i:=1 to n do
For j:=1 to n do
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];
ClrScr;
Xuat(c); {mang ban dau}
Writeln;
Xuat(a);
Xuat(b);
Readln;
END.
(Lời giải của bạn Lê Thanh Tùng - Vĩnh Yên - Vĩnh Phúc)
Bạn đang xem bài 64/ - 100 DE TIN HSG CO DAP AN