Вычисление суммы ряда Опции

[Света]

Составить программу для вычесления суммы ряда. Произведение от n до k=1*(1/k+1-cos x)
(cos в степени k)

[volvo]

Что-то в условии не совсем ясно.

Произведение от N до ... чего? И заодно напишите саму функцию (используя символ ^ как знак возведения в степень...)

[Света]

n
П*(1/k+1-cos^k X)
k=1
Надеюсь, что поймете!

[volvo]

Вот так:

Код

const
 n = 20;
var
 s, x: real;
 k: integer;

{ Функция для вычисления степени X числа A...
  способом Power = Exp(X * Ln(A)) здесь пользоваться нельзя,
  т.к. Cos(x) может быть отрицательным }
function Power(a: real; x: integer): real;
 var
   p: real;
   i: integer;
 begin
   p := 1;
   for i := 1 to x do
     p := p * a;
   Power := p
 end;

begin
 write('x(grad) = '); readln(x);
 for k := 1 to n do
   s := s + ((1/k) + 1 - Power(cos(x / (180/Pi)), k));
 writeln( 'sum = ', s:10:5 );
 readln
end.

[Света]

СПАСИБО. Вы-супер!