АЧ
Алексей Чубыкин
Для уверенности лучше так:
y:=(b*b+sqrt(abs(x-a))) / (2*sin(x*x)*sin(x*x)*sin(x*x))
А то ln() от отрицательных чисел вышибет.. .
наверное так: (b*b+sqrt(abs(x-a)))/(2*(sin(sqr(x)))^3)
y:=(b*b+sqrt(abs(x-a)))/(2*exp(ln(sin(x*x)) * 3))
Светлана Коваленко, чего это у вас указатель на 3? Вот, что значит женщина-программист.
y:=(Sqr(b)+Sqrt(Abs(x-a)))/(2*Sin(Sqr(x))*Sqr(Sin(Sqr(x))));
Правильнее будет вот так:
y := sin(x*x);
if y = 0 then WriteLn('Решений нет! ')
else y := (b*b + sqrt(abs(x-a))) / 2 / y / y / y;
… иначе может возникнуть деление на ноль!