Algoritmos

APLICACIÓN #1 ALGORITMOS

1) Un programa toma como entrada un archivo denominado “TRANSFER” en el cual se tiene su registro por cada boleto que vende la empresa de transportes EXPRESO MISTI S.A. produciendo como salida un archivo impreso denominado UTILTRAN el programa se denomina APLICAALGO 1.

2) El objetivo es encontrar el impuesto por boleto (IPCLAS) y la utilidad por boleto (UTIL) que tiene la mencionada empresa.

3) Para lograr este objetivo en primer lugar debe verificarse si el campo ESTADO tiene una “V”; los registros que no tengan ellos no deben ingresar a proceso.

4) Solo para los registros que tengan “V” deben encontrarse un primer descargo (DESCA1) multiplicando el precio del boleto (PREBOL) por el factor del seguro (FACSEG).

5) La utilidad provisional uno (UTIPO1) Se muestran restando el (PREBOL) menos el (DESCA1).

6) Para calcular el impuesto de la clave de servicio (IPCLAS) se debe tener en consideración el contenido del campo clase de boleto (CLABOL) produciéndose de la siguiente manera:

a) Si CLABOL = ‘N’ Multiplicar Utipo1 *0.12

b) Si CLABOL = ‘D’ Multiplicar Utipo1* 0.20

c) Si CLABOL = ‘P’ EL IPCLAS =3.00

Los registros que no tengan ninguna clase anterior en el campo CLABOL deberán pasarse por alto.

7) La utilidad provisional 2 (UTIPO2) se encuentra restando UTIPO1 menos IPCLAS.

8) El siguiente calculo que se debe de encontrar es un segundo descargo (DESCA2) considerando el campo RUTA

a) Si RUTA =”T” como el 4% de UTIPO2

b) Si RUTA =”L” como el 2% de UTIPO 2

Si RUTA no es ninguna de las anteriores no se saca el DESCA2 y para estos registros la utilidad (UTIL) es igual a UTIPO2

9) Finalmente se encuentra la utilidad UTIL restando UTIPO2 menos DESCA2, solamente para los registros que en el campo RUTA tienen una ‘M’ o ‘L’.

10) Se desea también totales general de utilidad (UTIGEN).

Entrada :TRANSFER

NUMBOL CODAGE PREBOL ESTADO FACSEG CLABOL RUTA

10010 010 80 V 0.23 P L

10015 010 90 V 0.16 D L

10015 010 80 V 0.08 N T

11100 020 25 V 0.23 N L

11107 020 32 V 0.16 D T

11109 020 25 V 0.08 N C

11200 030 32 V 0.08 D C

...