Решение Математических Уравнений в Pascalе

[Shuler]

Вот Текст Задачи, но При Любом Значение Ввода Пишет, Что y=не сущ.

    
     var
     x,y:real;
     begin
     readln(x);
     if ((x*x-16)>=0) and ((9+x)>=0) and ((sqrt(9+x))-(sqrt(x*x-16))<>0)
     then begin
     y:=exp(1/5*ln((sqrt(9+x))-(sqrt(x*x-16))));
     writeln('y=', y:10:5);
      end
      else
      writeln('y NO');
      readln;
      end.

[VIK_aka_TOR]

вводите е те значения... введите к примеру 5... 4.6 ... на то оно и уравнение что не все подойдет... будьте впредь повнимательнее...

[ViktorR]

Не мешало бы разрисовать область допустимых значений для x.
(думаю, что это не составит труда ...)

В частности, условие:
(sqrt(9+x))-(sqrt(x*x-16))<>0
может дать и отрицательное число и тогда выражение
ln((sqrt(9+x))-(sqrt(x*x-16)))
сформирует ошибку
Попробуйте посчитать для x = -5

Т.е. выражение должно быть таким:
(sqrt(9+x))-(sqrt(x*x-16))>0

Как-то так ...

[ViktorR]

Подумал, и решил поправить.
Поскольку ищется корень 5-ой степени, то при
(sqrt(9+x))-(sqrt(x*x-16)) < 0
следует поправить знак результата.
Т.е.

if ((x*x-16)>=0) and ((9+x)>=0) and ((sqrt(9+x))-(sqrt(x*x-16))<>0)
     then begin
     y:=exp(1/5*ln(abs((sqrt(9+x))-(sqrt(x*x-16)))));
...

и затем:

if (sqrt(9+x))-(sqrt(x*x-16)) < 0 then y := -y;

Так подумалось ...