Привет, помогите исправить ошибку в программе (протабулировать заданную функцию).

[motivator]

Вот сама задача.
Вот решение.

Program zad_1;
var
x,y: real;
begin
x:=1;
writeln('x   y');
while x<=2 do begin
y:=ln(abs(x*exp(ln(exp(1)*sqr(-x))))+((sin(exp(ln(exp(1)*x)-exp(ln(exp(1)*(-x))))\2)\((cos(exp(ln(exp(1)*x)-exp(ln(exp(1)*(-x))))\2);
writeln(x:4:1,'|',y:5:2);
x:=x+0,05
end;
end.

Ошибка в том, что постоянно просит убрать знак деления \, я не вижу где ошибка, скорее всего, когда ее исправишь появится другая, помогите исправить.

[Alex11223]

Разделите вычисление выражения на несколько частей (переменных) и будет проще.

[Aleksandr H.]

В паскале знак деления "/"

[Serge_Bliznykov]

угу. плюс надо
x:=x+0.05 (не запятая, а десятичная точка)
плюс x нужно выводить не x:4:1, а x:4:2 (нужны два знака после запятой)

и плюс куча математических ошибок в самой формуле.
ну, например,
-x^2 это не sqr(-x), это -1.0*sqr(x)

[Serge_Bliznykov]

сравните:

Program zad_1;

function tg(x:real):real;
begin
  tg := 0;
  if cos(x)=0 then WriteLn('error during calculate tg for x=',x:4:2)
  else
    tg := sin(x)/cos(x)
end;

var
  x,y: real;
begin
  x:=1.0;
  writeln('x      y');
  while x<=2 do begin
     y:=ln(abs(x*exp(-sqr(x)))) +
              tg( (exp(x) - exp(-x))/2);
     writeln(x:4:2,' | ',y:5:3);
     x:=x+0.05
  end;
end.

[motivator]

Serge_Bliznykov, спасибо, так проще, я не знал что так можно, а то замучился писать эту формулу во всю длину, да еще и с ошибками. Aleksandr H., спасибо, не заметил что \.