Bài tập 8 (HSG lớp 8 TP Huế 2006 2007) Ba bạn An, Bình và Cường cùng tham gia một trò chơi như sau Mỗi bạn nắm trong tay một đồng xu, mỗi đồng xu có hai trạng thái sấp và ngửa Theo hiệu lệnh, cả ba bạ[.]
Bài tập 8: (HSG lớp -TP Huế 2006-2007) Ba b ạn An, Bình Cường tham gia trị chơi sau: Mỗi bạn nắm tay đồng xu, mỗi đồng xu có hai trạng thái : sấp ngửa Theo hiệu lệnh, ba bạn đưa đồng xu phía trước Nếu ba đồng xu sấp ngửa chưa phát người thua (hịa nhau) Nếu bạn có trạng thái đồng xu khác với hai bạn kia( nghĩa đồng xu bạn sấp hai người ngửa ngược lại đồng xu bạn ngửa hai người sấp) bạn thắng Hãy viết chương trình mơ trị chơi HD: - Để mô trạng thái sấp, ngửa đồng xu ta dùng hàm Random(1) dùng Random(n) mod với n > - Xét tám trường hợp xãy để tìm người thắng Program Sap_ngua; uses crt; Var A, B, C: byte; Begin clrscr; Writeln('Go phim de xem ket qua: '); A:=Random(10); A:=A mod 2; B:=Random(10); B:=B mod 2; C:=Random(10); C:=C mod 2; Write('Ket qua: ',a,b,c); if (A=0) and (B=0) and (C=0) then Write(' Hoa'); if (A=0) and (B=0) and (C=1) then Write(' C Thang'); if (A=0) and (B=1) and (C=0) then Write(' B Thang'); if (A=0) and (B=1) and (C=1) then Write(' A Thang'); if (A=1) and (B=0) and (C=0) then Write(' A Thang'); if (A=1) and (B=0) and (C=1) then Write(' B Thang'); if (A=1) and (B=1) and (C=0) then Write(' C Thang'); if (A=1) and (B=1) and (C=1) then Write(' Hoa'); Readln; Readln End ...Bài tập 8: (HSG lớp -TP Huế 200 6-2 007) Ba b ạn An, Bình Cường tham gia trị chơi sau: Mỗi bạn nắm tay đồng xu, mỗi... sấp) bạn thắng Hãy viết chương trình mơ trị chơi HD: - Để mô trạng thái sấp, ngửa đồng xu ta dùng hàm Random(1) dùng Random(n) mod với n > - Xét tám trường hợp xãy để tìm người thắng Program Sap_ngua;