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 / t06.p < prev    next >
Text File  |  1980-02-17  |  155b  |  15 lines
  1. program egwhile(output);
  2. var
  3.     n: integer;
  4.     h: real;
  5. begin
  6.     n := 10;
  7.     write(n);
  8.     h := 0;
  9.     repeat
  10.         h := h + 1/n;
  11.         n := n-1;
  12.     until n = 0;
  13.     writeln(h)
  14. end.
  15.