Функция суммы .

[Павел58]

Ребят подскажите пожалуйста что не так . препод не принимает говорит что не правильно...

Program Lab;
var n: integer;
x,M: real;
function Sum ( n: integer; x: real): real;
var U,S: real;
k:integer;
begin
U:=cos(x)/2;
S:=cos(x);
for k:=1 to n do
begin
U:=U*cos(x)/(k+1);
S:=S+U;
end;
Sum:=S;
end;
begin
writeln ('vv n,x');
readln (n,x);
M:=Sum(n,x);
writeln('S=',M);
end.

[BDA]

А Вы проверили, что счет неправилен?
Возьмите простой пример и рассчитайте его на бумаге.
По-моему, U:=cos(x); S:=0;.

[paves]

Разбей задачу на более простые шаги:
1. Возведение в степень числа.
2. Нахождение факториала числа.
3. Нахождение суммы.

[Павел58]

Не очень понял. Может кто нибудь объяснить что именно не так. ну кроме того что уже сказали. Просто у меня процедура еще эту же сумму . ну мне кажется что ответ совпасть должен или нет? N=8,x=0.1

[BDA]

Вы проделали расчеты на бумаге?
При внесении упомянутых мною изменений расчет при N = 2, x = Pi/3 совпал с предполагаемым.
paves, как раз таки не нужно слишком упрощать задачу - будет уйма лишних вычислений.

[Павел58]

во, спасибо. все работает. сам посчитал сумму первых двух и потом в паскале- совпали=> все верно=)

[Павел58]

Ребят а если не сложно подскажите что не правильно в процедуре для этого же ряда =)

var n: integer;
x,M: real;
procedure SumRow ( n: integer; x: real;var Sum:real);
var S1: real;
k:integer;
begin
S1:=cos(x);
sum:=0;
for k:=2 to n do
begin
sum:=sum+s1;
S1:=S1*cos(x)/(k+2);
end;
Sum:=S1;
end;
begin
writeln ('vv n,x');
readln (n,x);
Sumrow(n,x,M);
writeln(M);
end.

[BDA]

var
  n: integer;
  x, M: real;

procedure SumRow(n: integer; x: real; var Sum: real);
var
  k: integer;
  s: real;
begin
  s := cos(x);
  Sum := 0;
  for k := 1 to n do
  begin
    s := s * cos(x) / (k + 1);
    Sum := Sum + s;
  end;
end;

begin
  writeln('vv n,x');
  readln(n, x);
  Sumrow(n, x, M);
  writeln(M:0:3);
end.