Камень/ножницы/бумага на Паскале - 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.
Объяснение кода листинга программы
- Объявляются два массива строк:
z
иr
. - Массив
z
содержит три элемента: 'Камень', 'Ножницы', 'Бумага'. - Массив
r
содержит три элемента: 'Ничья', 'Победил игрок 1', 'Победил игрок 2'. - В переменной
a
будет храниться случайное число от 0 до 2. - В переменной
b
будет храниться случайное число от 0 до 2. - На экран выводится сообщение 'Игрок 1: ' и текущий элемент массива
z
, соответствующий значению переменнойa
. - На экран выводится сообщение 'Игрок 2: ' и текущий элемент массива
z
, соответствующий значению переменнойb
. - На экран выводится сообщение, соответствующее значению переменной
b-a+3 mod 3
. - Значение переменной
b-a+3 mod 3
будет равно 0, еслиb
меньше или равноa
, иначе будет равно 1 или 2. - Сообщение, которое будет выведено на экран, зависит от значения переменной
b-a+3 mod 3
. - Если
b-a+3 mod 3
равно 0, то выводится сообщение 'Ничья'. - Если
b-a+3 mod 3
равно 1, то выводится сообщение 'Победил игрок 1'. - Если
b-a+3 mod 3
равно 2, то выводится сообщение 'Победил игрок 2'.