Question

19. Составить алгоритм и написать решение задачи на Паскале: Целое число х сгенерировано в диапазоне от 1 до 5. Вывести на экран название соответствующего пальца на руке.

Answer 1

Для PascalABC.net:
begin  var t := Random(1,5);  case t of    1: writeln ('Мизинец');    2: writeln ('Безымянный');    3: writeln ('Средний');    4: writeln ('Указательный');    5: writeln ('Большой');  end;end.

Answer 2

Алгоритм:

1. Сгенерировать случайное целое число х в диапазоне от 1 до 5.
2. Используя оператор выбора (case), определить название соответствующего пальца на руке, в зависимости от значения х.
3. Вывести на экран название пальца.

Решение на Паскале:

cssCopy code
program Finger;

var
  x: integer;

begin
  Randomize; // инициализация генератора случайных чисел
  x := Random(5) + 1; // генерация случайного числа в диапазоне от 1 до 5
  
  // определение названия пальца на руке, в зависимости от значения x
  case x of
    1: writeln('Большой палец');
    2: writeln('Указательный палец');
    3: writeln('Средний палец');
    4: writeln('Безымянный палец');
    5: writeln('Мизинец');
  end;
  
  readln;
end.

Пример вывода:

Copy code
Средний палец