Ошибка в ОДЗ

[Redhils123]

Доброго времени суток, нужна помощь в поиске ошибки в ОДЗ.

Вот текст задачи:
1.Написать программу, вычисляющую значение функции:
ln(x)*x^3-23, если x<-6;
(x^(0,1*x)/x^2)*(-x/18), если -6<=x<-2;
(cos(2*x)/e^x)*(sin(x)/sin(x)), если -2<=x.
2.Вычислить значение функции на интервале [-8;0] с шагом 0,1


Текст программы:

program lab1;
uses Math;
const step=0.1;
var x:real;
procedure mes(x,f:real);
begin
writeln ('x=',x:0:2,'f(x)=',f:0:2);
end;
begin
x:=-8;
while x<=0 do begin
if x<-6 then begin
if x<=0 then writeln('Ne podhodit po ODZ')
else mes(x, (ln(x)*Power(x,3)-23));
end
else if x<-2 then begin
if x=0 then writeln('Ne podhodit po ODZ')
else mes(x, (Power(x,0.1*x)/Power(x,2))*(-x/18));
end
else begin
if x<=0 then writeln('Ne podhodit po ODZ')
else mes(x, (cos(2*x)/exp(x))*(sin(x)/sin(x)));
end;
x:=x+step;
end;
end.

Заранее спасибо

[Little_Roo]

у всех пользователей сайта уже мозоль на языке... или клавиатуре - используйте для своих кусков кода теги <code> </code>
Если уж пользуете модуль math, то зачем использовать тупой басиковский синтаксис...тильдочки - это не кошерно...
Есть же нормальный вывод результатов - х в степени у = x**y

И что есть, видимо функция, Power ?

[Дож]

Дубликат: viewtopic.php?f=13&t=42809

Если уж пользуете модуль math, то зачем использовать тупой басиковский синтаксис...тильдочки - это не кошерно...

Это в формулировке задачи, а не в коде, и не басиковский, а кошерный LaTeX'овский синтаксис (и не тильдочка, а крышечка или циркумфлекс).

[sign]

Redhils123, уважайте читателей.

Код: Выделить всё

program lab1;
uses Math;
const step=0.1;
var x:real;
  procedure mes(x,f:real);
  begin
    writeln ('x=',x:0:2,'f(x)=',f:0:2);
  end;
begin
  x:=-8;
  while x<=0 do begin
    if x<-6 then begin
       if x<=0 then writeln('Ne podhodit po ODZ')
      else mes(x, (ln(x)*Power(x,3)-23));
    end else 
      if x<-2 then begin
        if x=0 then writeln('Ne podhodit po ODZ')
        else mes(x, (Power(x,0.1*x)/Power(x,2))*(-x/18));
      end
    else begin
      if x<=0 then writeln('Ne podhodit po ODZ')
      else mes(x, (cos(2*x)/exp(x))*(sin(x)/sin(x)));
    end;
    x:=x+step;
  end;
end.