2001 - ĐỔI MA TRẬN SỐ(DÀNH CHO HỌC SINH THCS VÀ PTTH)PROGRAM DO...

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)