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

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.