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;
t:boolean;
Begin
clrscr;
write('Nhap so n: '); readln(n);
write('Nhap so m: '); readln(m);
for i:=1 to m do
for j:=1 to n do a[i,j]:=-1;
for i:=m downto 1 do
for j:=1 to n do
begin
b:=-1;
repeat
inc(b); t:=true;
for k:=1 to n do if a[i,k]=b then t:=false; {kt hang}
for k:=1 to m do if a[k,j]=b then t:=false; {kt cot}
until t;
a[i,j]:=b;
end;
assign(f,'KQ.TXT');
rewrite(f);
for i:=1 to m do
begin
for j:=1 to n do write(f,a[i,j]:5);
writeln(f);
end;
close(f);
write('Mo file KQ.TXT de xem ket qua!');
readln;
END.
(Lời giải của bạn Nguyễn Trường Đức Trí)
Bạn đang xem bài 65/ - 100 DE TIN HSG CO DAP AN