Ayuda con programa
Publicado por michael (3 intervenciones) el 18/07/2012 06:59:08
Tengo que hacer un programa que calcule y me imprima un listado de la forma siguiente nombre, sueldo y comision dice que si el sueldo bruto es menor 20000 debe pagar un 2%, si es mayor que 20,000 y menor que 30,000 debe pagar un 12% y que si es mayor debe pagar un 22.5% de su sueldo entonce quiero que me de el sueldo neto que lo imprima que seria igual a Sueldo+Comision-por ciento a pagar= sueldo neto. ayúdenme por favor esto es lo que tengo hasta el momento:
var
b,c,a: integer;
begin
a:= strtoint(edit2.Text);
b:= strtoint(edit3.Text);
c:=a+b; if a+b < 20000 then a+b*0.20
edit4.Text := inttostr (c);
var
b,c,a: integer;
begin
a:= strtoint(edit2.Text);
b:= strtoint(edit3.Text);
c:=a+b; if a+b < 20000 then a+b*0.20
edit4.Text := inttostr (c);
Valora esta pregunta
0
