Tin học Oẳn tù tì bằng Pascal ( 1 người chơi )

[Lục Vân Tiên]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Đang ngồi nhớ ra tuần trước làm code, post lên anh em xem ủng hộ và cho ý kiến (mong có ý kiến tốt )
Code đây

program Oan_tu_ti;
uses crt;
var N:integer;
    h1,h2:integer;
begin
 clrscr;
 textbackground(7);
 textcolor(12);
 writeln('Xin chao! Choi ngay thoi!!!');
 writeln('Nhan 1 de choi');
 readln(N);
 if N=1 then
 begin
 clrscr;
 randomize;
 textcolor(1);
 writeln('Ban chon gi?');
 writeln('1: bua');
 writeln('2: bao');
 writeln('3: keo');
 readln(h1);
 h2:=random(2)+1;
 clrscr;
 textcolor(3);
 writeln('Ban chon ',h1);
 writeln('May chon ',h2);
 writeln('');
 textcolor(3);
 if (h1=1) and (h2=1) or (h1=2) and (h2=2) or (h1=3) and (h2=3) then
 writeln('Hoa!');
 if (h1=2) and (h2=1) or (h1=3) and (h2=2) or (h1=1) and (h2=3) then
 writeln('Ban thang!');
 if (h1=1) and (h2=2) or (h1=2) and (h2=3) or (h1=3) and (h2=1) then
 writeln('Ban thua!');
 readln;
 end;
 clrscr;
 textbackground(14);
 textcolor(11);
 writeln('Tac gia: Hoang Xuan Dung');
 readln;
end.

 

[Deathheart]

Đang ngồi nhớ ra tuần trước làm code, post lên anh em xem ủng hộ và cho ý kiến (mong có ý kiến tốt )
Code đây

program Oan_tu_ti;
uses crt;
var N:integer;
    h1,h2:integer;
begin
 clrscr;
 textbackground(7);
 textcolor(12);
 writeln('Xin chao! Choi ngay thoi!!!');
 writeln('Nhan 1 de choi');
 readln(N);
 if N=1 then
 begin
 clrscr;
 randomize;
 textcolor(1);
 writeln('Ban chon gi?');
 writeln('1: bua');
 writeln('2: bao');
 writeln('3: keo');
 readln(h1);
 h2:=random(2)+1;
 clrscr;
 textcolor(3);
 writeln('Ban chon ',h1);
 writeln('Bua chon ',h2);
 writeln('');
 textcolor(3);
 if (h1=1) and (h2=1) or (h1=2) and (h2=2) or (h1=3) and (h2=3) then
 writeln('Hoa!');
 if (h1=2) and (h2=1) or (h1=3) and (h2=2) or (h1=1) and (h2=3) then
 writeln('Ban thang!');
 if (h1=1) and (h2=2) or (h1=2) and (h2=3) or (h1=3) and (h2=1) then
 writeln('Ban thua!');
 readln;
 end;
 clrscr;
 textbackground(14);
 textcolor(11);
 writeln('Tac gia: Hoang Xuan Dung');
 readln;
end.

hay đó nhưng nếu thế thì tự kỉ lấy 2 tay chơi cho r

 

[Lục Vân Tiên]

hay đó nhưng nếu thế thì tự kỉ lấy 2 tay chơi cho r

Đấu với máy mà, có đấu một mình đâu!

 

[Lục Vân Tiên]

Đang ngồi nhớ ra tuần trước làm code, post lên anh em xem ủng hộ và cho ý kiến (mong có ý kiến tốt )
Code đây

program Oan_tu_ti;
uses crt;
var N:integer;
    h1,h2:integer;
begin
 clrscr;
 textbackground(7);
 textcolor(12);
 writeln('Xin chao! Choi ngay thoi!!!');
 writeln('Nhan 1 de choi');
 readln(N);
 if N=1 then
 begin
 clrscr;
 randomize;
 textcolor(1);
 writeln('Ban chon gi?');
 writeln('1: bua');
 writeln('2: bao');
 writeln('3: keo');
 readln(h1);
 h2:=random(2)+1;
 clrscr;
 textcolor(3);
 writeln('Ban chon ',h1);
 writeln('May chon ',h2);
 writeln('');
 textcolor(3);
 if (h1=1) and (h2=1) or (h1=2) and (h2=2) or (h1=3) and (h2=3) then
 writeln('Hoa!');
 if (h1=2) and (h2=1) or (h1=3) and (h2=2) or (h1=1) and (h2=3) then
 writeln('Ban thang!');
 if (h1=1) and (h2=2) or (h1=2) and (h2=3) or (h1=3) and (h2=1) then
 writeln('Ban thua!');
 readln;
 end;
 clrscr;
 textbackground(14);
 textcolor(11);
 writeln('Tac gia: Hoang Xuan Dung');
 readln;
