Вычисление максимального из двух чисел - Pascal ABC

Узнай цену своей работы

Формулировка задачи:

Задание сделать 2 способами:с помощью процедуры и функции.Реализацию подпрограмм и их вызов сделать в одной программе.

Само задание:

Составить подпрограмму вычисления максимального из двух чисел.Используя её,вычислить максимальное среди чисел. Программа не очень трудная.Буду очень благодарен за блок схему. ( Пример, процедура-слева,функция-справа,а снизу идёт уже в один столбец основная программа с Begin по End) Огромное спасибо!

Решение задачи: «Вычисление максимального из двух чисел»

textual
Листинг программы
function MaxF(const x, y: Real): Real;
var
    Result: Real;
begin
    if (x > y)
    then
        Result := x
    else
        Result := y;
    MaxF := Result;
end;
 
procedure MaxP(x, y: Real; var Result: Real);
begin
    if (x > y)
    then
        Result := x
    else
        Result := y;
end;
 
var
    max: Real;
begin
    WriteLn('MAX=', MaxF(MaxF(13, 7), 77):0:2);
    MaxP(13, 7, max);
    MaxP(max, 77, max);
    WriteLn('MAX=', max:0:2);
end.

Объяснение кода листинга программы

В данном коде представлен алгоритм вычисления максимального из двух чисел. Функция MaxF(const x, y: Real): Real; выполняет следующие действия:

  • Если x больше y, то результат присваивается x.
  • Если y больше x, то результат присваивается y.
  • Результат сохраняется в переменной MaxF. Процедура MaxP(x, y: Real; var Result: Real); выполняет следующие действия:
  • Если x больше y, то результат присваивается x.
  • Если y больше x, то результат присваивается y.
  • Результат сохраняется в переменной Result.
  • Значение переменной Result присваивается переменной MaxF. Далее, в основной части кода используются две функции MaxF и MaxP для вычисления максимального из двух чисел. Сначала вычисляется максимальное значение из двух чисел 13 и 7, затем это значение присваивается переменной max. Затем, второе число 77 сравнивается с max, и если 77 больше max, то значение max обновляется. В конце выводится значение max.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

8   голосов , оценка 4.125 из 5
Похожие ответы