-- Nome Del programma: test_equation.adb
-- Autori            : Candolfi Stefano, Jonathan Rey
-- Data              : 31.05.2001 - 37.06.2001
-- Scopo: testare il Package Equation_Parsing.

   with Ada.Text_IO,
   Ada.Float_Text_IO,
   Equation_Parsing; -- Richiamo del PACKAGE !!!

   use Ada.Text_IO,
   Ada.Float_Text_IO,
   Equation_Parsing;

   procedure Test_Equation is
   
      Funzione: STRING(1..100);
      Variabile, Result: FLOAT;
      Lung: INTEGER;
   
   begin
   
      Put("Inserisci la funzione f(x): ");
      Get_line(Funzione, Lung);
      Put("Valore di x: ");
      Get(Variabile);
   
   -- Richiamo della funzione Evaluate del Packeg Equation_Parsing
      Result := Evaluate(Funzione, Lung, Variabile);
   
      New_Line(2);
      Put("Il risultato di F(");
      Put(Variabile, Aft => 3, Exp => 0);
      Put(") e': ");
      Put(result, Aft => 3, Exp => 0);
   
   end Test_Equation;