home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Distributions / ucb / spencer_2bsd.tar.gz / 2bsd.tar / src / pascal / tests / t08.p < prev    next >
Text File  |  1980-02-17  |  468b  |  29 lines
  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.
  29.