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 > 0then
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
0