В чем ошибка!?

[Файзулка]

program Tabf;
  uses crt;
   var c,b,h,x,y: real;
   const a=3; d=5.5;
    begin
     ClrScr;
     writeln('vvedite c=');
     readln(c);
     writeln('vvedite b=');
     readln(b);
     writeln('vvedite h=');
     readln(h);
     x:=c;
    writeln( ' x    |   y ');
     while x<=b do
      begin
        if x>=1 then y := abs(sin(x)) + exp(ln((exp(ln(x)*4) + a*x))/3) else y:=d*ln(sqr(x));
        writeln( x:4:2,y:9:2);
        x:=x+h;
      end;
     readln;
    end.

1.JPG Нужно эту функцию протабулировать.

[p51x]

А как вы определили, что есть ошибка? Про радианы не забыли?

[Файзулка]

После того как ввожу данные вылетает ошибка Invalid floatig point operation!

[Sonza]

а что это за язык??)) чет не пойму((

[Z1000000]

функция y:=d*ln(sqr(x)) не определена в точке 0. Вот и вылетает.

[Stilet]

После того как ввожу данные вылетает ошибка Invalid floatig point operation!

Какие данные? Я ввел вот что:

vvedite c=
1
vvedite b=
2
vvedite h=
3
x | y
1.00 2.43

чет не пойму((

Это паскаль, а ты правила не нарушай - закрою.