ADA - Error en el programa

   
Vista:

Error en el programa

Publicado por Lesly Zelaya (1 intervención) el 16/10/2007 20:14:19
Hola a todos me llamo Lesly soy de Honduras estoy aprendiendo a programar en ADA95 me gustaria pedirles ayuda con el siguiente programa ya que me da un error de un operador (+) el programa reconozco que está sencillo pero quizas algo este haciendo de antemano gracias querido colegas.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
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 Distribuidora is
   Codigo : Integer;              Ventas : Float;
   Comision : Float;
   Sueldo : Float:=0.0;
 
------------------------- W H I L E -----------------------
 
begin
      Put("Ingrese Codigo: "); Get (Codigo); skip_line;
      while Codigo /= 0 loop
          If Codigo > 0
             then
             put("Introduzca Ventas Totales del mes: "); get(ventas); skip_line(2);
             Comision:=0.10 * Float(Ventas);
             Sueldo:=5000 + Float(Comision);  --Declaración de Variables
          End If;
           put("Codigo de Empleado: "); get(Codigo); skip_line(2);
           put("Sueldo Mensual: "); get(Sueldo); skip_line(2);
      end loop;
end Distribuidora;
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Error en el programa

Publicado por Gneuromante (1 intervención) el 18/10/2007 22:45:31
Sueldo:=5000 + Float(Comision); --Declaración de Variables

No puedes sumar un float con un entero sin hacer conversiones. Prueba una de estas maneras:

Sueldo:=5000.0+Comision; --Declaración de Variables

Sueldo:=float(5000)+Comision; --Declaración de Variables

5000 es un entero, el float es 5000.0.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar