home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol021 / poweri.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1984-04-29  |  577 b   |  28 lines
  1.  
  2. (*******************************************************
  3. *
  4. *        DEMO for POWERS function
  5. *
  6. *    I think Ray Penley sent me this one just for 
  7. *  practise.  It works so why not.
  8. *
  9. *  July 1980
  10. *
  11. ******************************************************
  12.  
  13. Program PowerI;
  14. label 1;
  15. var    number,zx: real;
  16.     P: integer;
  17.  
  18. Function power(x: real; y: integer): real; external;
  19.  
  20. begin
  21. 1:writeln;
  22.   writeln('Enter a number ?');readln(number);
  23.   writeln('To what power ?');readln(P);
  24.   zx := POWER(number,P);
  25.   writeln(number,' to the ',P,' power = ',zx);
  26.   goto 1;
  27. end.
  28.