Задача TPascal: Найти минимальное и максимальное числа

В данной статье мы рассмотрим задачу на языке программирования TPascal, которая заключается в нахождении минимального и максимального чисел из трех заданных.

Однако, дополнительным условием является ограничение на использование операторов. Нам необходимо выполнить задачу, используя не более шести операторов условия (if).

Постановка задачи

Даны три числа: a, b и c. Необходимо найти минимальное и максимальное число, используя минимальное количество операторов условия (if).

Решение задачи

Для решения данной задачи, мы можем использовать несколько вариантов подходов. Один из таких вариантов предполагает использование трех операторов условия, таких как if, для сравнения каждого числа с каждым.

Начнем с предположения, что a является минимальным числом и b является максимальным числом.
Затем, используя оператор if, проверим, если b меньше a, то поменяем значения переменных a и b. Это позволит нам найти максимальное число.
После этого, с помощью оператора if проверим, если c меньше a, то присвоим значение переменной a c, так как оно будет минимальным числом.
В завершении, используя оператор if, проверим, если c больше b, то присвоим значение переменной b c, так как оно будет максимальным числом.

Код решения на TPascal

program FindMinMax;
var
  a, b, c, min, max: integer;
begin
  { ввод трех чисел }
  write('Введите значение a: ');
  readln(a);
  write('Введите значение b: ');
  readln(b);
  write('Введите значение c: ');
  readln(c);

  { нахождение минимального и максимального числа }
  min := a;
  max := b;
  
  if b < a then
  begin
    min := b;
    max := a;
  end;
  
  if c < min then
    min := c;
  
  if c > max then
    max := c;

  { вывод результатов }
  writeln('Минимальное число:', min);
  writeln('Максимальное число:', max);
  
  readln;
end.

Таким образом, мы использовали всего четыре оператора условия (if) для нахождения минимального и максимального числа из трех заданных.