//
you're reading...
00 - Chủ đề chung, Bài tập huấn luyện, Chủ đề đệ quy

Đệ quy: Bài tập huấn luyện: 8 quân hậu

[Latex online] [Pascal online] []


Đề bài


Lập trình đặt 8 quân hậu lên bàn cờ sao cho không quân nào ăn được quân nào ( Bài toán tương đương : 8 quân hậu khống chế hết các ô của bàn cờ )


Hướng dẫn


[Tải chương trình]

Uses crt;
Var      i,dem    : Integer;
A    : Array[1..8] of Boolean;
B    : Array[2..16] of Boolean;
C    : Array[-7..7] of Boolean;
x    : Array[1..8] of integer;
Procedure Print;  { Hien moi nghiem }
Var k:integer;
Begin
For k:=1 to 8 do Write(x[k]:4);
Writeln;
Inc(dem);
If dem mod 24 =0 then Readln;
End;
Procedure Try(i:integer);
{Dat hau vào dòng i }
Var j:integer;
Begin
For j:=1 to 8 do {Chon cot }
If a[j] and b[i+j] and c[i-j] then
Begin
x[i]:=j;
a[j]:=False;
b[i+j]:=False;
c[i-j]:=False;
If i a[j]:=True;
b[i+j]:=true;
c[i-j]:=true;
End;
End;
BEGIN
dem:=0;
For i:=1 to 8 do   a[i]:=True;
For i:=2 to 16 do b[i]:=True;
For i:=-7 to 7 do  c[i]:=True;
Try(1);
Write(‘ Tong so nghiem la : ‘, dem );
Readln;
END.

About pascalteacher

Trang thông tin Toán học và Tin học

Thảo luận

Chưa có phản hồi.

Gửi phản hồi

Mời bạn điền thông tin vào ô dưới đây hoặc kích vào một biểu tượng để đăng nhập:

WordPress.com Logo

Bạn đang bình luận bằng tài khoản WordPress.com Log Out / Thay đổi )

Twitter picture

Bạn đang bình luận bằng tài khoản Twitter Log Out / Thay đổi )

Facebook photo

Bạn đang bình luận bằng tài khoản Facebook Log Out / Thay đổi )

Google+ photo

Bạn đang bình luận bằng tài khoản Google+ Log Out / Thay đổi )

Connecting to %s

Các tác giả

Tháng Mười Một 2016
M T W T F S S
« Oct   Dec »
 123456
78910111213
14151617181920
21222324252627
282930  

NCT Computer

Flickr Photos

Fast-flying Falcon

sunset and fishing nets

Force of Life - Pushing Boundaries I

More Photos

Thống kê

  • 81,544 lượt xem

%d bloggers like this: