Камень/ножницы/бумага на Паскале - Turbo Pascal

Узнай цену своей работы

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

Будьте добры,помогите осуществить 1 раунд этой игры на Паскале.

Решение задачи: «Камень/ножницы/бумага на Паскале»

textual
Листинг программы
const
  z: array [0..2] of String [7] = ('Камень','Ножницы','Бумага');
  r: array [0..2] of String[15] = ('Ничья','Победил игрок 1','Победил игрок 2');
var a, b: Integer;
begin
  Randomize;
  a:=Random(3); b:=Random(3);
  WriteLn('Игрок 1: ',z[a]);
  WriteLn('Игрок 2: ',z[b]);
  WriteLn(r[(b-a+3) mod 3]);
end.

Объяснение кода листинга программы

  1. Объявляются два массива строк: z и r.
  2. Массив z содержит три элемента: 'Камень', 'Ножницы', 'Бумага'.
  3. Массив r содержит три элемента: 'Ничья', 'Победил игрок 1', 'Победил игрок 2'.
  4. В переменной a будет храниться случайное число от 0 до 2.
  5. В переменной b будет храниться случайное число от 0 до 2.
  6. На экран выводится сообщение 'Игрок 1: ' и текущий элемент массива z, соответствующий значению переменной a.
  7. На экран выводится сообщение 'Игрок 2: ' и текущий элемент массива z, соответствующий значению переменной b.
  8. На экран выводится сообщение, соответствующее значению переменной b-a+3 mod 3.
  9. Значение переменной b-a+3 mod 3 будет равно 0, если b меньше или равно a, иначе будет равно 1 или 2.
  10. Сообщение, которое будет выведено на экран, зависит от значения переменной b-a+3 mod 3.
  11. Если b-a+3 mod 3 равно 0, то выводится сообщение 'Ничья'.
  12. Если b-a+3 mod 3 равно 1, то выводится сообщение 'Победил игрок 1'.
  13. Если b-a+3 mod 3 равно 2, то выводится сообщение 'Победил игрок 2'.

Оцени полезность:

15   голосов , оценка 4.333 из 5
Похожие ответы