1246uy3n
Thành viên
- Tham gia
- 21/10/2012
- Bài viết
- 2
Đây là game oẳn tù tì mình làm trên pascal nhưng không compile được. Bạn nào biết thì chỉnh sửa cặn kẽ giùm mình. Mình mới làm chương trình "lớn" đầu tiên.
program oantuti;
uses crt;
var N, M: byte;
begin
clrscr;
write('bua: 1');
write('keo: 2');
write('bao: 3');
writeln('nhap 1,2 hoac 3: ');
readln(N);
randomize;
M:=random(3);
readln(M);
if N=M then writeln('hoa') else;
begin
if N=1 and M=2 then writeln('thang') else;
begin
if N=1 and M=3 then writeln('thua') else;
begin
if N=2 and M=1 then writeln('thua') else;
begin
if N=2 and M=3 then writeln('thang') else;
begin
if N=3 and M=1 then writeln('thang') else writeln('thua');
readln;
end.