вычисление бесконечной суммы ряда

[pyzhov]

надо написать программу для вычисления бесконечной суммы ряда с заданной точностью e(e>0).

[p51x]

сколько платите?

[pyzhov]

админы, назовите раздел "платная помощь студентам".

[Stilet]

Зачем? Для этого есть раздел Фриланс.
Но раз уж ты такую панику поднял вот тебе от меня предложение решения:

MODULE q;
IMPORT StdLog;
VAR y,y0,e:REAL;i:INTEGER;

PROCEDURE so*;
VAR tree,forth:INTEGER;
BEGIN
 e:=0.01;
 tree:=3;forth:=4;
 y:=0;
 y0:=1/2;
 WHILE ABS(y-y0)>e DO
  y0:=y;
  y:=1/(tree+forth);
  tree:=tree*tree;
  forth:=forth*forth;
 END;
 StdLog.Real(y);
END so;
END q.

Вот даже ответ:

1.387020264366062E-5

[pyzhov]

Спасибо, конечно, но во-первых, у меня в паскаль абс эта прога не работает, а во вторых, какие то модули и процедуры.без них ведь можно или нет?

[Stilet]

Так во твоя задача - подделать алгоритм что я написал под твой паскаль АБЦ

[andrewpalkin]

Сообщение от pyzhov

админы, назовите раздел "платная помощь студентам".

Я думаю , это тебе стоит посмотреть название темы , она не называется "Напиши за меня программу" , тема называется "Помощь студентам" . Это значит здесь выкладывают код и просят помочь

[andrewpalkin]

Сообщение от Stilet

Зачем? Для этого есть раздел Фриланс.
Но раз уж ты такую панику поднял вот тебе от меня предложение решения:
....
Вот даже ответ:

Я извиняюсь , но в твоем коде не находило сумму , он просто выдавал последний элемент или я что-то перепутал . Вот так мне кажется правильно будет :

MODULE q;
IMPORT StdLog;
VAR y,y0,e,sum:REAL;i:INTEGER;

PROCEDURE so*;
VAR tree,forth:INTEGER;
BEGIN
 e:=0.01;
sum:=0.0;
 tree:=3;forth:=4;
 y:=0;
 y0:=1/2;
 WHILE ABS(y-y0)>e DO
  y0:=y;
  sum:=sum+y;
  y:=1/(tree+forth);
  tree:=tree*tree;
  forth:=forth*forth;
 END;
 StdLog.Real(sum);
END so;
END q.