Xếp 8 quân xe trên bàn cờ vua 8x8
2 posters
Trang 1 trong tổng số 1 trang
Xếp 8 quân xe trên bàn cờ vua 8x8
nbsmdl Thu Oct 25, 2012 8:10 pm
//code by NBSMDL
- Code:
program bai1;
const fi = 'bai1.inp';
fo = 'bai1.out';
var f: text;
n: integer;
x: array[1..1000] of integer;
a: array[1..1000, 1..1000] of boolean;
cot: array[1..1000] of boolean;
{============================================}
procedure input;
var f: text;
i: integer;
begin
assign(f, fi); reset(f);
read(f, n);
fillchar(a, sizeof(a), true);
for i:=1 to n do a[i, i]:=false;
fillchar(cot, sizeof(cot), true);
close(f);
end;
{============================================}
procedure output;
var i: integer;
begin
for i:=1 to n do write(f, '(', i, ' , ', x[i], ' ) ');
writeln(f);
end;
{============================================}
procedure xuli(i: integer);
var j: integer;
begin
for j:=1 to n do
if (a[i, j]) and (cot[j]) then
begin
x[i] := j;
cot[j] := false;
if i=n then output
else xuli(i+1);
cot[j] := true;
end;
end;
{============================================}
begin
input;
assign(f, fo); rewrite(f);
xuli(1);
close(f);
end.
nbsmdl- Webmaster
- Tổng số bài gửi : 41
Join date : 09/10/2011
Age : 27
Đến từ : USIT -
ố zèeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee
nhatha527 Fri Apr 12, 2013 6:14 pm
là xaoooooooooooooooooooooooooooooo
hú hú
=]]
*spam* =]]]]]]]]]]]]]]]]]]]
hú hú
=]]
*spam* =]]]]]]]]]]]]]]]]]]]
nhatha527- Webmaster
- Tổng số bài gửi : 61
Join date : 08/10/2011
Age : 27
Đến từ : Lâu đài Kẹo dẻo ^_^ -
Trang 1 trong tổng số 1 trang
Permissions in this forum:
Bạn không có quyền trả lời bài viết|
|
|