đề tài “ chơi cờ CARO

Sử dụng máy tính chúng ta có thể sử dụng các phần mềm mà các nhà sản xuất đã thiết kế nên để sử dụng vào các công việc hàng ngày nh: Winword, Excel, Access, Foxpro, Visual Basic, Pascal,

Lời mở đầuTrong vài thập kỷ trở lại đây sự phát triển không ngừng của khoa học kỹ thuật trên thế giới nói chung và cách mạng khoa học kỹ thuật ở Việt Nam nói riêng đang phát triển vợt bậc và không ngừng mà đỉnh điểm là lĩnh vực công nghệ thông tin, tiêu biểu và nổi bật nhất là sự ra đời của máy tính

Ngay từ khi mới ra đời máy tính đã có tác dụng hữu ích trợ giúp đắc lực cho thế giới con ngời trong mọi lĩnh vực của cuộc sống, ngày nay máy tính là một phơng tiện công dụng hữu ích và không thể thiếu đợc trong các lĩnh vực của

đời sống con ngời trong các cơ quan, xí nghiệp, trờng học, bệnh viện, các tổ chức, cá nhân, gia đình

Ngày nay máy tính không chỉ đợc đặt ở những nơi cố định trong các cơ quan, xí nghiệp mà còn đợc mang đi bất cứ một nơi nào trên thế giới chỉ với một chiếc máy tính cá nhân rất nhỏ, rất thuận tiện con ngời có thể làm đợc rất nhiều công việc nh:

Thiết kế, lập trình, truy cập Internet, để có thể cập nhật đợc rất nhiều những thông tin và những tin tức, những thay đổi từng ngày từng giờ trên thế giới

và cả ở Việt Nam, mà nhờ máy tính thực hiện đợc thông qua Internet cung cấp cho chúng ta, giúp cho con ngời ngày càng gần nhau hơn Sử dụng máy tính chúng ta tiết kiệm đợc thời gian, tiền bạc, công sức, rút ngắn đợc thời gian trong mọi công việc, mọi lĩnh vực của cuộc sống

Sử dụng máy tính chúng ta có thể sử dụng các phần mềm mà các nhà sản xuất đã thiết kế nên để sử dụng vào các công việc hàng ngày nh: Winword, Excel, Access, Foxpro, Visual Basic, Pascal, Corel Draw, Photoshop Tuy nhiên

để có đợc những phần mềm nh trên chúng ta cũng biết các nhà thiết kế đã phải

sử dụng các ngôn ngữ máy tính để thiết kế nên, dùng ngôn ngữ của máy tính thay cho ngôn ngữ của con ngời Trớc kia khi máy tính cha ra đời thì công việc này đợc thực hiện rất khó khăn, tốn nhiều thời gian và công sức vì công việc đòi hỏi phải có tính chính xác cao nhng từ khi máy tính ra đời thì đã giúp các nhà thiết kế, sử dụng các chơng trình các công cụ của máy tính để thiết kế nên những

chơng trình, những phần mềm quan trọng cần thiết thông qua các phần mềm tiện ích và một trong những ngôn ngữ lập trình quan trọng bậc cao đó là Pascal trong ngôn ngữ Pascal còn có một phần rất thú vị và cũng rất quan trọng đó là phần đồ hoạ (Graphic) Do đó sử dụng chế độ đồ hoạ chúng ta hoàn toàn có thể

vẽ bất cứ hình thù gì kể cả việc vẽ chữ và kích thớc, hình dáng khác nhau bằng cách vẽ từng điểm theo chơng trình đa ra những kết quả nhanh và chính xác Chính vì sự quan trọng của ngôn ngữ Pascal cũng nh phần đồ hoạ( Graphic) của các nhà lập trình trong công việc thiết kế Do đó với t cách là một sinh viên em đã đợc trau dồi những kiến thức của các thầy cô truyền lại và

em tìm hiểu đợc những thông tin, tham khảo đợc những tài liệu quan trọng của các tác giả viết về ngôn ngữ Pascal rất hay rất cô đọng, xúc tích phù hợp với mọi

đối tợng

Trong thời gian làm quen với ngôn ngữ Pascal em thấy mình có đủ kiến thức để đảm nhận đề tài “ Chơi Cờ CARO ” đây là một đề tài rất hay và hấp

