-- nome      : Hermite
-- autore    : Elia Mondada, Tommaso Patelli, Paolo Canevascini
-- scopo     : calcolo dei polinomi di hermite


with Ada.Text_IO;                        use Ada.Text_IO;
with ada.integer_text_IO;                use ada.integer_text_IO;

procedure hermite is

   x,n : integer;

   function H(x,n : integer) return integer is  --dichiarazione funzione
      Ha,Hb,Ht : integer;
   begin
      Ha := 1;                                  --definiamo i primi due valori
      Hb := 2*x;                                --della successione
      if n=0 then                               --controlla se n=0
         return ha;
      end if;
      if n=1 then                               --controlla se n=1
         return Hb;
      end if;
      if n>1 then                               --controlla se n>1
         for I in 2..n loop
            ht:= 2*x*Hb-2*(I-1)*Ha;             --calcolo dei valori con n>1
            Ha:=Hb;                             --spostamento dei valori
            Hb:=Ht;                             --per avere ha, hb come valori
         end loop;                              --precedenti
         return Hb;
      end if;
   end H;
begin
   put("inserisci il valore di x: ");
   get(x);
   put("inserisci il valore n: ");
   get(n);
   put(H(x,n));                                 --richiama la funzione H
end hermite;