home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / MBUG / MBUG003.ARC / JRTPAS-1.LBR / JRT29.PAS < prev    next >
Pascal/Delphi Source File  |  1979-12-31  |  512b  |  22 lines
  1. {Program 4.8
  2. exponentiation with natural exponent}
  3.  
  4. Program exponentiation;    
  5.  
  6. var    e, y : integer;
  7.     u, x, z : real;
  8.  
  9. begin    
  10.        read( x, y ); write( x, y );
  11.     z := 1; u := x; e := y;
  12.     while e > 0 do
  13.     begin                {z * u**e=x**y, e > 0}
  14.         while not odd( e ) do
  15.             begin
  16.                 e := e div 2; u := sqr( u );
  17.             end;
  18.         e := e-1; z := u * z
  19.     end;
  20.     writeln( z )            {z = x**y}
  21. end.
  22.