Вычислить значение заданной функции непосредственно и как сумму ряда с погрешностью 0,001. Значение аргумента выбрать самостоятельно

@YURIIPILIN · Регистрация: 14.12.2012

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

Значение аргумента выбрать самостоятельно.

@Samhain · 29.10.2013, 10:08

YURIIPILIN,

Pascal

const e=0.001;
var s,si:real;
    i:integer;
begin
  s:=1;si:=1;i:=0;
  repeat
    inc(i);
    si:=-si/i;
    s:=s+si
  until (abs(si)<e);
  write('s = ',s:0:10,', 1/e = ',1/exp(1):0:10);
  readln
end.

@YURIIPILIN 0 / 0 / 0 Регистрация: 14.12.2012 Сообщений: 31
		1
	Вычислить значение заданной функции непосредственно и как сумму ряда с погрешностью 0,001. Значение аргумента выбрать самостоятельно 28.10.2013, 17:31. Показов 2291. Ответов 1 Метки нет (Все метки) Значение аргумента выбрать самостоятельно. Миниатюры 0

	29.10.2013, 10:08

Опции темы

Вычислить значение заданной функции непосредственно и как сумму ряда с погрешностью 0,001. Значение аргумента выбрать самостоятельно

Решение