Return to t08.p CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / ucb / pascal / tstpx / src

Annotation of 43BSDTahoe/ucb/pascal/tstpx/src/t08.p, revision 1.1

1.1     ! root        1: program summing(output);
        !             2: var
        !             3:        s1, s2p, s2n, s3, s4p, s4n,
        !             4:        lrp, lrn, rlp, rln: real;
        !             5:        i: integer;
        !             6: begin
        !             7:        s1 := 0;
        !             8:        s2p := 0;
        !             9:        s2n := 0;
        !            10:        s3 := 0;
        !            11:        s4p := 0;
        !            12:        s4n := 0;
        !            13:        for i := 1 to 500 do
        !            14:        begin
        !            15:                lrp := 1/(2*i-1);
        !            16:                lrn := 1/(2*i);
        !            17:                rlp := 1/(10001-2*i);
        !            18:                rln := 1/(10002-2*i);
        !            19:                s1 := s1 + lrp - lrn;
        !            20:                s2p := s2p + lrp;
        !            21:                s2n := s2n + lrn;
        !            22:                s3 := s3 + rlp - rln;
        !            23:                s4p := s4p + rlp;
        !            24:                s4n := s4n + rln;
        !            25:        end;
        !            26:        writeln(s1, s2p-s2n);
        !            27:        writeln(s3, s4p-s4n);
        !            28: end.

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.