end.

Các bạn thêm lệnh này để chơi liên tục nhé
REPEAT; {Sau Begin, nhớ cách}
UNTIL N=2; {Trước end. Khi vào nhấn 2 là xong lệnh, còn ấn 1 theo ban đầu là cứ tiếp tục chơi}

 

[0948207255]

Đang ngồi nhớ ra tuần trước làm code, post lên anh em xem ủng hộ và cho ý kiến (mong có ý kiến tốt )
Code đây

program Oan_tu_ti;
uses crt;
var N:integer;
    h1,h2:integer;
begin
 clrscr;
 textbackground(7);
 textcolor(12);
 writeln('Xin chao! Choi ngay thoi!!!');
 writeln('Nhan 1 de choi');
 readln(N);
 if N=1 then
 begin
 clrscr;
 randomize;
 textcolor(1);
 writeln('Ban chon gi?');
 writeln('1: bua');
 writeln('2: bao');
 writeln('3: keo');
 readln(h1);
 h2:=random(2)+1;
 clrscr;
 textcolor(3);
 writeln('Ban chon ',h1);
 writeln('May chon ',h2);
 writeln('');
 textcolor(3);
 if (h1=1) and (h2=1) or (h1=2) and (h2=2) or (h1=3) and (h2=3) then
 writeln('Hoa!');
 if (h1=2) and (h2=1) or (h1=3) and (h2=2) or (h1=1) and (h2=3) then
 writeln('Ban thang!');
 if (h1=1) and (h2=2) or (h1=2) and (h2=3) or (h1=3) and (h2=1) then
 writeln('Ban thua!');
 readln;
 end;
 clrscr;
 textbackground(14);
 textcolor(11);
 writeln('Tac gia: Hoang Xuan Dung');
 readln;
end.

bạn quên 1 trường hợp của oẳn tù tì rồi

 

[Lục Vân Tiên]

bạn quên 1 trường hợp của oẳn tù tì rồi

Th gì vậy bạn?

 

[0948207255]

Th gì vậy bạn?

Cái này có thể hòa với kéo khi chơi 2 người (Bây giờ ít dùng nên bạn không để ý cũng đúng)

 

[misoluto04@gmail.com]

Đang ngồi nhớ ra tuần trước làm code, post lên anh em xem ủng hộ và cho ý kiến (mong có ý kiến tốt )
Code đây

program Oan_tu_ti;
uses crt;
var N:integer;
    h1,h2:integer;
begin
 clrscr;
 textbackground(7);
 textcolor(12);
 writeln('Xin chao! Choi ngay thoi!!!');
 writeln('Nhan 1 de choi');
 readln(N);
 if N=1 then
 begin
 clrscr;
 randomize;
 textcolor(1);
 writeln('Ban chon gi?');
 writeln('1: bua');
 writeln('2: bao');
 writeln('3: keo');
 readln(h1);
 h2:=random(2)+1;
 clrscr;
 textcolor(3);
 writeln('Ban chon ',h1);
 writeln('May chon ',h2);
 writeln('');
 textcolor(3);
 if (h1=1) and (h2=1) or (h1=2) and (h2=2) or (h1=3) and (h2=3) then
 writeln('Hoa!');
 if (h1=2) and (h2=1) or (h1=3) and (h2=2) or (h1=1) and (h2=3) then
 writeln('Ban thang!');
 if (h1=1) and (h2=2) or (h1=2) and (h2=3) or (h1=3) and (h2=1) then
 writeln('Ban thua!');
 readln;
 end;
 clrscr;
 textbackground(14);
 textcolor(11);
 writeln('Tac gia: Hoang Xuan Dung');
 readln;
end.

Theo tỉ lệ rơi hay quy luật cố định...

 

[Khải KIllar]

Theo tỉ lệ rơi hay quy luật cố định...

là tỷ lệ cố định nhé

 

[misoluto04@gmail.com]

là tỷ lệ cố định nhé

33,(3) %

 

[Khải KIllar]

33,(3) %

33,3333333333333333333333333333333333333333333333333333333

 

[misoluto04@gmail.com]

33,3333333333333333333333333333333333333333333333333333333

còn 0,0000..........000.....01 % vứt đâu

 

[trà nguyễn hữu nghĩa]

Đang ngồi nhớ ra tuần trước làm code, post lên anh em xem ủng hộ và cho ý kiến (mong có ý kiến tốt )
Code đây

program Oan_tu_ti;
uses crt;
var N:integer;
    h1,h2:integer;
