Даны действительные числа 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.

Объяснение кода листинга программы

  1. Объявлена функция f(a,b,c:real):real:=(aa+bb+c*c)/(1+abs(a+b+c));
  2. В основной программе происходит считывание трех действительных чисел x, y, z с помощью функции ReadReal,
  3. Затем вычисляется выражение f(xy, yz, x+y+z) + 2f (x-y, y-z, x-z),
  4. И результат выводится на экран с помощью функции writeln.

Оцени полезность:

10   голосов , оценка 3.9 из 5
Похожие ответы