Напишите игру «Рулетка». В текстовом режиме запускается генератор случайных чисел в диапазоне от 0 до 9.
Если выпадают 4 или 5 — игрок получает 50 очков, если выпадают 3 или 6 — у игрока вычитаются 50 очков,
если выпадают 2 или 7 — баллы игрока, набранные прежде, умножаются на два,
если выпадает 1 или 8 — игрок становится банкротом (звуковой сигнал),
и если выпадает 0 или 9 — игрок получает 0 баллов.
надо написать команду условий( для паскаля)
More Questions From This User See All
Answers & Comments
uses crt;
var x,s:integer;
c:char; b:boolean;
begin
while b=false do begin
x:=random(10);
if (x=4) or (x=5) then s:=s+50;
if (x=3) or (x=6) then s:=s-50;
if (x=2) or (x=7) then s:=s*2;
if (x=1) or (x=8) then sound(1000);
writeln('You points - ',s,' ',x);
if (x=1) or (x=8) or (s<0) or (c='No') then b:=true;
if b=false then begin
writeln('Continue? Enter "No" to exit.');
readln(c);
end;
end;
delay(10000);
nosound;
end.