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.
Объяснение кода листинга программы
- Создаётся функция Min, которая принимает два аргумента типа real и возвращает real. Внутри функции происходит сравнение двух аргументов и присваивание переменной min одного из них в зависимости от результата сравнения.
- Создаётся переменная min типа real.
- Выводится приглашение для ввода пяти вещественных чисел.
- Числа a, b, c, d, e считываются из стандартного ввода.
- Выводится сообщение о минимальном значении из каждой пары введенных чисел.
- Выводится сообщение о минимальном значении из всех пяти пар введенных чисел.