Выполнить суммирование членов бесконечного ряда

@dr_Stein · Регистрация: 14.10.2013

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

1. Выполнить суммирование членов бесконечного ряда до тех пор, пока последний
член ряда по абсолютной величине не будет меньше абсолютной точности 10^-4..10^-10 или пока не будет просуммировано заранее заданное число членов
бесконечного ряда.
2. Сравнить вычисленную сумму членов бесконечного ряда с образцовым
значением, полученным в виде константы или вычисленным по формуле.

@Samhain · 20.11.2013, 14:13

dr_Stein,

Pascal

var s,e:real;
   n,i:integer;
begin
  write('n = ');readln(n);
  repeat
    write('e = ');readln(e);
  until (e<=10e-4)and(e>=10e-10);
  s:=1;
  i:=0;
  repeat
    inc(i);
    s:=s+1/sqr(2*i+1);
  until (1/sqr(2*i+1)<e)or(i=n);
  writeln('s = ',s:0:10,', pi^2/8 = ',sqr(pi)/8:0:10);
  readln
end.

@dr_Stein 0 / 0 / 0 Регистрация: 14.10.2013 Сообщений: 10
		1
	Выполнить суммирование членов бесконечного ряда 20.11.2013, 13:09. Показов 979. Ответов 1 Метки нет (Все метки) 1. Выполнить суммирование членов бесконечного ряда до тех пор, пока последний член ряда по абсолютной величине не будет меньше абсолютной точности 10^-4..10^-10 или пока не будет просуммировано заранее заданное число членов бесконечного ряда. 2. Сравнить вычисленную сумму членов бесконечного ряда с образцовым значением, полученным в виде константы или вычисленным по формуле. Миниатюры 0

	20.11.2013, 14:13

Опции темы

Выполнить суммирование членов бесконечного ряда

Решение