io Programmo 27/IOPROG_27.ISO/SOFT/CALCPLUS.ZIP/PI

Text File | 1996-04-02 | 191 b | 9 lines

proc main()
    var i, n:=100, s:=0.;
    argc()>2 -> n:=val(argv(2));
    for i:=1 to n step 2 do
        s := s+1./(2*i-1)-1./(2*i+1);
    end;
    echo '[',n,'] ', s*4, endl;
end;