Xếp 8 quân xe trên bàn cờ vua 8x8

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down

Xếp 8 quân xe trên bàn cờ vua 8x8

Bài gửi  nguyenbacdlld on 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.

nguyenbacdlld
Webmaster
Webmaster

Tổng số bài gửi : 40
Join date : 09/10/2011
Age : 19
Đến từ : USIT

Xem lý lịch thành viên http://trnguyenbac.tk/

Về Đầu Trang Go down

ố zèeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee

Bài gửi  nhatha527 on Fri Apr 12, 2013 6:14 pm

là xaoooooooooooooooooooooooooooooo

hú hú
=]]

*spam* =]]]]]]]]]]]]]]]]]]] Very Happy

nhatha527
Webmaster
Webmaster

Tổng số bài gửi : 60
Join date : 08/10/2011
Age : 20
Đến từ : Lâu đài Kẹo dẻo ^_^

Xem lý lịch thành viên https://www.facebook.com/chong.chamchap

Về Đầu Trang Go down

Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang


 
Permissions in this forum:
Bạn không có quyền trả lời bài viết