Friday, May 03, 2013

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