Меню сайта

Задача №50

Используя -ряд -P=1-1/3+1/5-1/7+1/9-…,произвести вычисления Р сначала с точностью -E=10-6.


Programa4-

Usescrt-

Vark,i,n:integer-

— — — — — — P,S1,S2,E:=real-

Begin

— — — — — — Readln(E)-

— — — — — — While 1-S1+S2&gt-=E do begin

— — — — — — For k:=3 to n do

— — — — — — S1:=S1+(1/k)-

— — — — — — For i:=5 to n do

— — — — — — S2:=S2-(1/i)-

— — — — — P:=1-S1+S2-

— — — — Writeln(‘P=’,P:8:4)

— — — — — n:=n+4-

end-

end.

Категория: Циклы | Дата: 08.11.12

Меню раздела
Блок