Задача Паскаля

[MoLoDoI]

Не могу найти ошибку. При вводе 0 и отрицательного числа пишет: ошибка:вещественное деление на 0 и неверная вещественная операция, соответственно...

var x,y:real;
begin
readln(x);
if (1-exp(1/3*ln(x))>0) and (exp(1/3*ln(x))<1) and (x<1)
then
begin
y:=ln(1-exp(1/3*ln(x)));
writeln('y=', y:10:3);
end
else
writeln('y no');
readln;
end.

[VIK_aka_TOR]

логарифма от нуля и отрицательных чисел не существует... перепроверте свое задание, там должен быть указан промежуток, отрезок где эта функция исполльзуется... логарифмы берутся от чисел положительных...

[Serge_Bliznykov]

кросспост.

ТЕМА ЗАКРЫТА