Циклическая структура

[overlor]

Помогите с этой задачкой пожалуйста!!!!
Задача.doc

[overlor]

Проверьте, где ошибка....Заранее спасибо...))

program zadanie6;
uses crt;
const t=0.00000001;
var  x,xn,xk,h,A,B,C,y:real;
BEGIN
 clrscr;
 write('еn=');
 readln(xn);
 write('еk=');
 readln(xk);
 write('h=');
 readln(h);
 x:=xn;
 while (x<=xk) do
   begin
      if (exp(ln(2)*x)-3*cos(x))<>0 then
        begin
         C:=exp(ln(2)*x)-3*cos(x);
         if abs(c)>t then
         A:=exp(ln(2)*(-cos(x)));
         B:=exp(ln((0.75-sqr(x)*x)*x)*1/3);
         y:=(A-B)/C;
         writeln('При x=',x:7:3,'  y=',y:10:5)
       end
      else
         writeln('При x е=',x:7:3,'  y - не существует');
      x:=x+h;
      end;
 readkey;
END.

[ViktorR]

Нет ясности в вопросе.
Но! Тем не менее.
При x<0 и x > (корень куб из 0.75 =0.9 (примерно)) подкоренное выражение меньше нуля и вычисление Ln() даст ошибку.
Нужны дополнительные ограничения на вычисление выражения:

B:=exp(ln((0.75-sqr(x)*x)*x)*1/3);

Используй abs() и добавляй минус.

Так думаю ...

[overlor]

в смысле добавляй минус.....???

[ViktorR]

Но ведь там есть кусочек, где подкоренное выражение положительное.
Просто надо его (подкоренное выражение) вычислить. Если оно < 0 то берём abs() и затем вычисляем корень и умножаем на минус 1, например.
А вот если оно положительное, то оставляем как есть.
Поскольку корень кубический, то минус можно вынести

Вот только не ясно, а где собственно ошибка?
При вычислении этого выражения ?


Как то так ...

[overlor]

Извини за наглость, но все равно не особо понял как написать....,можешь написать этот момент пожалуйста!!!!