Paskal - Построение Таблиц Функций

[lit]

Ув. господа, прошу помоч сделать вот эту задачку, сам я чесно говоря ни ухом ни рылом в паскале(

Прошу помочь.

Постановка задачи
Используя оператор цикла, найти сумму элементов, указанных в конкретном варианте. Результат напечатать, снабдив соответствующим заголовком.

Содержание отчета
1. Постановка задачи.
2. Текст программы.
3. План отладки, тесты, результаты отладки на тестах.
4. Результат решения конкретного варианта.
5. Анализ допущенных ошибок.
6. Математические выкладки.
7. Блок-схема.
8. Таблица трассировки .


2. Пример программы.
При составлении программы будем считать, что точность достигнута, если .

Код: Выделить всё

CONST  
VAR M: INTEGER; AN, SUMMA: REAL;
BEGIN
SUMMA: =0; M: =1; AN: =1/3,
WHILE AN>  DO
BEGIN
SUMMA: = SUMMA + AN; N:=N+1;
AN: = AN*(N+1)/2/(2*N+1);
END;
WRITELN ( ‘Сумма=’, SUMMA,’ Последний член ряда=’, AN);
END.

Протокол работы программы:
Сумма = 4.727439Е – 01 Последний член ряда = 4.113534Е – 05

вот вариант:

Оч прошу помоч чем можете.

[Naeel Maqsudov]

Код: Выделить всё

CONST
   E=10E-3;
VAR 
   N,M: INTEGER; AN, SUMMA: REAL;
BEGIN
   SUMMA: =0; N: =1; M=2;
   REPEAT
      AN:=(2*N-1)/M;
      SUMMA: = SUMMA + AN; 
      M:=M*2;
      N:=N+1;
   UNTIL AN<=E;
   WRITELN ( ‘Сумма=’, SUMMA,’ Последний член ряда=’, AN);
END.