begin
 clrscr;
 textbackground(7);
 textcolor(12);
 writeln('Xin chao! Choi ngay thoi!!!');
 writeln('Nhan 1 de choi');
 readln(N);
 if N=1 then
 begin
 clrscr;
 randomize;
 textcolor(1);
 writeln('Ban chon gi?');
 writeln('1: bua');
 writeln('2: bao');
 writeln('3: keo');
 readln(h1);
 h2:=random(2)+1;
 clrscr;
 textcolor(3);
 writeln('Ban chon ',h1);
 writeln('May chon ',h2);
 writeln('');
 textcolor(3);
 if (h1=1) and (h2=1) or (h1=2) and (h2=2) or (h1=3) and (h2=3) then
 writeln('Hoa!');
 if (h1=2) and (h2=1) or (h1=3) and (h2=2) or (h1=1) and (h2=3) then
 writeln('Ban thang!');
 if (h1=1) and (h2=2) or (h1=2) and (h2=3) or (h1=3) and (h2=1) then
 writeln('Ban thua!');
 readln;
 end;
 clrscr;
 textbackground(14);
 textcolor(11);
 writeln('Tac gia: Hoang Xuan Dung');
 readln;
end.

góp ý chút ha, Không nên để bạn chọn số mấy máy chọn số mấy mà nên để bạn chọn búa, kéo hay bao và máy cũng vậy, để số người chơi làm sao biết số mấy là cái gì

 

[Lục Vân Tiên]

góp ý chút ha, Không nên để bạn chọn số mấy máy chọn số mấy mà nên để bạn chọn búa, kéo hay bao và máy cũng vậy, để số người chơi làm sao biết số mấy là cái gì

Em sẽ chú ý ạ.

 

[Lục Vân Tiên]

Theo lời anh @trà nguyễn hữu nghĩa , đây là Code Pascal hoàn thiện. Bạn phải nhấn bua, bao, keo để chơi, ko nhấn 1, 2, 3 được.

program Oan_tu_ti;
uses crt;
var N,a1,a2:integer;
    h1,h2:string;
begin
 repeat
 clrscr;
 textbackground(7);
 textcolor(12);
 writeln('Xin chao! Choi ngay thoi!!!');
 writeln('Nhan 1 de choi');
 readln(N);
 if N=1 then
 begin
 clrscr;
 randomize;
 textcolor(1);
 writeln('Ban chon gi?');
 writeln('-bua');
 writeln('-bao');
 writeln('-keo');
 write('Ban chon: ');
 readln(h1);
 if h1='bua' then
 begin
 a1:=1;
 a2:=random(3)+1;
 if a2=1 then
 begin
 h2:='bua';
 clrscr;
 textcolor(3);
 writeln('Ban chon ',h1);
 writeln('May chon ',h2);
 writeln('');
 end;
 if a2=2 then
 begin
 h2:='bao';
 clrscr;
 textcolor(3);
 writeln('Ban chon ',h1);
 writeln('May chon ',h2);
 writeln('');
 end;
 if a2=3 then
 begin
 h2:='keo';
 clrscr;
 textcolor(3);
 writeln('Ban chon ',h1);
 writeln('May chon ',h2);
 writeln('');
 end;
 end;
 if h1='bao' then
 begin
 a1:=2;
 a2:=random(3)+1;
 if a2=1 then
 begin
 h2:='bua';
 clrscr;
 textcolor(3);
 writeln('Ban chon ',h1);
 writeln('May chon ',h2);
 writeln('');
 end;
 if a2=2 then
 begin
 h2:='bao';
 clrscr;
 textcolor(3);
 writeln('Ban chon ',h1);
 writeln('May chon ',h2);
 writeln('');
 end;
 if a2=3 then
 begin
 h2:='keo';
 clrscr;
 textcolor(3);
 writeln('Ban chon ',h1);
 writeln('May chon ',h2);
 writeln('');
 end;
 end;
 if h1='keo' then
 begin
 a1:=3;
 a2:=random(3)+1;
 if a2=1 then
 begin
 h2:='bua';
 clrscr;
 textcolor(3);
 writeln('Ban chon ',h1);
 writeln('May chon ',h2);
 writeln('');
 end;
 if a2=2 then
 begin
 h2:='bao';
 clrscr;
 textcolor(3);
 writeln('Ban chon ',h1);
 writeln('May chon ',h2);
 writeln('');
 end;
 if a2=3 then
 begin
 h2:='keo';
 clrscr;
 textcolor(3);
 writeln('Ban chon ',h1);
 writeln('May chon ',h2);
 writeln('');
 end;
 end;
 textcolor(3);
 if (h1='bua') and (h2='bua') or (h1='bao') and (h2='bao') or (h1='keo') and (h2='keo') then
 writeln('=> Hoa!');
 if (h1='bao') and (h2='bua') or (h1='keo') and (h2='bao') or (h1='bua') and (h2='keo') then
 writeln('=>Ban thang!');
 if (h1='bua') and (h2='bao') or (h1='bao') and (h2='keo') or (h1='keo') and (h2='bua') then
 writeln('=>Ban thua!');
 readln;
 end;
 until N=2;
 clrscr;
 textbackground(14);
 textcolor(11);
 writeln('Tac gia: Hoang Xuan Dung');
 readln;
