Найти частичную сумму ряда. - Pascal
Формулировка задачи:
Дан ряд:
Найти частичную сумму ряда
Ряд сходится к значению 2-2*ln2 = 0,613_705_8 (Два минус натуральный логарифм двух дважды)
И больше в задании ничего нет! Такую тему по Мат.анализу не проходили ещё! Я даже не понял с чего начать-то надо!
Решение задачи: «Найти частичную сумму ряда.»
textual
Листинг программы
- var n:integer;
- e,t,s:real;
- begin
- e:=0.0000001; //точность вычислений, можно взять меньше, но больше 0
- n:=0;
- t:=1;
- s:=0;
- while t>e do
- begin
- n:=n+1;
- t:=1/n/(2*n+1);
- s:=s+t;
- end;
- writeln('S=',s:0:7);
- write('2-2ln(2)=',2-2*ln(2):0:7);
- end.
Объяснение кода листинга программы
- Объявляется переменная
n
типаinteger
. - Устанавливается значение переменной
e
равным0.0000001
, которое представляет точность вычислений. - Инициализируется переменная
n
значением0
. - Устанавливается значение переменной
t
равным1
. - Устанавливается значение переменной
s
равным0
. - Запускается цикл
while
, который будет выполняться, пока значениеt
большеe
.- Увеличивается значение
n
на1
. - Вычисляется новое значение
t
по формулеt:=1/n/(2*n+1)
. - К значению
s
прибавляется значениеt
.
- Увеличивается значение
- Выводится значение
s
с точностью до 7 знаков после запятой. - Выводится значение
2-2ln(2)
с точностью до 7 знаков после запятой.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д