Функция, возвращающая среднее арифметическое двух аргументов
Написать функцию, которая возвращает среднее арифметическое двух переданных ей аргументов (параметров).
var
a, b: real;
function average(c,d: real): real;
begin
average := (c + d) / 2;
end;
begin
readln(a,b);
writeln(average(a,b):5:2);
end.
Пример выполнения кода:
1.25 2.03
1.64
В программе создается функция average, имеющая два вещественных параметра (c и d) и возвращающая также вещественное число. В теле функции вычисляется среднее арифметическое аргументов, оно присваивается имени (идентификатору) функции. В языке программирования Pascal это означает, что присвоенное имени функции значение будет передано в основную ветку программы.
В основной ветке переменным a и b присваиваются значения, введенные пользователем. Далее вызывается функция average()
, которой в качестве аргументов передаются значения этих переменных. В данном случае вызов функции не присваивается никакой переменной, так как возвращенное значение сразу будет выведено на экран.