Вычислить значение функции - PascalABC.NET (24842)
Формулировка задачи:
По данным значениям аргументов a и b вычислить значение функции f(a,b). При организации вычисления необходимо выявить сходные по своей схеме последовательности операций различающиеся лишь операндами, и представить их в виде отдельных функций. Аргумента должны принадлежать области определения функции:
Решение задачи: «Вычислить значение функции»
textual
Листинг программы
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)) Затем результат выводится на экран.