Напишите функцию, возвращающую большее из двух вещественных чисел, полученных в качестве аргумента.
Решение:
1
2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
program functions_1;
uses crt; var a, b: real; function Max(a, b: real): real; begin if a>b then Max:=a else Max:=b end; begin clrscr; write(‘A > ‘); read(a); write(‘B > ‘); read(b); write(Max(a, b),‘ — большее число’); readkey; end. |