Proc11. Описать процедуру Minmax($$X$$, $$Y$$), записывающую в переменную $$X$$ минимальное из значений $$X$$ и $$Y$$, а в переменную $$Y$$ — максимальное из этих значений ($$X$$ и $$Y$$ — вещественные параметры, являющиеся одновременно входными и выходными). Используя четыре вызова этой процедуры, найти минимальное и максимальное изданных чисел $$A$$, $$B$$, $$C$$, $$D$$.
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 |
program Proc11; procedure Minmax(var X,Y:Real); begin if X>Y then begin X:=X+Y; Y:=X-Y; X:=X-Y; end; end; var A,B,C,D:Real; begin Write('A :'); Readln(A); Write('B :'); Readln(B); Write('C :'); Readln(C); Write('D :'); Readln(D); Minmax(A,B); Minmax(C,D); Minmax(A,C); Minmax(B,D); Writeln('min: ',A,'; max: ',D); end. |
Другие задачи из раздела Proc можно посмотреть здесь.
Комментарии: