Вычислить и выдать на экран приближённое значение бесконечной суммы

@Teoocsi · Регистрация: 30.03.2010

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

Вычислить и выдать на экран приближённое значение бесконечной суммы с точностью до (Эпсилон=0,14). Считается что требуемая точность достигнута, если очередное слагаемое по модулю меньше, чем эпсилон.Через оператор While или repeat.Заранее спасибо.
Название: 112.png
Просмотров: 45

Размер: 2.1 Кб

Название: 112.png
Просмотров: 45

Размер: 2.1 Кб

@STGE · 17.05.2010, 00:43

Возможно так:

Pascal

uses crt;
var eps,s,k,m: real; 
function fact (n: real): real;
begin
if n=0 then fact:=1
else fact:=n*fact(n-1);
end;
begin
clrscr;
write('введите значение n: ');
readln(n);
write('с какой точноcтью определять сумму: ');
readln(eps);
k:=fact(m)/fact(2*m);
while k>=eps do
begin
s:=s+k;
dec(m);
k:=fact(m)/fact(2*m);
end;
write('результат: ',s);
end.

@Teoocsi · 17.05.2010, 11:44 **[ТС]**

Спс очень помогло

@Teoocsi 0 / 0 / 0 Регистрация: 30.03.2010 Сообщений: 11
		1
	Вычислить и выдать на экран приближённое значение бесконечной суммы 17.05.2010, 00:18. Показов 1312. Ответов 2 Метки нет (Все метки) Вычислить и выдать на экран приближённое значение бесконечной суммы с точностью до (Эпсилон=0,14). Считается что требуемая точность достигнута, если очередное слагаемое по модулю меньше, чем эпсилон.Через оператор While или repeat.Заранее спасибо. 0

@Teoocsi 0 / 0 / 0 Регистрация: 30.03.2010 Сообщений: 11
	17.05.2010, 11:44 [ТС]	3
	Спс очень помогло 0

Опции темы

Вычислить и выдать на экран приближённое значение бесконечной суммы

Решение