Изучение базовой структуры

[Владимир12]

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

[Stilet]

Ты хоть язык покажи )
А еще лучше бы увидеть твои попытки и наработки.

[Владимир12]

free pascal))

program lab1; 
uses crt; 
var x:real; 
begin 
clrscr; 
readln(x); 
if x<-8 then write('y=', cos(x)) else 
if (x>=-8) and (x<-3) then write('y=', (x*x)/(x*x*x)+x*x*x) else 
if x>=-3 then write('y=', (x/power(x,1/3))*(ln(x)/(x*x*x))); 
end;
readln; 
end.

[Stilet]

if x>=-3 then write('y=', (x/power(x,1/3))*(ln(x)/(x*x*x)));
end;

End убери.

[Владимир12]

на power ругается)) надо заменить чем то

[ежик01]

попробуй подключить
uses math

[Владимир12]

тоже самое))

[Stilet]

Фрипаскаль на Math и power() не должен ругаться...