Вычислить значение функции - PascalABC.NET (24842)

Формулировка задачи:

По данным значениям аргументов a и b вычислить значение функции f(a,b). При организации вычисления необходимо выявить сходные по своей схеме последовательности операций различающиеся лишь операндами, и представить их в виде отдельных функций. Аргумента должны принадлежать области определения функции:

Решение задачи: «Вычислить значение функции»

Листинг программы

function f(a,b,s:real):real;
begin
f:=power(a,s)+power(b,s)
end;
var a,b,y:real;
begin
repeat
writeln('Введите 2 положительных числа');
readln(a,b);
until(a>0)and(b>0);
y:=f(a,b,1/2)/f(a,b,-2)*f(a,b,-1/2)/f(a,b,2);
write('y=',y:0:3)
end.

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

В данном коде реализована функция вычисления значения функции y по заданным параметрам a, b и s. Перед этим пользователю предлагается ввести два положительных числа, после чего происходит расчет значения функции y по формуле: y = (power(a,s) + power(b,s)) / (power(a,s-2) * power(b,s-1)) Затем результат выводится на экран.