Trang web hiển thị tốt nhất trên các trình duyệt mới và được bật Javascript.

Viết trò chơi oản tù xì

CMINH

Viết trò chơi bao-đá- kéo với luật chơi: bao thắng đá, đá thắng kéo, kéo thắng bao. Người dùng nhập vào 1 trong 3 kí tự: b(bao), d(đá), k(kéo); Máy tính sinh ra ngẫu nhiên một trong ba ký tự trên, thông báo kết quả chơi.
Ví dụ: Người nhập b; Máy: d => người thắng
Người nhập k; máy: d => máy thắng

Cô mình gợi ý là dùng hàm random
Mà mình chưa rõ cách dùng random lắm
Các bạn giúp mình với
Mình đang cần gấp lắm
Các bạn giúp mình nha

thom263

B1. đầu tiên người chơi chọn 1 trong 3 hình thức lưu vào n: kéo , bao, búa tương ứng với các giá trị 1 ,2 ,3
B2. Máy chọn : bạn cho m=random(3)+1. với m lưu sự lựa chọn của máy. vậy máy sẽ ra ngẫu nhiên 1, 2, 3.
B3. bây giờ bạn chia th ra thôi.

Taku

Program oan_tu_ti_game;
Uses crt;
Var
a,s:longint;
{-----------------------------------------------------------------}
Function menu:integer;
Var
ch:char;
Begin
Clrscr;
Writeln(' Truong Trinh Game oan Tu Ty ');
Writeln(' 1.DAM');
Writeln(' 2.KEO');
Writeln(' 3.LA');
Writeln(' 0.Thoat');
Writeln('Moi ban chon so tuong ung voi dam,keo,la:');
Repeat
Ch:=readkey;
Until
(ch='1') or (ch='2') or (ch='3') or (ch='0')
Writeln(ch);
Menu:=ord(ch)-48;
End;
{-----------------------------------------------------------------}
Procedure menu1;
Begin
Clrscr;
Writeln('Ban ra DAM.');
Readln;
End;
{-----------------------------------------------------------------}
Procedure menu2;
Begin
Clrscr;
Writeln('Ban ra KEO.');
Readln;
End;
{-----------------------------------------------------------------}
Procedure menu3;
Begin
Clrscr;
Writeln('Ban ra LA');
Readln;
End;
{-----------------------------------------------------------------}
BEGIN
Clrscr;
Randomize;
{ a:=random từ 1 tới 3 (nếu chỉ chơi đấm, lá , kéo)}
Repeat
K:=menu;
Case k of
1:Menu1;
2:Menu2;
3:Menu3;
End;
Until k=0;
END.

CMINH

Taku
Ũa bạn ko dùng random hả?

Taku

CMINH có hàm radomize đó mà, ở gần cuối ấy bạn

CMINH

Taku
Mình nghĩ ra rồi
Nhưng mình làm khác với bạn
Mình ko dùng repeat until. Mình dùng if

Có thể bạn quan tâm

Tìm giá trị nhỏ nhất của đoạn thẳng Bài tập toán về nhà của tôi Lý thuyết toán đại số 11 Làm thế nào để học giỏi Hóa - Bí kíp không thể bỏ qua bất đẳng thức Cauchy - Schwarz Vật lí 10 CÔNG VÀ CÔNG SUẤT Mọi người giúp em với em cảm ơn ạ giúp mk nhá thanks các bn nhiều nhiều bài tập sử 10 Giúp mk với mn ơi [vật lí 8] cơ năng hãy chỉ ra sự chuyển hoá từ dạng c.. [Vật lí 8] Ba bài tập khó. [Vật lí 8] công thức lí [ Vật lí 8] Điện năng. [Vật lí 8] Nhiệt năng Nhiệt năng này 1.Vào mua lạnh .. Xem thêm