Вычислить значение функции - Pascal ABC (14785)

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

Даны действительные числа a, b. Получить |y(ln(a), b+1) - y(b+1, a),где y(p,r)=(p2-r2)/(p2+2pr+3r2+4) (вычисляется с помощью вспомогательной функции).

Код к задаче: «Вычислить значение функции - Pascal ABC (14785)»

textual
function y(p, r: real): real;
begin
  y := (p*r-r*r)/(p*p+2*p*r+3*r*r+4)
end;
 
var
  a, b: real;
  
begin
  repeat
    write('a = ');
    readln(a)
  until a > 0;
  write('b = ');
  readln(b);
  writeln('Результат: ', y(ln(a), b+1) - y(b+1, a):0:5);
  readln
end.

9   голосов, оценка 3.778 из 5


СОХРАНИТЬ ССЫЛКУ