Bài tập turbo pascal

- Để mô phỏng trạng thái sấp, ngửa của đồng xu ta dùng hàm Random(1) hoặc dùng Random(n) mod 2 với n > 2.

- Xét tám trường hợp xãy ra để tìm người thắng cuộc.

Cài đặt:

Var g: text; A, B, C: byte; Begin Assign(g,’bai2_8.out’); rewrite(g); 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(g,' Hoa'); if (A=0) and (B=0) and (C=1) then Write(g,' C Thang'); if (A=0) and (B=1) and (C=0) then Write(g,' B Thang'); if (A=0) and (B=1) and (C=1) then Write(g,' A Thang'); if (A=1) and (B=0) and (C=0) then Write(g,' A Thang'); if (A=1) and (B=0) and (C=1) then Write(g,' B Thang'); if (A=1) and (B=1) and (C=0) then Write(g,' C Thang'); if (A=1) and (B=1) and (C=1) then Write(g,' Hoa'); close(f); close(g); End.