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

Đề tài thực tập tốt nghiệp Nguyễn Sỹ Tĩnh Lớp KTH 1A Lời mở đầu Trong vài thập kỷ trở lại phát triển không ngừng khoa học kỹ thuật giới nói chung cách mạng khoa học kỹ thuật Việt Nam nói riêng phát triển vợt bậc không ngừng mà đỉnh điểm lĩnh vực công nghệ thông tin, tiêu biểu bật đời máy tính Ngay từ đời máy tính có tác dụng hữu ích trợ giúp đắc lực cho giới ngời lĩnh vực sống, ngày máy tính phơng tiện công dụng hữu ích thiếu đợc lĩnh vực đời sống ngời quan, xí nghiệp, trờng học, bệnh viện, tổ chức, cá nhân, gia đình Ngày máy tính không đợc đặt nơi cố định quan, xí nghiệp mà đợc mang nơi giới với máy tính cá nhân nhỏ, thuận tiện ngời làm đợc nhiều công việc nh: Thiết kế, lập trình, truy cập Internet, để cập nhật đợc nhiều thông tin tin tức, thay đổi ngày giới Việt Nam, mà nhờ máy tính thực đợc thông qua Internet cung cấp cho chúng ta, giúp cho ngời ngày gần Sử dụng máy tính tiết kiệm đợc thời gian, tiền bạc, công sức, rút ngắn đợc thời gian công việc, lĩnh vực sống Sử dụng máy tính sử dụng phần mềm mà nhà sản xuất thiết kế nên để sử dụng vào công việc hàng ngày nh: Winword, Excel, Access, Foxpro, Visual Basic, Pascal, Corel Draw, Photoshop Tuy nhiên để có đợc phần mềm nh biết nhà thiết kế phải sử dụng ngôn ngữ máy tính để thiết kế nên, dùng ngôn ngữ máy tính thay cho ngôn ngữ ngời Trớc máy tính cha đời công việc đợc thực khó khăn, tốn nhiều thời gian công sức công việc đòi hỏi phải có tính xác cao nhng từ máy tính đời giúp nhà thiết kế, sử dụng chơng trình công cụ máy tính để thiết kế nên Đề tài thực tập tốt nghiệp Nguyễn Sỹ Tĩnh Lớp KTH 1A chơng trình, phần mềm quan trọng cần thiết thông qua phần mềm tiện ích ngôn ngữ lập trình quan trọng bậc cao Pascal ngôn ngữ Pascal có phần thú vị quan trọng phần đồ hoạ (Graphic) Do sử dụng chế độ đồ hoạ hoàn toàn vẽ hình thù kể việc vẽ chữ kích thớc, hình dáng khác cách vẽ điểm theo chơng trình đa kết nhanh xác Chính quan trọng ngôn ngữ Pascal nh phần đồ hoạ( Graphic) nhà lập trình công việc thiết kế Do với t cách sinh viên em đợc trau dồi kiến thức thầy cô truyền lại em tìm hiểu đợc thông tin, tham khảo đợc tài liệu quan trọng tác giả viết ngôn ngữ Pascal hay cô đọng, xúc tích phù hợp với đối tợng Trong thời gian làm quen với ngôn ngữ Pascal em thấy có đủ kiến thức để đảm nhận đề tài Chơi Cờ CARO đề tài hay hấp dẫn, em tham gia đảm nhận đề tài sau trình thực đề tài em Đề tài thực tập tốt nghiệp Nguyễn Sỹ Tĩnh Lớp KTH 1A phần A tìm hiểu quan thực tập I 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 dịch vụ kinh tế - kỹ thuật (Ban hành theo định số 94- QĐ/ KHVN ngầy 12 tháng năm 1999) Tên giao dịch quốc tế: Center for Human Resource Promotion and Economic- Technological Service, viết tắt: HUPETS Số điện thoại: 7222211- 7222200 Số Fax: 7222200 E_mail: Hupets@.hn.vnn.vn Trung tâm đặt trụ sở tại: Tầng 2- Trung tâm Du lịch Thanh niên Việt Nam - Ngõ 267- Hoàng Hoa Thám - Ba Đình - Hà Nội Chi nhánh Thành phố Hồ Chí Minh: H10B Đờng D2 Phờng 25, Quận Bình Thạnh Điện thoại: 848 516328 - Fax: 848 516368 Chi nhánh Đà Nẵng: 62 Nguyễn Thị Minh Khai Điện thoại: 84 056 820665 Trung tâm đơn vị trực thuộc TW Hội Khuyến học Việt Nam, hoạt động liên kết với nhiều tổ chức kinh tế, xã hội, giáo dục nớc Trung tâm liên kết với Trờng Đại học Dân Lập Duy Tân - Đà Nẵng nhiều trờng Đại học nớc công tác đào tạo Trung tâm nơi hội tụ nhiều tri thức, giáo s, tiến sĩ thầy cô giáo giỏi, nhiều kinh nghiệm có uy tín cao Đề tài thực tập tốt nghiệp Nguyễn Sỹ Tĩnh Lớp KTH 1A Tổ chức máy Trung tâm : Giám đốc Trung tâm: Là ngời phụ trách Trung tâm Hội đồng quản trị đề cử đợc Thờng vụ Trung Ương Hội Khuyến học chấp thuận hoàn toàn chịu trách nhiệm trớc pháp luật hoạt động Trung tâm Phó giám đốc: Là ngời giúp việc cho Giám đốc, Hội đồng quản trị đề cử thay Giám đốc điều hành công việc Giám đốc vắng Các phận chức gồm có: Phòng hành chính- tài vụ: - Nhân viên văn th - Kế toán trởng nhân viên kế toán - Thủ quỹ Phòng giáo vụ: - Giáo viên môn - Các cộng tác viên - Các thầy, cô giáo chủ nhiệm Phòng kinh doanh: - Nhân viên kỹ thuật - Nhân viên phòng kinh doanh Bộ phận đợc thành lập theo định Giám đốc, nhu cầu công việc, theo nguyên tắc tinh, gọn, có hiệu Các sở bồi dỡng, dịch vụ kinh tế- kỹ thuật đợc thành lập nhiệm vụ Trung tâm, hoạt động theo luật quy định 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 hoạt động sở Đề tài thực tập tốt nghiệp Nguyễn Sỹ Tĩnh Lớp KTH 1A Sơ đồ tổ chức quan Hội đồng quản trị Ban giám đốc Phòng hành Phòng giáo vụ Phòng kinh doanh Theo định số 94- QĐ/ KHVN ngày 12/ 07/ 1999 công văn số 99/ BTCCBCP.TCPCP ngày 30/ 12/ 1999 Trung tâm Hupets có chức nhiệm vụ sau: Hợp tác với địa phơng, quan, đoàn thể, 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 mặt văn hoá, ngoại ngữ, kỹ thuật, chuyên môn nghiệp vụ quản lý cho cán lãnh đạo, cán quản lý, ngời lao động nớc chuẩn bị làm việc nớc Tham gia nghiên cứu, điều tra, khảo sát, thiết kế dự án kinh tế- kỹ thuật, văn hoá- giáo dục theo yêu cầu địa phơng, tổ chức kinh tế, văn hoá thành thị nông thôn Làm dịch vụ kinh tế- kỹ thuật lĩnh vực: Du lịch, Tin học, Xây dựng dân dụng công nghiệp, Nuôi trồng chế biến nông- lâm- thuỷ sản, Bảo vệ môi trờng, Xuất lao động Để thực nhiệm vụ mình, khuôn khổ quy định pháp luật, Trung tâm đợc quyền: Bồi dỡng- đào tạo Tổ chức loại hình bồi dỡng, đào tạo lại nh sau: Đề tài thực tập tốt nghiệp Nguyễn Sỹ Tĩnh Lớp KTH 1A - Ngoại ngữ, Tin học, Kế toán, Chuyên môn nghiệp vụ quản lý cho cán lãnh đạo quản lý - Đào tạo ngành nghề cho lực lợng lao động trẻ, đáp ứng nhu cầu doanh nghiệp nớc Dịch vụ: - Du lịch chuyên đề phục vụ cho đào tạo - Tin học ứng dụng quản lý sống - Cung cấp, lắp đặt máy tính, phần mềm quản lý khách sạn, th viện, nhân - Tổ chức đoàn học tập, tham quan khảo sát thị trờng nớc 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 công nghiệp - Nuôi trồng chế biến nông- lâm- thuỷ sản Đặt quan hệ với tổ chức phi phủ, tổ chức kinh tế, khoa học, văn hoá, giáo dục nớc theo quy định pháp luật để nhận trợ giúp liên kết hoạt động 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, khuôn khổ nhiệm vụ Trung tâm Một số hoạt động Trung tâm : - Trung tâm 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 hoạch toán kế toán hệ quy chức - Đào tạo lớp ngắn hạn Tin học, ngoại ngữ theo giấy phép Sở Giáo dục Đào tạo- Hà Nội Đề tài thực tập tốt nghiệp Nguyễn Sỹ Tĩnh Lớp KTH 1A - Trung tâm làm dịch vụ thiết kế trang Web khách sạn Việt Nam - Trung tâm phát hành Những mốc son hành trình danh nhân Hồ Chí Minh - Ngoài ra, Trung tâm tổ chức chuyến tham quan khảo sát thực tế đào tạo 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ụ chức chủ yếu phòng: - Triển khai công việc giảng dạy - Quản lý học sinh phơng diện - Quản lý phòng máy Sơ đồ tổ chức Phòng Phòng Hành chínhgiáo vụ Văn thư Thủ Kế Kỹ thuật vật quỹ toán Cơ sởviên Phòng làm việc giảng dạy: chất - Phòng làm việc: Trung tâm có phòng làm việc: + Phòng làm việc Hội đồng quản trị Ban Giám đốc + Phòng hành chính- tài vụ + Phòng kinh doanh - Các sở đào tạo: Giá o vụ Đề tài thực tập tốt nghiệp Nguyễn Sỹ Tĩnh Lớp KTH 1A + 01 phòng máy 04 giảng đờng Trung tâm Du lịch Thanh niên Việt Nam + 01 phòng máy nhà A2 01 giảng đờng F2G17 Trờng Đại học Giao Thông Vận Tải với số lợng 40 máy phục vụ tốt nhu cầu học tập sinh viên học giảng đờng 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 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: loại Panasonic Đề tài thực tập tốt nghiệp Nguyễn Sỹ Tĩnh Lớp KTH 1A phần B Giới thiệu chơng trình Pascal Xuất xứ PASCAL ngôn ngữ lập trình cấp cao giáo s Niklaus Wirth( trờng đại học kỹ thuật Zurich, Thuỵ sĩ) sáng tác công bố vào đầu năm 1970, với tên PASCAL để kỷ niệm nhà toán học ngời Pháp Blaise PASCAL, kỷ 17 Lúc đầu, PASCAL đợc sáng tác với mục đích làm ngôn ngữ máy tính để dạy học cho sinh viên trờng đại học: PASCAL giúp cho sinh viên nh ngời học lập trình có đợc thói quen viết chơng trình có cấu trúc sáng sủa, rõ ràng, dễ hiểu dễ đọc cho đối tợng khác Trớc có PASCAL, sinh viên đợc học ngôn ngữ lập trình FORTRAN, ngôn ngữ lâu đời ngôn ngữ cấu trúc, dễ gặp lỗi lập chơng trình Giáo s Wirth thấy tránh đợc nhiều lỗi lập trình với ngôn ngữ khối có kiểm tra kỹ lỡng tơng thích kiểu liệu Việc xuất ngôn ngữ PASCAL bớc tiến quan trọng kỹ thuật máy tính Với u điểm bật nó, PAS CAL đợc áp dụng rộng rãi nhiều chơng trình đào tạo tin học trờng đại học trờng phổ thông trung học Ưu điểm Từ ngôn ngữ PAS CAL giáo s Wirth sáng tạo ra, tổ chức tiêu chuẩn quốc tế nhiều hãng phát triển tạo chơng trình dịch ngôn ngữ PASCAL với nhiều phần thêm bớt khác Hiện Turbo PASCAL sản phẩm hãng Borland( Mỹ) ngôn ngữ đợc dùng phổ biến so với loại PASCAL khác nh loại ngôn ngữ khác Các u điểm bật Turbo PASCAL là: + Tốc độ dịch nhanh Đề tài thực tập tốt nghiệp Nguyễn Sỹ Tĩnh Lớp KTH 1A + Chơng trình dịch đợc viết ngắn gọn * PASCALlà ngôn ngữ có định kiểu mạnh mẽ: Trong ngôn ngữ PASCAL, điều có nghĩa biến kiểu liệu tự đem trộn lẫn với biến kiểu liệu khác Ví dụ: Cả hai vế phép gán phải kiểu, ngoại trừ trờng hợp vế trái biến số thực( Real) vế phải số nguyên( Integer) Việc định kiểu cách chặt chẽ nh bắt buộc ngời lập trình luôn phải có biểu thức tơng thích kiểu liệu * PASCAL ngôn ngữ có cấu trúc: Một ngôn ngữ có cấu trúc khối ngôn ngữ mà ta tách thông tin liệu( biến, mảng ) lệnh cần dùng cho nhiệm vụ xác định thành khối riêng, tách khỏi phần lại chơng trình để ngời lập trình giải dần phần một, khối chí cho nhiều ngời tham gia lập trình , ngời phụ trách vài khối Thông thờng khối ứng với nhiệm vụ cụ thể xác định, đợc thực chơng trình với biến địa phơng biến tạm thời chơng trình Bằng cách ta viết chơng trình cho kiện xảy không làm ảnh hởng tới phần khác chơng trình nằm chơng trình Có thể nói cấu trúc PASCAL đợc thể mặt: + Cấu trúc mặt liệu: Từ liệu có( kiểu đơn giản liệu có cấu trúc) ta xây dựng cấu trúc liệu khó + Cấu trúc mặt lệnh: Từ lệnh có( lệnh đơn giản lệnh có cấu trúc) ta nhóm chúng lại với đặt hai từ khoá Begin End thành câu lệnh khó hơn, gọi lệnh hợp thành hay lệnh ghép +Cấu trúc mặt chơng trình: Một chơng trình chia thành nhiều chơng trình độc lập Tìm hiểu chơng trình đồ hoạ máy vi tính 10 Đề tài thực tập tốt nghiệp Function Finish:Integer; Nguyễn Sỹ Tĩnh Lớp KTH 1A var i,j:Integer; Begin For i:=0 to SIZE_X For j:=0 to SIZE_Y Begin if(((B[i][j].Num[RIGHT][HUMAN]=0) And (B[i][j].Num[RIGHT][COMPUTER]=5)) Or ((B[i][j].Num[SLOPE][HUMAN]=0) ANd (B[i] [j].Num[SLOPE][COMPUTER] = 5)) Or ((B[i][j].Num[SLOPE2][HUMAN]=0) ANd (B[i] [j].Num[SLOPE2][COMPUTER] = 5)) Or ((B[i][j].Num[DOWN][HUMAN]=0) ANd (B[i] [j].Num[DOWN][COMPUTER] = 5))) then Begin Finish:=COMPUTER;Exit; End else if(((B[i][j].Num[RIGHT][HUMAN]=5) And (B[i][j].Num[RIGHT][COMPUTER] = 0)) Or ((B[i][j].Num[SLOPE][HUMAN]=5) And (B[i] [j].Num[SLOPE][COMPUTER] = 0)) Or ((B[i][j].Num[SLOPE2][HUMAN]=5) And (B[i] [j].Num[SLOPE2][COMPUTER] = 0)) Or ((B[i][j].Num[DOWN][HUMAN]=5) And (B[i] [j].Num[DOWN][COMPUTER] = 0))) then Begin Finish:=HUMAN;Exit; End else Begin Finish:=BLANK;End; End; End; {************************************} 27 Đề tài thực tập tốt nghiệp Nguyễn Sỹ Tĩnh Lớp KTH 1A Procedure Move(nextX,nextY:Integer); Begin Board1[nextX,nextY]:=currentPlayer; player:=Board1[nextX,nextY]; DrawCell2(nextX,nextY,player); UpdateInfor(nextX,nextY,currentPlayer); currentPlayer:=SUM - currentPlayer; End; {************************************} Procedure MAIN; Begin InitData;{Khoi tao thong tin tren ban co} Init; {Khoi tao hoa} Header; ChessBoard(40,60,20,20,12,7); Map; currentPlayer:=SelectPlayer; Move(centerX, centerY); Repeat Begin f:=finish; If f=HUMAN then Begin OutTextXy(100,400,'Nguoi thang '); Readln; exit;End; If f=COMPUTER then Begin OutTextXy(100,400,'May thang ');Readln; exit;End; If currentPlayer=COMPUTER then repeat nextx:=random(20); nexty:=random(20); until board1[nextx,nexty]=blank 28 Đề tài thực tập tốt nghiệp Nguyễn Sỹ Tĩnh Lớp KTH 1A Else GetHumanMove1(nextX,nextY); Move(NextX,nextY); End; Until (f BLANK); CloseGraph; End; {************************************} Procedure MAIN2; Begin InitData; Init; Header; ChessBoard(40,60,20,20,12,7); Map; currentPlayer:=SelectPlayer; showmouse; Repeat Begin f:=finish; If f=HUMAN then Begin OutTextXy(100,400,'Nguoi thang '); Readln; exit;End; If f=COMPUTER then Begin OutTextXy(100,400,'Nguoi thang ');Readln; exit;End; If currentPlayer=COMPUTER then GetHumanMove1(nextX,nextY) Else GetHumanMove1(nextX,nextY); Move(NextX,nextY); End; 29 Đề tài thực tập tốt nghiệp Until (f BLANK); Nguyễn Sỹ Tĩnh Lớp KTH 1A CloseGraph; End; {************************************} Procedure MAIN3; Begin InitData; Init; Header; ChessBoard(40,60,20,20,12,7); Map; currentPlayer:=HUMAN; showmouse; randomize; Repeat Begin f:=finish; If f=HUMAN then Begin OutTextXy(100,400,'Nguoi thang '); Readln; exit;End; If f=COMPUTER then Begin OutTextXy(100,400,'May thang ');Readln; exit;End; If currentPlayer=COMPUTER then repeat nextx:=random(20); nexty:=random(20); until board1[nextx,nexty]=blank Else GetHumanMove1(nextX,nextY); Move(NextX,nextY); End; Until (f BLANK); 30 Đề tài thực tập tốt nghiệp Nguyễn Sỹ Tĩnh Lớp KTH 1A CloseGraph; End; {************************************} BEGIN clrscr; choitiep:=true; While choitiep begin repeat clrscr; write('So nguoi danh (1 hoac 2)? ');readln(songuoi); until ((songuoi=1) or (songuoi=2)) ; if songuoi=1 then begin write('Ban muon di truoc (Y/N)? '); readln(truocsau); if upcase(truocsau)='Y' then main3 else main; end else main2; closegraph; clrscr; write('Ban muon choi tiep khong (Y/N)? '); readln(truocsau); if upcase(truocsau)='Y' then choitiep:=true else choitiep:=false; end; 31 Đề tài thực tập tốt nghiệp END Nguyễn Sỹ Tĩnh Lớp KTH 1A Unit ICaro; Interface {*************************************} Uses Crt,Dos,Graph; Const MaxN=200; MaxM=200; OX:Array[0 1] Of Char = ('X','O'); {*************************************} Type Board = Array[0 21,0 21] Of Integer; Button=Record x,y:integer; dai,rong:integer; bngang,bdoc:integer; mnen,mchu:word; s:string; End; Cood = Record x,y:Integer; End; {*************************************} Var Board1:Board; R:button; m,n,k,x,y,i,j:integer; Reg:registers; Ad:Array[0 21,0 21] Of Cood; nextX,nextY:Integer; 32 Đề tài thực tập tốt nghiệp player:Byte; Nguyễn Sỹ Tĩnh Lớp KTH 1A {*************************************} Procedure Init;{Khoi tao hoa} Procedure Header; Procedure ChessBoard(x,y,m,n,k,mau:integer); Procedure Map; Procedure InitMouse; Procedure ShowMouse; Procedure HideMouse; Procedure DrawCell2(x1,y1:Integer;var player:Byte); Function GetMoveXy2(x1,y1:Integer):Boolean; {*************************************} Implementation Procedure Init; var Gd,Gm:integer; Begin Gd:=Detect; Initgraph(Gd, Gm,'D:\ass\bPascal\Bgi'); InitMouse; End; {*************************************} Procedure Map; var i,j:Byte; Begin For i:=0 to 21 For j:=0 to 21 Begin Ad[i,j].x:=40+13*j; End; For i:=0 to 21 33 Đề tài thực tập tốt nghiệp For j:=0 to 21 Nguyễn Sỹ Tĩnh Lớp KTH 1A Begin Ad[i,j].y:=60+13*i; End; End; {*************************************} Procedure Find(var i1,j1:Integer); {Tim vi tri o tuong ung voi toa x,y} var i,j:Integer; Begin For i:=0 to 21 For j:=0 to 21 Begin If ((x>=Ad[i,j].x) And(x=Ad[i,j].y)And(y40) and (x60) and (y[...]... tục này dùng để tìm vị trí chuột 18 Đề tài thực tập tốt nghiệp Nguyễn Sỹ Tĩnh Lớp KTH 1A 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... 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ờ đó... trình bày ở trên 20 Đề tài thực tập tốt nghiệp Nguyễn Sỹ Tĩnh Lớp KTH 1A II Mô hình thuật toán B ắt đầu Khởi tạo ván Kiể mới m tra thoát Máy đánh Cập nhật Fini Đ Máy thắng sh PmaxS >= 5 sét Nguồn đánh Cập nhật Fini Đ Hmax S >= 5 Kiể Đ Người thắng sh S m tra thoát K ết thúc 21 Đề tài thực tập tốt nghiệp Nguyễn Sỹ Tĩnh Lớp KTH 1A phần e văn bản chơng trình chính Program caro; Uses Crt,ICaro,Graph; Const... 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... 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) (x0,y0) 2 2 2 2 1 2 2 1 0 2 2 2 0 1 2 2 0 2 2 2 2 2 2 2 2 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... 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; 17 Đề tài thực tập tốt nghiệp.. .Đề tài thực tập tốt nghiệp Nguyễn Sỹ Tĩnh Lớp KTH 1A 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... 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 14 Đề tài thực tập tốt nghiệp Nguyễn Sỹ Tĩnh Lớp KTH 1A 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... 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 cha có đợc một đội ngũ lập trình... 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 11 Đề tài thực tập tốt nghiệp Nguyễn Sỹ Tĩnh Lớp KTH 1A 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