Delphi нужно найти ошибку в коде

[Mellnon]

uses
  System.SysUtils;

var x, a, c, w, e : Real;


begin
  try
    if x<c then
    ln(sqr(x)+sqr(a));
    if x=c then
    sin(sqr(x))/cos(sqr(x)) + exp(a);
    if x>c then
    sin((c*x)/2);
    writeln ('w=', w:5:2);
    readln;

  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

Пишет что в строке "sin(sqr(x))/cos(sqr(x)) + exp(a);"
Перепробовал много вариантов, но ошибку никак не исправить, при компиляции не выводит никаких ошибков, но при старте пишет что есть одна ошибка в этой строке. Если чего мне нужно было разложить формулу" tgx^2+e^a"
______________________
Форматируйте код и используйте тег [CODE] (кнопка [CODE] в форме сообщения) при вставке кода на форум. Подробнее в FAQ

[Вадим Мошев]

Вы переменные не инициализируете. Оперируете ими в коде, но значения им не придаёте. При таким условиях спокойно может взяться логарифм от нуля.

[p51x]

А что вы хотите добится, если значение выражения никуда не сохраняете и не выводите?

[digitalis]

    if x<c then
    ln(sqr(x)+sqr(a));

Вот что это такое? Условный оператор? Так после условия д.быть исполняемый оператор. ln(sqr(x)+sqr(a)) - это какой, простите, оператор? Присваивания? А где переменная, где := ? Тут до вывода дело не доходит, оно не компилируется, бо синтаксическая ошибка.

[Desc]

Почитайте вот эти опусы:
Формулы в Delphi
Delphi Математические вычисления

[Mellnon]

Боже, спасибо, проглядел такую элементарную ошибку

[digitalis]

Ну интересно взглянуть на исправленный результат. Ну и что меня Богом назвал - мелочь, а приятно