SEMESTRE 2013-1.-EJEMPLO CON ARREGLOS/CADENAS
EJEMPLO CON ARREGLOS/CADENAS
ALGORITMO Nomina_empleado
TIPO
array [1..M, 1...N] de Real: MATRIZ
array [1..M] de Caracter: VECTOR
VAR
Matriz = Transacc
Vector = Empleado
Entero = i, j, m, n
Real = neto, tdescto
INICIO
Leer m
Leer n
Llamar a Capturar_Empleado
Llamar a Capturar_Transaccion
Llamar a Imprimir_Nomina
FIN
Procedimiento Caputar_Empleado
Desde i = 1 hasta m
Leer Empelado(i)
Fin_desde
Procedimiento Captuar_Transaccion
Desde i = 1 hasta m
Desde j = 1 hasta n
Leer Transacc(i,j)
Fin_desde
Fin_desde
Procedimiento Imprimi_nomina
Desde i = 1 hasta m
Desde j = 1 hasta n
Si j = n
Neto = FNETO(Transacc(j), tdescto)
sino
tdescto = tdescto + transacc(i,j)
Fin_si
Fin_desde
Escribir empleado(i), Transacc(j), tdescto, neto)
Fin_desde
Funcio Fneto (sueldo, total_descto)
inicio
Return (Sueldo - total_descto)
fin_funcion
Empleado:
ana
bienvenido
doi
tomas
Transacc
200 300 5000
200 300 5000
500 700 12000
400 100 7500