--Nome del programma:   elevamento.adb
--Autore:               Stefano Candolfi
--Data:                 31.01.2001
--Scopo:                una funzione che chiede un numero ed un
--                      esponente e ritorna il risultato.

with  Ada.Text_Io,
      Ada.Float_Text_Io,
      Ada.Numerics.Elementary_Functions;

use   Ada.Text_Io,
      Ada.Float_Text_Io,
      Ada.Numerics.Elementary_Functions;

procedure Elevamento is 

   function Elevamentopotenza (x,y : Float) return Float is 
   begin
      return (Exp(y*log(x)));
   end Elevamentopotenza;


   Termine, Espo, Result  : Float;  

begin

   Put( Item => "Dammi un numero: ");
   Get( Item => Termine);
   Put( Item => "Dammi il valore dell'esponente: ");
   Get( Item => Espo);
   Result:= Elevamentopotenza(Termine,Espo);
   New_Line(Spacing => 2);
   Put( Item => "Il risultato di ");
   Put( Item => Termine, Fore => 0, Aft => 1, Exp => 0);
   Put( Item => " elevato a ");
   Put( Item => Espo, Fore => 0, Aft => 1, Exp => 0);
   Put( Item => " e' ");
   Put(Item => Result, Fore => 0, Aft => 1, Exp => 0);

end Elevamento;