Задание такое: определить во сколько раз произведение положительных значений функции отличается от модуля произведения отрицательных значений функции y=((x^3)-1)sin2x на отрезке изменения аргумента от xn до xk с интервалом h.
В общем, я частично написала, а вот про произведение значений что-то никак не соображу. Помогите пожалуйста))
program zadacha;
uses
crt;
var x,y,xn,xk,h:real;
pol,otr:integer;
begin
write('x nachalnoye= ');
readln (xn);
write('x konechnoye= ');
readln (xk);
write('chag= ');
readln (h);
pol:=0;
otr:=0;
x:=xn;
while x<xk do
begin
y:=(sqr(x)*x-1)*sin(2*x);
if y<0 then otr:=otr+1 else pol:=pol+1;
writeln('x= ',x:3:3, ' y= ', y:3:3);
x:=x+h;
end;
readkey;
end.
var pol, otr: real;
...
pol:=1; { все-таки, подсчет произведений, а не сумм }
otr:=1;
x:=xn;
while x<xk do
begin
y:=(sqr(x)*x-1)*sin(2*x);
if y<0 then otr:=otr*y else if y > 0 then pol:=pol*y;
writeln('x= ',x:3:3, ' y= ', y:3:3);
x:=x+h;
end;
{ Ну вот, произведения посчитаны, теперь находим pol / abs(otr) }