Page 119 - C:\Users\Admin\Desktop\Sach mem upweb\

100 Problems & Solutions Trang 119

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)

Bài 65/2001 - Lưới ô vuông vô hạn
(Dành cho học sinh THCS và PTTH)
Program bai65;
uses crt;
var
a:array[1..100,1..100] of integer;
b,i,j,n,m,k:integer;
f:text;

Tin học & Nhà trường 100 Đề Toán - Tin học