Question

Напишите функцию function min (a,b,c,d: integer):integer (Pascal), находящую наименьшее из четырех данных чисел.

Answer 1

Function min(a,b,c,d: integer): integer;
begin
if a>b then a:=b;
if a>c then a:=c;
if a>d then a:=d;
min:=a
end;

Answer 2

Конечно, вот пример функции на Pascal, которая находит наименьшее число из четырех данных чисел:

cssCopy code
function min(a, b, c, d: integer): integer;
var
  minValue: integer;
begin
  minValue := a;
  if b < minValue then
    minValue := b;
  if c < minValue then
    minValue := c;
  if d < minValue then
    minValue := d;
  Result := minValue;
end;

Как это работает: мы начинаем с того, что присваиваем переменной minValue значение первого аргумента a. Затем мы сравниваем minValue с каждым из оставшихся аргументов (b, c, d) и, если какой-то аргумент оказывается меньше, то присваиваем его значение minValue. В конце функция возвращает значение minValue.