Lập trình trò chơi đổi màu bi trong Pascal

Chủ nhật - 09/08/2020 10:15
Trên bàn có n1 hòn bi xanh, n2 hòn bi đỏ, n3 hòn bi vàng. Một người tham gia vào một trò chơi sau:- Cứ 2 viên bi khác màu chạm vào sẽ biến thành màu thứ 3.- Người thắng cuộc là người biến được tất cả các hòn bi đó về màu đỏ. Hãy lập trình để máy chơi được trò chơi trên với khả năng cao nhất.
■ Hướng dẫn:
- Ta có thể giải bài toán tổng quát hơn là biến số bi ban đầu là (g,y,r) thành số bi cuối cùng là (new,newg,newr).
- Để ý rằng tổng số là không đổi /à sau mỗi nước đi hiệu số của hai đống bi khác màu phải chia hết cho 3.
Sau đây là chương trình chi tiết thể hiện bằng PASCAL.

PROGRAM BAI39
USES CRT;
VAR r, g, y, newr, newg, newy, cl, c2, c3, ml, m2, m3:
Integer, i, min: Byte;
PROCEDURE XUAT;
BEGIN
      Textcolor(Green);Gotoxy(3,5);Write(g);
      Textcolor(Yellow);Gotoxy(13,5);Write(y);
      Textcolor(Red);Gotoxy(23,5);Write(r);
      c1 : = g-y;
      c2 : = y-r;
      c3 : = r-g;
      Delay(100);
      Readln;
