Описать процедуру Minmax(x,y) записывающую в переменную Х минимальное из значений Х и Y, а в переменную Y – максимальное из этих значений. - Pascal
Формулировка задачи:
Описать процедуру Minmax(x,y) записывающую в переменную Х минимальное из значений Х и Y, а в переменную Y – максимальное из этих значений (X и Y- вещественные параметры, являющиеся одновременно входными и выходными) использовать четыре вызова этой процедуры, написать минимальное и максимальное из данных чисел A,B,C,D.
кто нибудь понимает как это решать? если знаете, подскажите скажу спасибо огромное
Решение задачи: «Описать процедуру Minmax(x,y) записывающую в переменную Х минимальное из значений Х и Y, а в переменную Y – максимальное из этих значений.»
textual
Листинг программы
program pr1; var a,b,c,d:real; procedure Minmax(var x,y:real); var cop:real; begin if x>y then begin cop:=x; x:=y; y:=cop; end; end; begin readln(a,b,c,d); Minmax(a,b);//меняем местами a и b, если a>b Minmax(c,d);//меняем местами c и d, если c>d Minmax(b,d);//теперь из двух выберем максимум Minmax(a,c);//из двух выберем минимум writeln('Минимум- ',a); writeln('Максимум- ',d); end.
Объяснение кода листинга программы
- Создается программа pr1, которая содержит переменные a, b, c и d типа real.
- Создается процедура Minmax, которая принимает две переменные x и y типа real.
- Внутри процедуры проверяется, больше ли значение x значения y. Если это так, то присваивается переменной cop значение x, а x и y меняются местами.
- Код внутри процедуры не выполняется, если условие из пункта 3 не выполняется.
- Программа читает значения a, b, c и d с помощью функции readln.
- Вызывается процедура Minmax сначала для пары переменных a и b, затем для пары переменных c и d, и, наконец, для пары переменных b и d.
- После всех вызовов процедуры Minmax выводятся на экран значения a и d с помощью функции writeln.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д