dẫn, do đó em đã tham gia đảm nhận đề tài này và sau đây là quá trình thực hiện

đề tài của em

phần A tìm hiểu về cơ quan thực tập

I quá trình thành lập trung tâm hupets

Tên gọi: Trung tâm bồi dỡng nhân lực và dịch vụ kinh tế - kỹ thuật (Ban hành theo quyết định số 94- QĐ/ KHVN ngầy 12 tháng 7 năm

Điện thoại: 848 516328 - Fax: 848 516368.

Chi nhánh tại Đà Nẵng: 62 Nguyễn Thị Minh Khai.

Tổ chức bộ máy của Trung tâm :

Giám đốc Trung tâm: Là ngời phụ trách Trung tâm do Hội đồng quản trị

đề cử và đợc Thờng vụ Trung Ương Hội Khuyến học chấp thuận và hoàn toàn chịu trách nhiệm trớc pháp luật về mọi hoạt động của Trung tâm

Phó giám đốc: Là ngời giúp việc cho Giám đốc, do Hội đồng quản trị đề

cử và thay Giám đốc điều hành công việc khi Giám đốc đi vắng

- Nhân viên phòng kinh doanh

Bộ phận này đợc thành lập theo quyết định của Giám đốc, căn cứ nhu cầu công việc, theo nguyên tắc “tinh, gọn, có hiệu quả”

Các cơ sở bồi dỡng, dịch vụ kinh tế- kỹ thuật đợc thành lập căn cứ nhiệm

vụ của Trung tâm, hoạt động theo luật và các quy định của Trung Ương Hội Khuyến học Việt Nam Giám đốc Trung tâm chịu trách nhiệm trớc pháp luật về hoạt động của các cơ sở này

Sơ đồ tổ chức của cơ quan

Theo quyết định số 94- QĐ/ KHVN ngày 12/ 07/ 1999

và công văn số 99/ BTCCBCP.TCPCP ngày 30/ 12/ 1999.

Trung tâm Hupets có các chức năng và nhiệm vụ sau:

Hợp tác với các địa phơng, các cơ quan, các đoàn thể, các cơ sở sản xuất kinh doanh công- nông nghiệp, tổ chức bồi dỡng, đào tạo lại về các mặt văn hoá, ngoại ngữ, kỹ thuật, chuyên môn nghiệp vụ và quản lý cho cán bộ lãnh đạo, cán

bộ quản lý, ngời lao động trong nớc và chuẩn bị đi làm việc ở nớc ngoài

Tham gia nghiên cứu, điều tra, khảo sát, thiết kế các dự án kinh tế- kỹ thuật, văn hoá- giáo dục theo yêu cầu của các địa phơng, các tổ chức kinh tế, văn hoá ở thành thị và nông thôn

Làm dịch vụ kinh tế- kỹ thuật về các lĩnh vực: Du lịch, Tin học, Xây dựng dân dụng và công nghiệp, Nuôi trồng và chế biến nông- lâm- thuỷ sản, Bảo vệ môi trờng, Xuất khẩu lao động…

Để thực hiện nhiệm vụ của mình, trong khuôn khổ quy định của pháp luật, Trung tâm đợc quyền:

Bồi dỡng- đào tạo

Tổ chức các loại hình bồi dỡng, đào tạo lại nh sau:

Hội đồng quản trị

Ban giám đốc

doanhPhòng hành

chính

- Ngoại ngữ, Tin học, Kế toán, Chuyên môn nghiệp vụ quản lý cho cán bộ lãnh đạo quản lý.

- Đào tạo các ngành nghề cho lực lợng lao động trẻ, đáp ứng nhu cầu của các doanh nghiệp trong và ngoài nớc

Dịch vụ:

- Du lịch chuyên đề phục vụ cho đào tạo

- Tin học ứng dụng trong quản lý và cuộc sống

- Cung cấp, lắp đặt máy tính, các phần mềm quản lý khách sạn, th viện, nhân sự

- Tổ chức các đoàn học tập, tham quan khảo sát thị trờng nớc ngoài nh Trung Quốc, Thái Lan, Mỹ, Canada

T vấn

Các dự án về:

- Văn hoá giáo dục

- Kinh tế- Kỹ thuật

- Xây dựng dân dụng và công nghiệp

- Nuôi trồng và chế biến nông- lâm- thuỷ sản

Đặt quan hệ với các tổ chức phi chính phủ, các tổ chức kinh tế, khoa học, văn hoá, giáo dục trong và ngoài nớc theo quy định của pháp luật để nhận sự trợ giúp và liên kết hoạt động trên lĩnh vực đào tạo, trảo đổi kinh nghiệm, chuyển giao công nghệ, thực tập nghề nghiệp, trong khuôn khổ nhiệm vụ của Trung…tâm

Một số hoạt động hiện nay của Trung tâm :

- Trung tâm đang liên kết với Đại học Dân lập Duy Tân tổ chức đào tạo

ngành trung cấp Tin học và hoạch toán kế toán hệ chính quy và tại chức

- Đào tạo các lớp ngắn hạn về Tin học, ngoại ngữ theo giấy phép của Sở

- Trung tâm làm dịch vụ về thiết kế trang Web về khách sạn Việt Nam.

- Trung tâm đã phát hành cuốn “Những mốc son trong hành trình của danh nhân Hồ Chí Minh”

- Ngoài ra, Trung tâm còn tổ chức các chuyến tham quan khảo sát thực tế

về đào tạo ở một số nơi nh: Nga, Trung Quốc…

II đơn vị đợc bố trí thực tập:

Tên phòng ban: Phòng Hành Chính- Giáo Vụ.

Nhiệm vụ và chức năng chủ yếu của phòng:

- Triển khai công việc giảng dạy

- Quản lý học sinh trên mọi phơng diện

Văn

thư

Thủ quỹ

Kế toán

Kỹ thuật viên

Giá

o vụCơ sở vật

chất

+ 01 phòng máy và 04 giảng đờng tại Trung tâm Du lịch Thanh niên Việt Nam.

+ 01 phòng máy ở nhà A2 và 01 giảng đờng tại F2G17 tại Trờng

Đại học Giao Thông Vận Tải với số lợng là 40 máy phục vụ tốt nhu cầu học tập của sinh viên học tại giảng đờng của Trờng Đại học Giao Thông Vận Tải

- Các máy tính:

+ Số lợng máy: 60 máy

+ Phần mềm thờng sử dụng: Office 2000, Window 98, Foxpro for DOS, Pascal, C, Coreldraw, Photoshop, Visual Basic, Front Page 2000 và các phần mềm quản lý khác

- Các máy văn phòng:

+ Máy in HP LaserJet 1100

+ Máy Scanner Genius

+ Máy Photocopy Ricoh FT 2260

+ Máy Fax Pa nasonic

+ Hệ thống điện thoại: 3 chiếc loại Panasonic

phần B Giới thiệu về chơng trình Pascal

1 Xuất xứ

PASCAL là ngôn ngữ lập trình cấp cao do giáo s Niklaus Wirth( trờng đại học kỹ thuật Zurich, Thuỵ sĩ) sáng tác và công bố vào đầu những năm 1970, với tên PASCAL để kỷ niệm nhà toán học ngời Pháp Blaise PASCAL, thế kỷ 17 Lúc đầu, PASCAL đợc sáng tác ra với mục đích làm một ngôn ngữ máy tính để dạy học cho sinh viên ở các trờng đại học: PASCAL giúp cho sinh viên cũng nh những ngời mới học lập trình có đợc thói quen viết một chơng trình có cấu trúc sáng sủa, rõ ràng, dễ hiểu và dễ đọc cho cả mọi đối tợng khác

Trớc khi có PASCAL, các sinh viên đều đợc học ngôn ngữ lập trình FORTRAN, một ngôn ngữ lâu đời nhất là một ngôn ngữ không có cấu trúc, dễ gặp lỗi khi lập chơng trình Giáo s Wirth thấy rằng có thể tránh đợc rất nhiều lỗi khi lập trình với một ngôn ngữ khối và có sự kiểm tra kỹ lỡng sự tơng thích giữa các kiểu dữ liệu Việc xuất hiện ngôn ngữ PASCAL là một bớc tiến quan trọng trong kỹ thuật máy tính Với những u điểm nổi bật của nó, PAS CAL đang

đợc áp dụng rộng rãi trong nhiều chơng trình đào tạo tin học trong các trờng đại học và các trờng phổ thông trung học

2 Ưu điểm

Từ ngôn ngữ PAS CAL do giáo s Wirth sáng tạo ra, tổ chức tiêu chuẩn quốc tế và nhiều hãng đã phát triển và tạo ra chơng trình dịch ngôn ngữ PASCAL với nhiều phần thêm bớt khác nhau

Hiện nay Turbo PASCAL là sản phẩm của hãng Borland( Mỹ) là một trong những ngôn ngữ đợc dùng phổ biến nhất so với các loại PASCAL khác cũng nh các loại ngôn ngữ khác Các u điểm nổi bật của Turbo PASCAL là:

+ Tốc độ dịch nhanh

+ Chơng trình dịch đợc viết ngắn gọn

* PASCALlà một ngôn ngữ có định kiểu mạnh mẽ:

Trong ngôn ngữ PASCAL, điều đó có nghĩa là mọi biến và hằng của một kiểu dữ liệu không thể tự do đem trộn lẫn với các biến và hằng của một kiểu dữ liệu khác

Ví dụ: Cả hai vế trong phép gán phải là cùng một kiểu, ngoại trừ trờng hợp

vế trái là một biến số thực( Real) còn vế phải có thể là một số nguyên( Integer) Việc định kiểu một cách chặt chẽ nh vậy bắt buộc ngời lập trình luôn luôn phải

có các biểu thức tơng thích nhau về kiểu dữ liệu

* PASCAL là một ngôn ngữ có cấu trúc:

Một ngôn ngữ có cấu trúc khối là ngôn ngữ mà ta có thể tách các thông tin dữ liệu( biến, mảng ) và các lệnh cần dùng cho một nhiệm vụ xác định thành những khối riêng, tách ra khỏi phần còn lại của chơng trình để ngời lập trình có thể giải quyết dần từng phần một, từng khối một và thậm chí có thể cho nhiều ngời tham gia lập trình , mỗi ngời phụ trách một vài khối Thông thờng các khối ứng với các nhiệm vụ cụ thể và xác định, đợc thực hiện bằng các chơng trình con với các biến địa phơng là các biến tạm thời của chơng trình con đó Bằng cách này ta có thể viết các chơng trình con sao cho các sự kiện xảy ra trong đó không làm ảnh hởng tới các phần khác của chơng trình nằm ngoài chơng trình con

Có thể nói cấu trúc của PASCAL đợc thể hiện trên 3 mặt:

+ Cấu trúc về mặt dữ liệu: Từ các dữ liệu đã có( kiểu đơn giản hoặc dữ

liệu có cấu trúc) ta có thể xây dựng các cấu trúc dữ liệu khó hơn

+ Cấu trúc về mặt lệnh: Từ các lệnh đã có( lệnh đơn giản hoặc lệnh có

cấu trúc) ta có thể nhóm chúng lại với nhau và đặt giữa hai từ khoá Begin và End thành câu lệnh khó hơn, gọi là lệnh hợp thành hay lệnh ghép

+Cấu trúc về mặt chơng trình: Một chơng trình có thể chia thành nhiều

chơng trình con độc lập

3 Tìm hiểu về chơng trình đồ hoạ trên máy vi tính

3.1 Tìm hiểu về giao diện đồ hoạ.

Để thiết kế đợc một bàn cờ CARO trên màn hình đồ hoạ của Pascal thì ta phải hiểu đợc cấu hình của màn hình đồ hoạ

Việc hiển thị trên màn hình đồ hoạ (Graphic) đợc thực hiện nhờ có một vỉ mạch ghép nối điều khiển màn hình, nói chung có hai chế độ hiển thị lên màn hình là Text( văn bản) và đồ hoạ (Graphic) màn hình ở máy vi tính thờng chạy ở chế độ chia ra thành 80 cột chữ, 25 dòng chữ Ngoài ra còn có chế độ phân giải trung bình 40 cột*25 dòng hoặc phân giải cao với 132 cột, 43 dòng Chế độ đồ hoạ không phải là chuẩn của mọi ngôn ngữ kể cản ngôn ngữ Pascal và cùng không chuẩn cho mọi máy, vẽ đồ thị là một phần hết sức quan trọng trong kỹ thuật máy tính Để có thể vẽ đồ thị, tô màu hình ảnh trên máy vi tính, ta phải chuyển mạch điều khiển màn hình sang chế độ Graphic Trong chế độ này, màn hình đợc cấu tạo nh là ma trận điểm hay mạng lới các điểm, tơng ứng với một vùng ô nhớ riêng của màn hình, mỗi điểm sáng trên màn hình đợc gọi là một Pixel (phần tử ảnh) Ta có thể vẽ và tô màu sáng, tối khác nhau từng điểm riêng

lẻ của màn hình bằng cách thay đổi nội dung bộ nhớ của màn hình tơng ứng với từng điểm Nh vậy đối với ngời lập trình, thực chất lập trình đồ hoạ là lập trình

xử lý nạp lên vùng ô nhớ đồ hoạ các số liệu thích hợp

Độ phân giải của màn hình đợc đo bằng số điểm chiếu ngang X, số điểm chiếu dọc

Y của màn hình đồ hoạ, thí dụ ta nói độ phân giải màn hình VGA là 640*480 nghĩa là chiều ngang X có thể vẽ tới 640 điểm, chiều thẳng đứng Y có thể vẽ là 480 điểm

Trong chế độ đồ họa (Graphic) toạ độ đợc tính là tại toạ độ( 0,0) là điểm nằm tại góc phía trên bên trái, còn trong chế độ Text, gốc toạ độ đợc đánh số là( 1,1) Ưu điểm của màn hình đồ hoạ là ngay cả khi viết chữ lên màn hình, ta có thể thay đổi dáng chữ, cỡ chữ Trong màn hình văn bản, kiểu chữ và cỡ chữ bị cố định

3.2 Tìm hiểu về chế độ màu của chơng trình đồ hoạ.

- Hằng biểu diễn mầu

Mỗi vỉ đồ hoạ và mỗi chế độ đồ hoạ đều cho phép vẽ với một số mầu khác nhau Các mầu này đã đợc Turbo Pascal đặt tên cho dễ nhớ thay vì phải dùng các mã số

Các hằng mô tả mầu có giá trị nh bảng sau:

Bảng Hằng biểu diễn giá trị các mầu sử dụng trong PASCAL{ Sử dụng hằng dạng Số hay dạng Text là tuỳ ý }

Để vận hành đợc chơng trình đồ hoạ thì cần phải có các file tối thiểu ở đây

ta dùng phần Turbo Pascal 7.0, do đó ở trên đĩa làm việc ta cần phải Copy các file phục vụ cho đồ hoạ nh sau:

TP là th mục chính để chứa Turbo Pascal

ở đầu chơng trình bạn phải khai báo dùng đơn vị GRAPH.TPU nh sau:

USES CRT, GRAPH ;

Các file *.BGI là các file chứa các điều khiển tơng ứng với các màn hình khác nhau, nh:

CGA.BGIEGAVGA.BGIHERC.BGI Tất nhiên nếu ta cố định dùng một loại màn hình thì ta chỉ cần Copy một file BGI tơng ứng Thí dụ nếu ta dùng màn hình EGA,VGA thì phải có file EGAVGA.BGI

Các file *.CHR là các file chứa điều khiển vẽ các kiểu chữ khác nhau trong đồ hoạ Nếu ta dùng các phông chữ này thì cần nạp các tệp *.CHR vào đĩa

Đó là các file:

GOTH.CHR (Chữ Gothic)

LITT.CHR (Chữ Small Font)

SANS.CHR (Chữ Sans Serif)

TRIP.CHR (Chữ cao gấp 3)

3.4 Tổng thể mọi chơng trình đồ hoạ cần có 3 đoạn:

Đoạn1: Khởi tạo.

Nhiệm vụ: Xác định vỉ mạch và chế độ đồ hoạ Sau đó tự thiết lập các thủ tục cần thiết nếu có mạch đồ hoạ Thờng dùng với thủ tục Initgraph Trong giai đoạn này cũng cần quản lý thông báo lỗi nếu có khi khởi tạo

Quá trình khởi tạo bao gồm 3 công việc:

+ Phát hiện vỉ mạch đồ hoạ và chế độ đồ hoạ+ Khởi tạo để vào chế độ đồ hoạ: Nhập các trình điều khiển, đặt giá trị cho các biến, cấp phát bộ nhớ

+ Thông báo các lỗi nếu xảy ra lỗiTrong chơng trình cần phải khai báo hai biến nguyên tơng ứng với vỉ đồ hoạ và chế độ đồ hoạ, trong chơng trình ta sử dụng đó là hai biến có tên Mh,

Md, viết tắt của Graphic Driver( mạch điều khiển hay bộ điều khiển đồ hoạ) và

Graphic Mode( chế độ đồ hoạ) Nhiều chơng trình thí dụ có sử dụng các biến có tên đầy đủ là GraphicDriver và GraphicMode thay cho Mh, Md Việc đặt tên này

là tuỳ ý bạn

Đoạn 2: Các ứng dụng trực tiếp mà bạn cần vẽ.

Có rất nhiều thủ tục vẽ khác nhau nh vẽ đờng thẳng( Line), lệnh vẽ đờng tròn( Circle), lệnh vẽ hình elip( Ellipse) tuỳ vào bài làm yêu cầu ta phải biết ứng dụng vào sao cho phù hợp với yêu cầu đặt ra

Đoạn 3: Kết thúc Đóng chế độ đồ hoạ lại, trả về chế độ ban đầu trớc khi gọi

đồ hoạ Thờng là dùng thủ tục CloseGraph Thủ tục này sẽ giải phóng hết các vùng nhớ dùng cho đồ hoạ, kể cả vùng nhớ cho biến động Heap

phần C những công việc nghiệp vụ

I tầm quan trọng và tổng quan về chơng trình

1 Tầm quan trọng đề tài

Trong thời đại bùng nổ thông tin hiện nay vơí sự phát triển mạnh mễ của công nghệ thông tin nói chung và sự phát triển nhanh chóng của trí tuệ nhân tạo nói riêng đã tạo ra một thời đại mới , thời đại tin học !

Lĩnh vực hoạt động của tin học là rất rộng rãi do đó đi vào nghiên cứu về vấn đề gì là phụ thuộc vào sự ham muốn của mỗi con ngời Ngày nay trò chơi

điện tử trên máy tính ngày càng phổ biến và chiếm đợc thị hiếu của mọi ngời

Do đó việc lập trình các trò chơi điện tử cũng đang là một điển nóng đáng quan tâm Tuy nhiên ở nớc ta việc tiếp cận vấn đề này cha phải là nhiều Chúng ta ch-

a có đợc một đội ngũ lập trình viên chuyên nghiệp, hơn nữa nghành công nghệ thông tin ở nớc ta đang còn là một ngành non trẻ và đang đợc đầu t Trong đó sinh viên là một lực lợng khả thi nhất để phát triển nhanh chóng nghành công nghệ mới này

Đề tài này em đa ra không phải là một đề tài mới mẻ , tuy nhiên trong

ch-ơng trình này có sự liên kết dữ liệu một cách logic, hiểu đơn, dễ hiễu,đặcbiệt là thuật toán(định thức cấp 2)giản giúp cho ngời mới lập trình dễ tiếp cận với lập trình thiết kế nhiều những chò trơi đơn giản để tạo điều kiện phát huy lập trình những chơng trình phức tạp hơn ?

2 tổng quan về chơng trình

2.1 liên kết dữ liệu trong chơng trình

Chơng trình sử dụng sự liên kết dữ liệu theo kiểu mảng mà mổi phần tử mảng có chứa 2 trờng bản ghi

Infor = record

+Num:array[0 down+2,0 computer+1] of integer;…

(đánh số theo chiều nào :phải,dới,chéo lên, chéo xuống)

Phải ‘Right= 0’

Dới ‘Down=2’

Chéo lên ‘Slope=1’

Chéo xuống ‘Slope2=3’

Khi ta đánh 1 quân lên bàn cờ thì máy sẽ duyệt xâu và mỗi xâu thích hợp, nhờ thủ tục finish sẽ kiểm tra (phần này sẽ nói rõ hơn trong phần trình bày giải thuật).xem có mấy ô của ngời và mấy ô của máy, khi đó ta đang chạy main3(ngời - máy) hoặc Main(máy- ngời) Đối với các ô bàn cờ ta chỉ dùng 1 ma trận cấp 2 để lu lại vị trí đã đánh quân cờ Nếu bên Human(ngời) đánh thì sẽ ghi vào vị trí đó là 0, nếu là máy đánh thì sẽ lu lại vị trí đó là 1 (xem ví dụ dới)

2.2 Cách lấy toạ độ con trỏ chuột vào toạ độ ô bàn cờ

- Lấy toạ độ ô bàn cờ ta dùng thủ tuc Get Mouse để lấy vị trí chuột sau đó

so sánh toạ độ của nó với các hàng và cột trong bàn cờ để tìm xem ô nào đợc ấn

- Muốn khởi tạo chuột thủ tục (InitMouse)

- Muốn hiển thị chuột thủ tục (ShowMouse)

2.3 Các hàm thủ tục cơ bản dùng trong ch– ơng trình

 Function GethumanMove1 (x, y: Byte): Boolean;

Hàm này đợc ngời đánh và lấy vị trí đánh

 Function Finish: Integer;

Hàm này xem xát có ai thắng không

 Function GetMovexy2(x, y: Integer): Boolean;

Hàm này duyệt ngời đánh trớc

 Procedure Initseach;

Thủ tục này dùng để khởi tạo các dữ liệu

 Procedure Update (x, y: Integer; Var Likely1: Inforboard, Player: Integer) Var xx, yy: Integer;

Thủ tục này cập nhật các thông tin trò chơi

 Procedure Move (next X, next Y: Integer);

Thủ tục này dùng để vẽ ô và cập nhật ô đánh

 Procedure Init;

Thủ tục này dùng để khởi tạo đồ hoạ

 Procedure Chessboard (x, y, m, n, k, mau: Integer);

Thủ tục này dùng để vẽ bàn cờ

 Procedure Map;

Thủ tục này gán toạ độ cho các ô

 Procedure Init Mouse;

Thủ tục này khởi tạo chuột

 Procedure Showmouse;

Thủ tục này hiển thị chuột.

 Procedure Getmouse (Var x, y: Integer);

Thủ tục này dùng để tìm vị trí chuột

phần d NộI DUNG THUậT TOáN

Với thời gian một tháng,dới sự chỉ bảo tận tình của thầy giáo “Thạc sỷ Nguyễn Thanh Toàn” sự hớng dẫn chu đáo cũa các anh,chị(cơ quan em thực tập) thuộc trung tâm “HUPETS” và cùng với sự nỗ lực cũa bản thân em ,đã xây dựng

và thực hiện một đề tài “chơi cờ CARO” một chơng trình rất phức tạp bằng ngôn ngữ lập trình TURBO PASCAL

I Tổng quan mô tả thuật toán

Bắt đầu vào quá trình chơi, chơng trình sẽ khởi gán tất cả các biến cần dùng (State:= Blank, với Blank = 2 lúc đó ô để trống)

Trớc khi chơi ta có thể chọn một ngời chơi hay hai ngời chơi với nhau và tuỳ thuọc vào lúc đó ta đang dùng Main nào Ngoài ra ta còn có thể chọn ngời đi trớc hay đi sau

Đầu tiên ta đánh một quân lên bàn cờ (human) chơng trình sẽ biến toạ

độ màn hình sang toạ độ ô bàn cờ, và ghi lại quân cờ đó (state) nếu ngời đánh HUMAN = 0, COMPUTER = 1 và để trống BLANK = 2

Sau khi HUMAN đánh, chơng trình sẽ thực hiện phép kiểm tra nhờ thủ tục Finish chơng trình sẽ thực hiện kiểm tra trong tập sau của HUMAN có xâu nào

đạt số quân lớn hơn hoặc bằng 5 không Nếu có thì HUMAN thắng và quay lên thực hiện ván mới Nếu không Computer sẽ đánh tìm ra toạ độ thích hợp trên bàn

cờ, nếu xâu của HUMAN đã có u tiên là 4 mà thông hai đầu và đồng thời Computer không có xâu nào đạt giá trị lớn hơn hoặc bằng 5 thì HUMAN đã thắng Nếu trờng hợp trên không xảy ra thì chơng trình sẽ thực hiện xuất quân của Computer ra màn hình và nối xâu, nếu Computer có u tiên là 5 hoặc 4 thông hai đầu thì Computer thắng (kết thúc và khởi tạo cái mới nếu muốn)

Trong quá trình thực hiện một ván mới hoặc sau phép đánh của Computer chơng trình sẽ kiểm tra điều kiện (Finish) nếu thoả mãn sẽ thoát về hệ điều hành Ngợc lại chơng trình sẽ quay về khởi tạo ván mới chọn số ngời đánh, ai là ngời

đánh trớc và quá trình kiểm tra nh đã trình bày ở trên