Задание:
Вычислить сумму положительных и сумму отрицательных значений функции z=cos (nx+a) sin (nx-a), гдеn=1,2,… 10
Решение:
Надеюсь мое решение правильное, просто не знал что делать с переменными a и x Program Pr1; uses crt; var n,z,x,a,s1,s2: real; Beginclrscr; readln (x,a); z: =1; n: =1; s1: =0; s2: =0; while n <= 10 do begin 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.
Знаете другой ответ?