Question

Напишите функцию, вычисляющую минимальное значение из двух чисел. С помощью этой функции вычислите минимальное значение из 10 чисел. (Паскаль)

Answer 1

Ответ:

Function min(a, b:Integer): Integer;

Begin

   if a > b then

       min := b

   else

       min := a;

end;

Begin

   Write(min(1, min(2, min(3, min(4, min(5, min(6, min(7, min(8, min(9, 10))))))))));

end.

Объяснение:

Чтобы найти минимум из нескольких значений, нужно передавать аргументом функции эту же функцию, но со следующим значением. На русском: Мы сравниваем не 8, 9 и 10, а 8 и результат сравнения 9 и 10 (результат получаем с помощью функции)

Answer 2

Вот пример кода на языке Паскаль для создания функции, вычисляющей минимальное значение из двух чисел, и применения этой функции для вычисления минимального значения из 10 чисел:

program MinValue;

function Min(a, b: Integer): Integer;
begin
  if a < b then
    Min := a
  else
    Min := b;
end;

var
  numbers: array[1..10] of Integer;
  i, minValue: Integer;

begin
  // заполнение массива числами
  for i := 1 to 10 do
  begin
    numbers[i] := Random(100); // генерация случайных чисел от 0 до 99
    Write(numbers[i], ' ');
  end;
  
  // вычисление минимального значения из 10 чисел
  minValue := numbers[1];
  for i := 2 to 10 do
  begin
    minValue := Min(minValue, numbers[i]);
  end;
  
  Writeln;
  Writeln('Минимальное значение из 10 чисел: ', minValue);
end.

Этот код создает функцию Min, которая принимает два целых числа и возвращает минимальное из них. Затем в основной программе задается массив из 10 чисел, заполняется случайными значениями и вычисляется минимальное значение с помощью функции Min.