вычислить сумму положительных и сумму отрицательных значений функции...

Question

вычислить сумму положительных и сумму отрицательных значений функции z=cos(nx+a)sin(nx-a), где n=1,2,...10

Answer 1

Надеюсь мое решение правильное, просто не знал что делать с переменными a и x

 

Program Pr1;
uses crt;
var n,z,x,a,s1,s2:real;
Begin
clrscr;
readln(x,a);
z:=1;
n:=1;
s1:=0;
s2:=0;
while n<=10 do begin<br> z:=cos(n*x+a)*sin(n*x-a);
if z>0 then s1:=s1+z
else s2:=s2+z;
n:=n+1;
end;
writeln('+ ',s1:8:3,' - ',s2:8:3);
end.