Вычислить сумму ряда с заданной точностью

@николайs · Регистрация: 19.11.2012

Author24 — интернет-сервис помощи студентам

помогите пожалуйста сделать.

@Drevnir · 20.11.2012, 04:54

Pascal

uses crt;
var s:array [1..200] of extended;
i:byte;
eps:extended;
begin
clrscr;
write('BBegute To4HOCTb eps=');
readln(eps);
i:=1;
s[1]:=0;
repeat
s[i+1]:=s[i]+(cos(i*pi))/(2*i*i*i);
i:=i+1;
until (abs(s[i]-s[i-1])<eps) or (i>=32);
clrscr;
writeln('CYMMA S=',s[i]:2:7,' C To4HOCTb1-0 eps=',eps:2:5,' noly4aeM Ha ',i:2,' LLIare');
readln;
end.

@николайs 0 / 0 / 0 Регистрация: 19.11.2012 Сообщений: 33
		1
	Вычислить сумму ряда с заданной точностью 19.11.2012, 23:20. Показов 988. Ответов 1 Метки нет (Все метки) помогите пожалуйста сделать. Миниатюры 0

	20.11.2012, 04:54

Опции темы

Вычислить сумму ряда с заданной точностью

Решение