PascalABC.NET Вычислить сумму ряда.

[ser18]

S:=∑(∞, k=1) sin(K*X)/K! При x=2,1; EPS=10^-5.
С точностью до члена ряда, меньшего по абсолютной величине значения EPS. Определить Номер элементов ряда, начиная с которого его абсолютное значение меньше 10^-3.

[Аватар]

http://programmersforum.ru/showthread.php?t=70310

[min@y™]

PascalABC.NET

вас там под дулом автомата заставляют на этой кожаной флейте играть? неужели альтернативы нет?

[ser18]

Нет, у нас абс, да и в паскале я не силён.
Было бы лучше если бы попроще, с помощью элементарных команд. Видел, как решают ряды, так так капец просто

[min@y™]

да и в паскале я не силён.

а остальные как лабы пишут?

[ser18]

Кто-то покупает, кто-то просит других, кто-то сам, я пытаюсь разобраться. Забил на паскаль в школе, теперь проблемы.

[type_Oleg]

Это типовая задача. Вам дали ссылу, смотрите.
Только факториал лучше не вычислять. Лучше ввести промежуточную переменную t - знаменатель .

 t:=1;
 s:=Sin(x);
 k:=1;
 repeat 
  Inc(k);
  t:=t*k;
  s:=s+Sin(k*x)/t;
// и т.д.

[ser18]

спасибо

[CMY_3]

вроде так

const
  eps = 1e-5;
var
  x,s,p : real;
  k : integer;
begin
  x:=2.1;
  s := sin(x); k := 1; p:=sin(x);
  while abs(p)>eps do begin
    if abs(p) < 1e-3 then writeln('Номер элемента, меньше 0.001 ',k);
    p := p * sin(k*x+x)/((k+1)*(sin(k*x)));
    k := k + 1;
    s := s + p;
  end;
  writeln('s = ',s:7:5);
  readln;
end.

[ser18]

Да, спасибо, только там нет факториала, и зачем readln в конце? факториал у меня выглядит вот так:

program five;
var
K,i,n,K1:word;
EPS,S,X:real;
begin
K1:=1;
readln(n);
for i := 1 to n do begin
K1 := K1 * i;
end;

там нужно как-то привязать факториал к K, которое в свою очередь нарастает на 1 каждый раз