Создайте программу, играющую с пользователем в орлянку - Pascal

Формулировка задачи:

Создайте программу, играющую с пользователем в орлянку. Программа должна спрашивать у пользователя орел или решка. Если пользователь вводит 0, то выбирает орла, 1 – решку, любое другое число – конец игры. Программа должна вести учет выигрышей и проигрышей и после каждого раунда сообщать пользователю о состоянии его счета. Пусть вначале на счету 1 рубль и ставка в каждом коне тоже 1 рубль. Если денег у пользователя не осталось игра прекращается.

Код к задаче: «Создайте программу, играющую с пользователем в орлянку - Pascal»

textual
var r, w, l, c: integer;
begin
  writeln('Играем в орлянку. На Вашем счету 1 рубль, ставка 1 рубль,');
  writeln('0 - Вы выбираете "орёл", 1 - Вы выбираете "решка",');
  writeln('Другое число - конец игры.');
  r := 1;
  w := 0;
  l := 0;
  randomize;
  repeat
    write('Орёл или решка? ');
    readln(c);
    if (c = 0) or (c = 1)
      then begin
        if c = random(2)
          then begin
            writeln('Верно.');
            inc(w);
            inc(r)
          end
          else begin
            writeln('Неверно.');
            inc(l);
            dec(r)
          end;
      end;
    writeln('Выигрышей: ', w, ', проигрышей: ', l, ', состояние счёта: ', r)
  until (r = 0) or (c < 0) or (c > 1);
  write('Игра окончена.');
  if r = 0 then write(' Вы проиграли.');
  readln
end.

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

5   голосов, оценка 3.800 из 5


СОХРАНИТЬ ССЫЛКУ