Найти произведение ряда - Pascal ABC (12974)

Узнай цену своей работы

Формулировка задачи:

Ребят , доброго времени суток.Столкнулся с проблемой по Pascal ABC.Не знаю как записывается предел .Помогите пожалуйста написать программу для данного выражения.

Решение задачи: «Найти произведение ряда»

textual
Листинг программы
const x=0.86;
var a,b,c,d,sn,p1,p:real;
    y,z:integer;
begin
p:=1;
for y:=1 to 4 do
 begin
  a:=pi/2-arctan(x/y);
  b:=power(y*y+x*x+1,1/4);
  p1:=1;
  for z:=2 to 6 do
   begin
    sn:=y/2/z;
    if sn=1 then c:=pi/2
    else c:=arctan(sn/sqrt(1-sqr(sn)));
    d:=power(abs(x-z),1/y);
    p1:=p1*c/d;
   end;
  p:=p*(a/b+p1);
 end;
write('P=',p:0:4)
end.

Оцени полезность:

11   голосов , оценка 4.091 из 5