Доброго времени суток, нужна помощь в поиске ошибки в ОДЗ.
Вот текст задачи:
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.
Заранее спасибо