Найти частичную сумму ряда. - 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 знаков после запятой.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д