-- nome      : Hermite2
-- 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 hermite2 is

   x,n : integer;

   function H(x,n : integer) return integer is  --dichiarazione funzione
      begin

         if n=0 then                            --controlla se n=0
            return 1;
         end if;

         if n=1 then                            --controlla se n=1
            return 2*x;
         end if;

         if n>1 then                            -- controlla se n>1
            return 2*X*H(x,(n-1))-2*(n-1)*H(x,(n-2));
         end if;                                --questa funzione richiama se
                                                --stessa fino ad avere tutti
      end H;                                    --i valori di n
begin
   put("inserisci il valore di x: ");
   get(x);
   put("inserisci il valore n: ");
   get(n);
   put(h(x,n));                                 --richiama la funzione
end hermite2;