LordKusa

Función de potencia

Jul 17th, 2019
101
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Function potencia(base:real; exponente:integer):real;
  2.     Var
  3.         resultado:real;
  4.  
  5.     Begin
  6.         resultado := 1;
  7.         while(exponente > 0) do
  8.             begin
  9.                 resultado := resultado*base;
  10.                 exponente := exponente - 1;
  11.             end;
  12.         potencia := resultado;
  13.     end;
RAW Paste Data