Как составить программу вычисления суммы (1/(1*3) +1/(2*4)+1/(3*5)+…)?
1/(1*3) +1/(2*4)+1/(3*5)+…
Информатика 10 кл. Циклы со счетчиком. Программа - Паскаль
0
777rerfq
Ответы (1):
Share
0
Сумму бесконечного ряда можно вычислить только приближенно (с определенной степенью точности).
е - точность
slag - текущее слагаемое
s - сумма
var
i:integer;
e,s,slag:real;
begin
write('Введите точность вычислений: ');
readln(e);
s:=0;
slag:=1/3;
i:=1;
while slag>=e do
begin
i:=i+1;
slag:=1/(i*(i+2));
s:=s+slag;
end;
writeln('Сумма=',s);
end.