end.

 

[chiner125maket]

Thật thú vị, thật là hay quá đi ak, đang ngồi chán quá lấy ra chơi

 

[trà nguyễn hữu nghĩa]

Theo lời anh @trà nguyễn hữu nghĩa , đây là Code Pascal hoàn thiện. Bạn phải nhấn bua, bao, keo để chơi, ko nhấn 1, 2, 3 được.

program Oan_tu_ti;
uses crt;
var N,a1,a2:integer;
    h1,h2:string;
begin
 repeat
 clrscr;
 textbackground(7);
 textcolor(12);
 writeln('Xin chao! Choi ngay thoi!!!');
 writeln('Nhan 1 de choi');
 readln(N);
 if N=1 then
 begin
 clrscr;
 randomize;
 textcolor(1);
 writeln('Ban chon gi?');
 writeln('-bua');
 writeln('-bao');
 writeln('-keo');
 write('Ban chon: ');
 readln(h1);
 if h1='bua' then
 begin
 a1:=1;
 a2:=random(3)+1;
 if a2=1 then
 begin
 h2:='bua';
 clrscr;
 textcolor(3);
 writeln('Ban chon ',h1);
 writeln('May chon ',h2);
 writeln('');
 end;
 if a2=2 then
 begin
 h2:='bao';
 clrscr;
 textcolor(3);
 writeln('Ban chon ',h1);
 writeln('May chon ',h2);
 writeln('');
 end;
 if a2=3 then
 begin
 h2:='keo';
 clrscr;
 textcolor(3);
 writeln('Ban chon ',h1);
 writeln('May chon ',h2);
 writeln('');
 end;
 end;
 if h1='bao' then
 begin
 a1:=2;
 a2:=random(3)+1;
 if a2=1 then
 begin
 h2:='bua';
 clrscr;
 textcolor(3);
 writeln('Ban chon ',h1);
 writeln('May chon ',h2);
 writeln('');
 end;
 if a2=2 then
 begin
 h2:='bao';
 clrscr;
 textcolor(3);
 writeln('Ban chon ',h1);
 writeln('May chon ',h2);
 writeln('');
 end;
 if a2=3 then
 begin
 h2:='keo';
 clrscr;
 textcolor(3);
 writeln('Ban chon ',h1);
 writeln('May chon ',h2);
 writeln('');
 end;
 end;
 if h1='keo' then
 begin
 a1:=3;
 a2:=random(3)+1;
 if a2=1 then
 begin
 h2:='bua';
 clrscr;
 textcolor(3);
 writeln('Ban chon ',h1);
 writeln('May chon ',h2);
 writeln('');
 end;
 if a2=2 then
 begin
 h2:='bao';
 clrscr;
 textcolor(3);
 writeln('Ban chon ',h1);
 writeln('May chon ',h2);
 writeln('');
 end;
 if a2=3 then
 begin
 h2:='keo';
 clrscr;
 textcolor(3);
 writeln('Ban chon ',h1);
 writeln('May chon ',h2);
 writeln('');
 end;
 end;
 textcolor(3);
 if (h1='bua') and (h2='bua') or (h1='bao') and (h2='bao') or (h1='keo') and (h2='keo') then
 writeln('=> Hoa!');
 if (h1='bao') and (h2='bua') or (h1='keo') and (h2='bao') or (h1='bua') and (h2='keo') then
 writeln('=>Ban thang!');
 if (h1='bua') and (h2='bao') or (h1='bao') and (h2='keo') or (h1='keo') and (h2='bua') then
 writeln('=>Ban thua!');
 readln;
 end;
 until N=2;
 clrscr;
 textbackground(14);
 textcolor(11);
 writeln('Tac gia: Hoang Xuan Dung');
 readln;
end.

e viết code rất tốt nha, nhưng người chơi thường rất lười gõ chữ mà e nên làm kiểu này nha
- Người chơi nhập số từ 1 => 3
- Random số của máy.
- Hiện ra màn hình: máy ra cái gì, người chơi ra cái gì, ai thắng.....vậy là ok rồi nha e

 

[vophananhquan123]

WTF bf

 

[Lục Vân Tiên]

e viết code rất tốt nha, nhưng người chơi thường rất lười gõ chữ mà e nên làm kiểu này nha
- Người chơi nhập số từ 1 => 3
- Random số của máy.
- Hiện ra màn hình: máy ra cái gì, người chơi ra cái gì, ai thắng.....vậy là ok rồi nha e

Em cảm ơn anh góp ý, lần sau làm code em sẽ viết cẩn thận hơn

 

[Lâm Tử Du]

dài dòng vậy men ngắn gọn dễ nhớ được không ?