См. решение во вложении. Всего возможно три варианта
//Z(x)=cos(2x)sin(x),если переменная х меняется в интервале [-5;5] с шагом hx=0.345
PROGRAM B07;
CONST
min=-5;
max=5;
hx=0.345;
VAR
x,z,k:real;
BEGIN
x:=min;
while (x<=max) do begin
writeln ('x=', x:6:3, ' ', cos(2*x)*sin(x), ' ' );
x:=x+hx;
end;
END.
1) <span>I III V VII
2) </span><span>13,5
3) 340
4) 15410</span>
Во free pascal?
Если хоче порисовать то скачай Basic