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 / t10.p < prev    next >
Text File  |  1980-02-17  |  440b  |  30 lines
  1. program expon2(output);
  2. var
  3.     pi, spi: real;
  4.  
  5. function power(x: real; y: integer): real;
  6.     var
  7.         z: real;
  8.     begin
  9.         z := 1;
  10.         while y>0 do
  11.         begin
  12.             while not odd(y) do
  13.             begin
  14.                 y := y div 2;
  15.                 x := sqr(x);
  16.             end;
  17.             y := y-1;
  18.             z := x*z;
  19.         end;
  20.         power := z;
  21.     end;
  22. begin
  23.     pi := 3.14159;
  24.     writeln(2.0, 7, power(2.0, 7));
  25.     spi := power(pi, 2);
  26.     writeln(pi, 2, spi);
  27.     writeln(spi, 2, power(spi, 2));
  28.     writeln(pi, 4, power(pi, 4));
  29. end.
  30.