Question

Напиши программу Напишите функцию, которая вычисляет сразу максимальное и минимальное из трёх чисел. (Используйте изменяемые параметры.) Паскаль. Помогите пожалуйста! Очень нужно.

Answer 1

Ответ:

Объяснение:

function min(a,b,c:integer);

begin

if(a<b) and (a<c) then min:=a

else if (b<a0 and (b<c) then min:=b

else min:=c;

end;

function max(a,b,c:integer): integer;

begin

if (a>b) and (a>c) then max:=a

else if (b>a) and (b>c) then max:=b

else max:=c;

end;

var a,b,c:integer;

begin

readln(a,b,c);

writeln('Минимальное значение= ',min(a,b,c));

writeln('Максимальное значение= ',max(a,b,c));

end.

Answer 2

Конечно, помогу! Ниже приведен пример программы на языке Паскаль, реализующей функцию для вычисления максимального и минимального из трех чисел с использованием изменяемых параметров (var):

pascalCopy code
program MaxMinThreeNumbers;

// Прототип функции для вычисления максимального и минимального чисел
procedure FindMaxMin(var a, b, c, max, min: Integer);

var
  num1, num2, num3, maximum, minimum: Integer;

begin
  // Вводим три числа с клавиатуры
  WriteLn('Введите первое число:');
  ReadLn(num1);
  WriteLn('Введите второе число:');
  ReadLn(num2);
  WriteLn('Введите третье число:');
  ReadLn(num3);

  // Вызываем функцию для поиска максимального и минимального чисел
  FindMaxMin(num1, num2, num3, maximum, minimum);

  // Выводим результаты
  WriteLn('Максимальное число: ', maximum);
  WriteLn('Минимальное число: ', minimum);
end;

// Функция для вычисления максимального и минимального чисел
procedure FindMaxMin(var a, b, c, max, min: Integer);
begin
  // Находим максимальное число
  max := a;
  if b > max then
    max := b;
  if c > max then
    max := c;

  // Находим минимальное число
  min := a;
  if b < min then
    min := b;
  if c < min then
    min := c;
end;

begin
  // Вызываем основную часть программы
  MaxMinThreeNumbers;
end.

Программа позволит вам ввести три числа с клавиатуры и затем выведет максимальное и минимальное из них.