Составить программу для вычесления суммы ряда. Произведение от n до k=1*(1/k+1-cos x) (cos в степени k)
Полная версия: Вычисление суммы ряда
Составить программу для вычесления суммы ряда. Произведение от n до k=1*(1/k+1-cos x) (cos в степени k)
Что-то в условии не совсем ясно.
Произведение от N до ... чего? И заодно напишите саму функцию (используя символ ^ как знак возведения в степень...)
Произведение от N до ... чего? И заодно напишите саму функцию (используя символ ^ как знак возведения в степень...)
n
П*(1/k+1-cos^k X)
k=1
Надеюсь, что поймете!
П*(1/k+1-cos^k X)
k=1
Надеюсь, что поймете!
Вот так:
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.
Код
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.
СПАСИБО. Вы-супер!
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.