END;
PROCEDURE RA_DO;
BEGIN
      {Xuat ra Man Hinh}
       Clrscr;
       Gotoxy(20,20);
       Writeln(‘Lay bi xanh chap voi bi vang');
       Dec(y);
       Dec(g);
       r : = r+2;
       xuat;
END;
PROCEDURE RA_VANG;
BEGIN
     Clrscr
     Gotoxy(20,20);
     WriteIn(‘Lay bi xanh chap voi bi do’);
     Dec(g);
     Dec(r);
     y: = y+2;
     Xuat;
END;
PROCEDURE RA_XANH;
BEGIN
     Clrscr
     Gotoxy(20,20);
     Writeln(‘Lay bi vang chap voi bi do’);
     Dec(y);
     Dec(r);
     g : = g+2;
     Xuat;
END;
FUNCTION OK_TEST : Boolean;
BEGIN
     Ok_Test : = true;
     If (((m1 mod 3)+3) mod 3 < > ((c1 mod 3)+3) mod 3) then
     Ok_Test : = false;
     If (((m2 mod 3)+3) mod 3 < > ((c2 mod 3)+3) mod 3) then
     Ok_test: = false;
     If (((m3 mod 3)+3) mod 3 < > ((c3 mod 3)+3) mod 3) then
     Ok_test : = false;
     {Phai kiem tra nhu the nay boi vi (-1 mod 3 = -1 < > 2)}
END;
PROCEDURE CA_KHEO;
BEGIN
      Repeat
           Ra_Xanh;
           Ra_Vang;
       Until g=Newg;
END
BEGIN
      Clrscr;
      Writeln(‘Nhap so bi xanh, vang, do');
      Readln(g,y,r);
      Writeln(‘Can bien ra nhu the nao’):
      Readln(new,newy,newr);
      Xuat;
      m1: = newg-newy;
      mw: - newy-newr;
      m3,: - newr-newg;
      If Ok_test then
          Begin
               Repeat
                          If c1 < m1 then Ra_Xanh;
                          If c1 > m1 then Ra_Vang;
               Until c1 = m1;
               If g > newg then
                         Repeat
                              Ra_Do;
                         Until g=newg;
                If g < newg then Ca_kheo;
            End;
        Else
            Writeln(‘Khong lam duoc’);
        Readln;
END.

  Ý kiến bạn đọc

THÀNH VIÊN

Hãy đăng nhập thành viên để trải nghiệm đầy đủ các tiện ích trên site
Kênh Bóng đá trực tiếp hôm nay miễn phí
Kênh
90Phut TV full HD ⇔ 32win
69VN ⇔ YO88 ⇔ F168 ⇔ 123b

Vmax ⇔ i9 Bet ⇔ hubet ⇔ 789club
789f ⇔ SHBET ⇔ rikvip ⇔ x88
https://qq887p.com/ ⇔ v9bet ⇔ okvip
b52club ⇔ Kkwin ⇔ new88 ⇔ Link MB66
https://88betcom.pro/ ⇔ 8x bet ⇔ iWinClub
789BET ⇔ B52 club ⇔ BL555 ⇔ 
MB66 ⇔ Nổ Hũ ⇔ BL555 ⇔ b52 club
https://789betcom0.com/ ⇔ https://hi88.baby/
HZ88 ⇔ 86bet ⇔ sunwin ⇔ SHBET
98win ⇔ 78win ⇔ Vua88 ⇔ go88
 ⇔  ⇔ v8club ⇔ tv88 ⇔ 98win
 ⇔ 789win ⇔ 789WIN ⇔ Sanclub
F168 ⇔ f168 ⇔ QQ88 ⇔ bk8 ⇔ bk8
ee88 ⇔ iwinclub ⇔ MBET ⇔ net88
vua88 ⇔ soc88 ⇔ https://hi88o.com/
nhà cái go8 ⇔ KUWIN ⇔ kubet ⇔ 888new
78win ⇔ hi88 ⇔ https://fun88.social/
88clbxoso66 ⇔ I9BET ⇔ 7Club
https://qq88.fun/ ⇔ f168 ⇔ go8 ⇔ vn88
daga ⇔ SHBET ⇔ keo nha cai ⇔ bl-555.site
https://bshbet.com/ ⇔ https://uk88.rocks
qq88 com ⇔ 789f ⇔ mm88 ⇔ 
https://nohu90.ad/ ⇔ https://hello8880.net/
tv88hi88 ⇔ f168 ⇔ uu88
NOHU ⇔ bj88 live ⇔ 32win ⇔ Kuwin
Bay789 ⇔  ⇔ QQ88 ⇔ Xóc đĩa online
WW88 ⇔ https://f168.com.co/
7m ⇔ kuwin ⇔ https://789club24.com/
https://33win103.com/ ⇔ https://789win.voyage/
https://33win102.com/ ⇔ https://alo789apk.app/
https://33win100.com/ ⇔ Cổng game rikvip
https://myeat.net/ ⇔ https://king88com.uk.net/
https://58win1.info/ ⇔ 
https://new88c.co/ ⇔ https://hello880.net/
https://789club60.com/ ⇔ https://jun88.black/
Hay 88 ⇔ 789p ⇔ f168 ⇔ nohu90 ⇔ onbet
 ⇔ https://789club24.com/ ⇔ 
win68 ⇔ 8xbet ⇔ 6623 ⇔ j88 ⇔ 32 win
XX88 ⇔ 89BET ⇔ QQ88 ⇔ topbet
Uu88 ⇔ V8club ⇔ 
https://33win101.com/ ⇔ SHBET ⇔ Min88
hi88 ⇔ https://shbet.gg/ ⇔ https://shbet.is/
https://33winpro.me/ ⇔ bluphim ⇔ Mbet
SHBET ⇔ Kkwin ⇔ Phimbathu ⇔ 6623
https://shbet.solar/ ⇔ https://daga.help/
https://32winmb.com/ ⇔ https://ok9599.com/
trực tiếp bóng đá ⇔ vl8838.com
https://king88.fun/ ⇔ https://hi88.gives/
555win35.com ⇔ https://f168.law/
game bài đổi thưởng ⇔ https://dt68.cc/
New88 ⇔ nhacaiuytinovn39.com ⇔ 79king
ww88 ⇔ vankhanhtv ⇔ https://13win.vegas/
game bài đổi thưởng ⇔ https://hi88.uno/
bong88 ⇔ j88 ⇔ j88 ⇔ sunwin ⇔ sunwin
 ⇔ 888b ⇔ 789f ⇔ go 88
MM88 ⇔ Nh88 ⇔  ⇔ game sunwin
QQ88 ⇔ socolive ⇔ 
https://xx88.ink/ ⇔ https://79king.is/
 ⇔ xocdia88 ⇔ Sun Win ⇔ Vmax
tỷ lệ kèo nhà cái hôm nay ⇔ Link vào Kingfun
https://j88ss.com ⇔ https://qq88.studio/
https://mm88.blue/ ⇔ https://qq88.gives/
SUNCITYVivu88 ⇔ https://cakhiatv88.net/
888B888B ⇔ Au88hi88
https://lightyourlife.org ⇔ https://78winnk.net/
Bong88 ⇔ kèo nhà cái ⇔ Sao789 ⇔ ok365
https://bet88.ventures/ ⇔ trực tiếp bóng đá
https://king88clb.com ⇔ 89bet ⇔ kingfun
https://sh-bet.com/ ⇔ bong88 ⇔ Nn88
https://32win.vc/ ⇔ 888new ⇔ PG88 ⇔ PG88
EE88 ⇔ B52Club ⇔ B52 Club ⇔ lô đề hôm nay
sky88 ⇔ Vin777 ⇔ SV388 ⇔ MV66 ⇔ 32win
https://vankhanhtvv.com/ ⇔ game bài đổi thưởng
game bài đổi thưởng ⇔ https://u888lm.com/
tỷ lệ kèo nhà cái ⇔ 78win ⇔ https://789win01.club/
https://32win.domains/ ⇔ https://sv388.engineering/
https://8kbetbh.com/ ⇔ https://ta88club.kim/
https://orangeblossomjamboree.com
https://jun88.now/ ⇔ https://rr88.com.se/
Game bài đổi thưởng ⇔ tỷ lệ bóng đá
https://58win.jpn.com/ ⇔ https://xin88.sa.com/
Bạn đã không sử dụng Site, Bấm vào đây để duy trì trạng thái đăng nhập. Thời gian chờ: 60 giây