Вычислить сумму S с заданной точностью E.

ECVB

Дата: Понедельник, 20.12.2010, 02:56 | Сообщение # 1

Новичок

Группа: Пользователи

Сообщений: 3

Репутация: 0

Замечания: 0%

Статус: Offline

1)Вычислить сумму "S" с заданной точностью "E".Считать,что заданная точность достигнута,если очередное слагаемое по модулю меньше "E".
2)Определить номер и величину последнего учитываемого слагаемого.

S= -cosx + cos2x / 2^2 +...+(-1)^n * cosnx / n^2 +...

x=П/4(Пи на четыре)
E=0.1, E=0.001.

Вот ссылка на фотографию с условиями задачи:
http://saveimg.ru/show-image.php?id=c5c771017d689c5ead565dca7c2251af

Seqular

Дата: Понедельник, 20.12.2010, 15:48 | Сообщение # 2

Хранитель

Группа: Администраторы

Сообщений: 859

Репутация: 35

Статус: Offline

ХЗ конечно! Но вот что у меня получилось:

Code

Program New1;
Uses CRT;
Const e = 0.0001;
Var s, a1, a2, x: real;
i: Byte;
Begin
ClrScr;
x := Pi / 4;
i := 1;
Repeat
a2 := a1;
a1 := cos(i * x) / (i * i);
if (Odd(i)) then a1 := a1 * (-1);
s := s + a1;
Inc(i);
Until (abs(a1 - a2) <= e);
Writeln('SUMM: ',s:0:8);
Writeln('Step: ',i);
Writeln('Delt: ',abs(a1-a2):0:8);
Readkey;
End.

SUMM - сумма ряда.
Step - шаг, на котором получили необходимую точность.
Delt - разность между элементами, должна быть <= точности
Могу ошибаться в формулах )

Поддерживаю также проект сообщество молодых сисадминов

		Среда, 08.01.2025
	Pascal 4 All