--AUTOR: Jose Luis VILLARIG GARCIA (V2975813) 472542@cepsz.unizar.es
--PROYECTO: Practicas de Intr. Programación 99/00. Práctica3-Ej.2.1.1
--FICHERO: polinomio.adb
--FECHA: Noviembre 1999
--Modidicado por:
--Fecha modificacion:
--Descripcion: Este programa evalua un polinomio ax**3 + bx**2 + cx +d
--Se hace de la forma ((a*x + b)*x + c)*x + d
--Se pide x, el grado y los coeficientes
with Ada.text_io, Ada.integer_text_io, Ada.float_text_io;
use Ada.text_io, Ada.integer_text_io, Ada.float_text_io;
procedure polinomio is

   ---------------------------------------------------------
   -- PROPOSITO: Procedimiento para pedir al usuario los coeficientes 
   -- grado : in entero
   -- coeficiente : out real
   -- Pre: x es un numero entero
   -- Post: coeficiente es el numero introducido por el usuario
   ---------------------------------------------------------
   procedure obtenerCoeficiente (grado : in integer;
                                 coeficiente : out float) is
   begin
      put ("coeficiente para grado ");
      put (grado,0);
      put ("= ");
      get (coeficiente);
   end obtenerCoeficiente;
 -- declaracion de variables
 grado: integer;
 coeficiente, acumulacion, x: float;
begin
   put ("x= ");
   get (x);
   put ("Grado= ");
   get (grado);
   obtenerCoeficiente (grado,acumulacion);
   grado := grado-1;
   while grado >= 0 loop
      obtenerCoeficiente (grado,coeficiente);
      acumulacion := acumulacion * x + coeficiente;
      grado := grado - 1;
   end loop;

   put ("El resultado es: ");
   put (acumulacion,0,4,0);

end polinomio;