//
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.

Advertisements

About pascalteacher

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

Thảo luận

Không có bình luận

Trả lờ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 Đăng xuất / Thay đổi )

Twitter picture

Bạn đang bình luận bằng tài khoản Twitter Đăng xuất / Thay đổi )

Facebook photo

Bạn đang bình luận bằng tài khoản Facebook Đăng xuất / Thay đổi )

Google+ photo

Bạn đang bình luận bằng tài khoản Google+ Đăng xuất / Thay đổi )

Connecting to %s

Các tác giả

Categories

Tháng Mười Một 2016
H B T N S B C
« Th10   Th12 »
 123456
78910111213
14151617181920
21222324252627
282930  

NCT Computer

Flickr Photos

Thống kê

  • 206,489 lượt xem

pascalteacher.nct@gmail.com


Trang huấn luyện học sinh giỏi Tin học

%d bloggers like this: