Найти произведение ряда - 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.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д