Necesito crear una nomina??
 

Necesito hacer una nomina,pero ya tengos los codigos para hacerlo, pero lo que necesito es que calcule la nomina de un empleado dependiendo el sueldo que tenga por ejemplo:

• para lo k ganen:100mil:

descontar
ars 2 %,afp 4%,coop 3%

• para los k ganes menos de 100 mil:

descontar
ars 4%,afp 5%,coop 6%

• para los k ganen mas de 100 mil:

descontar
afp 3%,afp 6% coop 10%

aki tengo los codigos para un solo descuento:

program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;

var
Cod: integer;
Nombre: string;
Apellido: string;
sueldo: real;
ars: real;
afp: real;
td: real;
sn: real;

begin
write('Digite el codigo : ');
readln(cod);
write('Digite el nombre : ');
readln(nombre);
write(' Digite el apellido: ');
readln(apellido);
write('Digite el sueldo: ');
readln(sueldo);
ars:= sueldo * 0.02;
afp:= sueldo * 0.03;
td:= ars + afp;
sn:= sueldo -td;
writeln('codigo......:',cod);
writeln('nombre......:',Nombre);
writeln('Apellido....:',apellido);
writeln('Sueldo......:',sueldo:8:2);
writeln('ars.........:',ars:6:2);
writeln('Afp.........:',afp:6:2);
writeln('Total desc. .:',td:7:2);
writeln('Sueldo neto. .:',sn:8:2);
readln

end.


Espero una ayuda!!!gracias..

Hola, amigo, bienvenido a clubdelphi, por favor, lee nuestra guía de estilo para poder ayudarte mejor, gracias.

Tiene cara de tarea de la escuela, como no me gusta ser chapuzero te voy a dar un tip para que lo resuelvas tu mismo. El código que tienes ya hace lo que en teoria hay que realizar. Unicamente te falta algo para poder cambiar los porcentajes segun el sueldo.

Entonces tienes que usar sentencias IF para que te quede algo asi:

Ya nomas tradúcelo a código.

jejejeje..si probare ahora mismo,te dire si me funciona..gracias!!

Gracias me brother me funciono el programa,se le agradece!!!

Nos alegramos mucho :)