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

Lục Vân Tiên

Lục Vân Tiên

Học sinh chăm học
Thành viên
4 Tháng tư 2017
340
231
131
Thanh Hóa
Minecraft Gamer
[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 :D:D)
Code đây
Mã: 
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.
 
Last edited:
  • Like
Reactions: 0946265549, dangtiendung1201, Xiao Fang and 4 others
Deathheart

Deathheart

Cựu TMod Vật Lí
Thành viên
18 Tháng năm 2018
1,535
2,868
411
Quảng Trị
THPT Đông Hà
The Minecraft PC said:
Đ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 :D:D)
Code đây
Mã: 
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.
Bấm để xem đầy đủ nội dung ...
hay đó nhưng nếu thế thì tự kỉ lấy 2 tay chơi cho r :):)
 
  • Like
Reactions: Only Normal
Lục Vân Tiên

Lục Vân Tiên

Học sinh chăm học
Thành viên
4 Tháng tư 2017
340
231
131
Thanh Hóa
Minecraft Gamer
The Minecraft PC said:
Đ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 :D:D)
Code đây
Mã: 
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ấm để xem đầy đủ nội dung ...
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}
 
  • Like
Reactions: Thư Vy
0

0948207255

Banned
Banned
30 Tháng sáu 2018
778
243
76
The Minecraft PC said:
Đ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 :D:D)
Code đây
Mã: 
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ấm để xem đầy đủ nội dung ...
bạn quên 1 trường hợp của oẳn tù tì rồi
 
misoluto04@gmail.com

misoluto04@gmail.com

Banned
Banned
Thành viên
19 Tháng sáu 2018
895
462
101
19
Hà Nội
Good bye là xin chào...
The Minecraft PC said:
Đ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 :D:D)
Code đây
Mã: 
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ấm để xem đầy đủ nội dung ...
Theo tỉ lệ rơi hay quy luật cố định...
 
trà nguyễn hữu nghĩa

trà nguyễn hữu nghĩa

Cựu Mod Vật Lí |Cây bút Thơ|Thần tượng VH
Thành viên
14 Tháng năm 2017
3,974
7,619
744
21
Phú Yên
Trường THPT Lương Văn Chánh
The Minecraft PC said:
Đ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 :D:D)
Code đây
Mã: 
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ấm để xem đầy đủ nội dung ...
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

Lục Vân Tiên

Học sinh chăm học
Thành viên
4 Tháng tư 2017
340
231
131
Thanh Hóa
Minecraft Gamer
  • Like
Reactions: Deathheart and trà nguyễn hữu nghĩa
Lục Vân Tiên

Lục Vân Tiên

Học sinh chăm học
Thành viên
4 Tháng tư 2017
340
231
131
Thanh Hóa
Minecraft Gamer
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. :D :D :D
Mã: 
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.
 
  • Like
Reactions: trà nguyễn hữu nghĩa
trà nguyễn hữu nghĩa

trà nguyễn hữu nghĩa

Cựu Mod Vật Lí |Cây bút Thơ|Thần tượng VH
Thành viên
14 Tháng năm 2017
3,974
7,619
744
21
Phú Yên
Trường THPT Lương Văn Chánh
The Minecraft PC said:
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. :D :D :D
Mã: 
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.
Bấm để xem đầy đủ nội dung ...
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
 
Lục Vân Tiên

Lục Vân Tiên

Học sinh chăm học
Thành viên
4 Tháng tư 2017
340
231
131
Thanh Hóa
Minecraft Gamer
trà nguyễn hữu nghĩa said:
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
Bấm để xem đầy đủ nội dung ...
Em cảm ơn anh góp ý, lần sau làm code em sẽ viết cẩn thận hơn
 
  • Like
Reactions: trà nguyễn hữu nghĩa
You must log in or register to reply here.
Top Bottom