Проверьте пожалуйста задачу которую я решил в паскале, так как я изучаю паскаль очень мало времени и самостоятельно!!!
Задача: Составьте программу для вычисления суммы ряда S=1/2²+3/4²+5/6²+7/8²+9/10²+... с точностью до члена ряда, не превышающего по абсолютной величине 0.001.
Решение:
Var s,h,d:real;
i:integer;
begin
d:=0.001;
s:=0;
i:=0;
repeat
i:=i+1;
h:=((2*i)-)1/sqr(2*i);
s:=s+h;
until h<d;
writeln('Сумма ряда: ',s:10:10);
writeln('Количество членов ряда: ',i);
readln;
end.
Ответ выдаваемый программой:
Сумма ряда: 2.1272298361
Количество членов ряда: 91
P.S. Знаю пока тока один циклический оператор, так что если можно будет её решить короче и быстрее прошу написать как ещё можно её решить, если вам будет не трудно!!
Заранее огромное спасибо!!!