Вычислить значение выражения - Pascal ABC (14146)

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

Вычислить P=(b-x)f(n)+(b-x)F(n+1)+(b-x)f(n+2) где функция пользователя f(a)=2ab/a+bx n=3 x=0,1264 b=0,4 Помогите пожалуйста написать программу на Паскале. Срочно!


textual

Код к задаче: «Вычислить значение выражения - Pascal ABC (14146)»

const n=3;
      x=0.1264;
      b=0.4;
function f(a:real):real;
begin
f:=2*a*b/(a+b*x);
end;
var p:real;
begin
p:=(b-x)*f(n)+(b-x)+f(n+1)+(b-x)*f(n+2);
write('P=',p:0:4);
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

12   голосов, оценка 4.250 из 5

Источник
Похожие ответы