--AUTOR: Jose Luis VILLARIG GARCIA (V2975813) 472542@cepsz.unizar.es
--FICHERO: europtas.adb
--FECHA: Octubre-Noviembre 1999
--Modidicado por:
--Fecha modificacion:
--Descripcion: Este programa transforma de euros a ptas y de ptas a euros.

with text_io, Ada.float_text_io, Ada.integer_text_io, screen;
use text_io, Ada.float_text_io, Ada.integer_text_io, screen;
procedure europtas is
-- declaracion de constantes y variables
EUROPTAS: constant float := 166.386;
opcion: integer;
euros: float;
pesetas: integer;
begin
   opcion := 1; -- para que entre en el while
   while opcion /= 0 loop
      clear_screen;
      put_line ("Menu principal");
      put_line ("0: Salir");
      put_line ("1: Convertir euros a pesetas");
      put_line ("2: Convertir pesetas a euros");
      put ("Introduce opcion: ");
      get (opcion);

      if opcion = 1 then
         euros := 1.0;
         clear_screen;
         while euros > 0.0 loop
            put ("Introduce la cantidad en euros (<=0 para salir): ");
            get (euros);
            pesetas := integer(euros * EUROPTAS);
            put (euros,0,2,0);
            put (" euros son ");
            put (pesetas,0);
            put_line (" pesetas");
         end loop;

      elsif opcion=2 then
         pesetas := 1;
         clear_screen;
         while pesetas > 0 loop
            put ("Introduce la cantidad en pesetas (<=0 para salir): ");
            get (pesetas);
            euros := float(pesetas) / EUROPTAS;
            put (pesetas,0);
            put (" pesetas son ");
            put (euros,0,2,0);
            put_line (" euros");
         end loop;
      end if;
   end loop;
end europtas;