Ayuda con la implementación de programa en pascal sobre nóminas de trabajadores
Les agradecería si me ayudan con este programa para capturar una nomina pequeña con CASE OF.
Con las sig opciones:
1.Datos del trabajador
2.Calculo del sueldo
-Días laborados
-Pago por día
-Deducciones
-Total
3.Imprimir
2.Salir
Gracias.
Con las sig opciones:
1.Datos del trabajador
2.Calculo del sueldo
-Días laborados
-Pago por día
-Deducciones
-Total
3.Imprimir
2.Salir
Gracias.
1 respuesta
Respuesta de vmromeo
1
Te recomiendo que para cada opción hagas un procedimiento. Yo lo veo asi:
Haz un menu que te muestre las firentes opciones.. usa una varaible para recoger el valor de la opción escogida y justo después coloca el case.. la estructura podía ser más o menos así:
Begin
Clrscr,
repeat
"aquí colocas el menu"
readln(opcion)... recogemos la opcion deseada.
case opcion of
'1':begin
trabajador;... vas al procedimiento que te realice el apartado 1
end;
'2':begin
calulo_sueldo;
end;
.
.
.
.
until opcion = '4';
end.
Haz un menu que te muestre las firentes opciones.. usa una varaible para recoger el valor de la opción escogida y justo después coloca el case.. la estructura podía ser más o menos así:
Begin
Clrscr,
repeat
"aquí colocas el menu"
readln(opcion)... recogemos la opcion deseada.
case opcion of
'1':begin
trabajador;... vas al procedimiento que te realice el apartado 1
end;
'2':begin
calulo_sueldo;
end;
.
.
.
.
until opcion = '4';
end.
