Написать процедуру и функцию, находящие среднее арифметическое двух чисел.

Function avg (a, b:real) : real;

begin

avg: = (a+b) / 2

end;

procedure avg2 (a, b:real; var c:real) ;

begin

c: = (a+b) / 2

end;

var

a, b, c:real;

begin

Write ('Введите два произвольных числа: ') ; Readln (a, b) ;

Writeln ('Среднее значение, найденное функцией: ', avg (a, b)) ;

avg2 (a, b, c) ;

Writeln ('Среднее значение, найденное процедурой: ', c)

end.

Тестовое решение:

Введите два произвольных числа: 11.7 14.519

Среднее значение, найденное функцией: 13.1095

Среднее значение, найденное процедурой: 13.1095

Function average (x, y: real) ;

var c: real;

begin

c : = (x + y) / 2;

writeln ('Среднее арифметическое двух чисел с помощью функции: ', c) ;

end;

procedure average_p (x, y: real) ;

var c: real;

begin

c : = (x + y) / 2;

writeln ('Среднее арифметическое двух чисел с помощью процедуры: ', c) ;

end;

var a, b: real;

begin

write ('Введите число a: ') ;

readln (a) ;

write ('Введите число b: ') ;

readln (b) ;

average (a, b) ;

average_p (a, b) ;

end.