Найти частичную сумму ряда. - 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 знаков после запятой.