Pascal ABC Где ошибка?

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

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

Окно вывода: Введит вещественнве числа a,b,c,d,e: 60 50 40 90 10 Минимальное из 60 50 40 90 =40 Минимальное из 60 50 40 10 =10 Минимальное из 60 40 90 10 =10 minimalnoe iz 40 10 10 =-1 (нужно что бы здесь было минимальное из (абсд)(абсе)(абде)) Не могу додумать((

Решение задачи: «Pascal ABC Где ошибка?»

textual
Листинг программы
function Min(a,b:real):real;
begin
if a<b then min:=a else min:=b;
end;
var a,b,c,d,e:real;
begin
writeln('Введите вещественные числа a,b,c,d,e:');
readln(a,b,c,d,e);
writeln('Минимальное из ',a,' ',b,' ',c,' ',d,' =',Min(Min(a,b),Min(c,d)));
writeln('Минимальное из ',a,' ',b,' ',c,' ',e,' =',Min(Min(a,b),Min(c,e)));
writeln('Минимальное из ',a,' ',c,' ',d,' ',e,' =',Min(Min(a,c),Min(d,e)));
writeln('Минимальное из ',Min(Min(a,b),Min(c,d)),' ',Min(Min(a,b),Min(c,e)),' ',
Min(Min(a,c),Min(d,e)),'=',Min(Min(Min(Min(a,b),Min(c,d)),Min(Min(a,b),Min(c,e))),
Min(Min(a,c),Min(d,e))));
end.

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

  1. Создаётся функция Min, которая принимает два аргумента типа real и возвращает real. Внутри функции происходит сравнение двух аргументов и присваивание переменной min одного из них в зависимости от результата сравнения.
  2. Создаётся переменная min типа real.
  3. Выводится приглашение для ввода пяти вещественных чисел.
  4. Числа a, b, c, d, e считываются из стандартного ввода.
  5. Выводится сообщение о минимальном значении из каждой пары введенных чисел.
  6. Выводится сообщение о минимальном значении из всех пяти пар введенных чисел.

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

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