вычислить сумму по формуле - Паскаль, Turbo Pascal, PascalABC.NET

Hikerr · 22.05.2013, 13:42

помогите пожалуйста с этой задачей

Mad_Cat · 22.05.2013, 13:50

Код:

i:=1;s:=0;e:=0.0001;
sl:=1/(3+sin(1));
while abs(sl) > e do
begin
s:=s+sl;
i:=i+1;
sl:=(i*i)/((2*i*i)+(sqr(sqr(i)))+sin(i));
end;
writeln(s);

Hikerr · 22.05.2013, 13:59

спасибо большое

22.05.2013, 13:50	#2
Mad_Cat Made In USSR! Старожил Регистрация: 01.09.2010 Сообщений: 3,657	Код: `i:=1;s:=0;e:=0.0001; sl:=1/(3+sin(1)); while abs(sl) > e do begin s:=s+sl; i:=i+1; sl:=(ii)/((2ii)+(sqr(sqr(i)))+sin(i)); end; writeln(s);` "...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..." (c) Юрий Клинских aka "Хой" Последний раз редактировалось Mad_Cat; 22.05.2013 в 14:07.*

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
вычислить выражения по формуле	arai uzbekova	Паскаль, Turbo Pascal, PascalABC.NET	1	03.03.2013 22:11
Три задачи - Найти сумму натуральных чисел; Протабулировать функцию; вычислить сумму	kolya1114	Паскаль, Turbo Pascal, PascalABC.NET	3	01.12.2012 19:01
Вычислить значения по формуле	Pchelka1992	Помощь студентам	7	18.01.2012 16:08
вычислить по формуле (найти сумму ряда)	aless23	Паскаль, Turbo Pascal, PascalABC.NET	1	03.11.2011 10:24
Подсчитать сумму ряда по формуле [Паскаль]	Yury381	Помощь студентам	1	23.12.2010 20:14

22.05.2013, 13:59	#3
Hikerr Пользователь Регистрация: 22.05.2013 Сообщений: 13	спасибо большое