Mọi người giúp em bài Pascal này với ạ:
Bài 1: Viết chương trình giả làm trò chơi xổ số như sau: Người chơi nhập 5 lần, mỗi lần 1 số nguyên tùy ý, máy kiểm tra nếu trong các số nhập vào có 3 số trở lên trùng với các số máy lấy ngẫu nhiên thì người đó thắng và ngược lại là thua. Nếu thua thì máy báo Ban da thua ! và ngược lại máy báo Ban da thang !
Em xin cảm ơn...
Đọc tiếp
Mọi người giúp em bài Pascal này với ạ:
Bài 1: Viết chương trình giả làm trò chơi xổ số như sau: Người chơi nhập 5 lần, mỗi lần 1 số nguyên tùy ý, máy kiểm tra nếu trong các số nhập vào có 3 số trở lên trùng với các số máy lấy ngẫu nhiên thì người đó thắng và ngược lại là thua. Nếu thua thì máy báo Ban da thua ! và ngược lại máy báo Ban da thang !
Em xin cảm ơn ạ.
uses crt;
var a:array[1..5]of integer;
n,i,b,c,d,dem:integer;
begin
clrscr;
randomize;
n:=5;
for i:=1 to n do
begin
write('lan nhap thu ',i,'='); readln(a[i]);
end;
b:=random(900)+100;
c:=random(900)+100;
d:=random(900)+100;
dem:=0;
for i:=1 to n do
begin
if b=a[i] then inc(dem);
if c=a[i] then inc(dem);
if d=a[i] then inc(dem);
end;
if dem>=3 then writeln('ban da thang!')
else writeln('ban da thua!');
readln;
end.
Đề có cho biết các số máy lấy như thế nào đâu bạn nhỉ?