Question

Программа с применением оператора цикла для вычисления суммы ряда для PascalABC

Answer 1

Ответ:

var

 k,l,t:integer;

 s,x,st:real;

begin

 x:=2;

 while (x>=1) or (x<=-1) do begin

   write('Введите X (-1< x <1) = '); readln(x);

 end;

 

 s:=x/4;

 k:=6;

 t:=4;

 while (l>30) or (l<1) do begin

   write('Кол-во повторений (p.s. Чем больше значение, тем ответ точнее) = '); readln(l);

   if (l>30) or (l<1) then writeln('Допустимое значение повторений:  0 < l < 31');

 end;

 writeln;

 for var i:=3 to l+2 do

 if (i mod 2 = 1) then begin

   st:=-(power(x,i)/(power(4,i)*k));

   k:=k*t*(t+1);

   t:=t+2;

   st:=st+(power(x,i+2)/(power(4,i+2)*k));

   s:=s+st;

{Чтобы отключить отладку надо ввести "//" перед нижний строчкой}

   writeln('[Отладка] 2 ряда: ',st); //Отладка

 end;

 writeln; writeln(s);

end.