Гуру паскаля и математики, вопрос к вам: в чем трабл программы? При любом значении выдает минус бесконечность. program one;
var
x, y, a, b, c: real;
begin
write('Введите x: ');
readln(x);
write('Введите y: ');
readln(y);
if (x>0) and (x<>-4) then
begin
a:= y-sqr(abs(x));
b:= x-y/(x+sqr(x)/4);
c:= ln(abs(a*c));
write('Ответ: ');
writeln(c);
end
else // если данное, введенное пользователем, не удовлетворяет ограничению
writeln('Нет решений');
end.
var
x, y, a, b, c: real;
begin
write('Введите x: ');
readln(x);
write('Введите y: ');
readln(y);
if (x>0) and (x<>-4) then
begin
a:= y-sqr(abs(x));
b:= x-y/(x+sqr(x)/4);
c:= ln(abs(a*c));
write('Ответ: ');
writeln(c);
end
else // если данное, введенное пользователем, не удовлетворяет ограничению
writeln('Нет решений');
end.