Question

Постройте в системе программирования PascalABC.NET компьютерную модель игры Орел и решка для двух игроков с десятью бросаниями монеты каждого из них.​

Answer 1

Відповідь:

Program OrelReshka;
var
player1, player2, result: string;
heads, tails, i: integer;
begin
// Введення імен гравців
write('Введіть ім’я гравця 1: ');
readln(player1);
write('Введіть ім’я гравця 2: ');
readln(player2);
writeln('Починаємо гру ', player1, ' проти ', player2, '!');

// Починаємо кидати монету десять разів для кожного гравця
for i := 1 to 10 do
begin
// Гравець 1 кидає монету
write(player1, ', введіть "орел" або "решка": ');
readln(result);
if (result = 'орел') or (result = 'решка') then
writeln(player1, ' кинув ', result)
else
writeln('Неправильний ввід, гравець 1 пропускає цей хід');

// Гравець 2 кидає монету
write(player2, ', введіть "орел" або "решка": ');
readln(result);
if (result = 'орел') or (result = 'решка') then
writeln(player2, ' кинув ', result)
else
writeln('Неправильний ввід, гравець 2 пропускає цей хід');
end;

writeln('Гра завершена');
end.