Вопрос по информатике:
Напишите игру «Рулетка». В текстовом режиме запускается генератор случайных чисел в диапазоне от 0 до 9.
Если выпадают 4 или 5 — игрок получает 50 очков, если выпадают 3 или 6 — у игрока вычитаются 50 очков,
если выпадают 2 или 7 — баллы игрока, набранные прежде, умножаются на два,
если выпадает 1 или 8 — игрок становится банкротом (звуковой сигнал),
и если выпадает 0 или 9 — игрок получает 0 баллов.
надо написать команду условий( для паскаля)
- 25.05.2018 18:37
- Информатика
- remove_red_eye 16986
- thumb_up 59
Ответы и объяснения 1
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.');br />readln(c
- 26.05.2018 00:48
- thumb_up 15
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.