Даны действительные числа x, y, z. Получить f (xy, yz, x+y+z) + 2f (x-y, y-z, x-z) - PascalABC.NET
Формулировка задачи:
Помогите пожалуйста с домашним заданием.
Решение задачи: «Даны действительные числа x, y, z. Получить f (xy, yz, x+y+z) + 2f (x-y, y-z, x-z)»
textual
Листинг программы
function f(a,b,c:real):real:=(a*a+b*b+c*c)/(1+abs(a+b+c)); begin var x:=ReadReal('x='); var y:=ReadReal('y='); var z:=ReadReal('z='); writeln('f=',f(x*y,y*z,x+y+z)+2*f(x-y,y-z,x-z)); end.
Объяснение кода листинга программы
- Объявлена функция f(a,b,c:real):real:=(aa+bb+c*c)/(1+abs(a+b+c));
- В основной программе происходит считывание трех действительных чисел x, y, z с помощью функции ReadReal,
- Затем вычисляется выражение f(xy, yz, x+y+z) + 2f (x-y, y-z, x-z),
- И результат выводится на экран с помощью функции writeln.