Algoritmo Matrícula

Algoritmo  Pago_Matricula

Definir valort, opciones, semestre, Beca, CrediTeo, CrediPra, CrediTeoPra, estracto como entero

Definir Promedio Como Real

CrediTeo <- 300000;

CrediPra <- 750000;

CrediTeopra <- 1100000;

promedio <- 0;

Escribir 'BIENVENIDO A SU PAGO DE MATRÍCULA EN LA I.U. PASCUAL BRAVO'

Escribir 'Ingrese el semestre al que entra a estudiar'

Leer semestre

si semestre > 1 Entonces

Escribir 'ingrese el promedio del semestre anterior';

Leer promedio;

FinSi

Escribir '¿Qué tipo de materia vas a matricular? (1) Teórica (2) práctica, (3) Teórico práctica?'

Leer opciones

Segun opciones Hacer

1: 

valort <- Operacion1(crediTeo);

Si promedio >= 4.3 y promedio <= 5 Entonces

Beca <- operacion2 (promedio, valort);

operacion3(Beca);

SiNo

operacion4(valort);

FinSi

2:

valort <- Operacion1(crediPra);

Si promedio >= 4.3 y promedio <= 5 Entonces

Beca <- operacion2 (promedio, valort);

operacion3(Beca);

SiNo

operacion4(valort);

FinSi

3:

valorTSD <- Operacion1(crediTeoPra);

Si promedio >= 4.3 y promedio <= 5 Entonces

Beca <- operacion2 (promedio, valort);

operacion3(Beca);

SiNo

operacion4(valort);

FinSi

FinSegun

FinAlgoritmo

Subproceso calcular <- operacion1 (a)

Definir calcular, estracto como entero

Escribir 'Ingrese su estracto'

Leer estracto

Si estracto >=1 y estracto <=3 entonces

calcular <-a + 450000;

SiNo

Si estracto>= 4 y estracto <=6 entonces

calcular <-e + 900000;

FinSi

Fin si

FinSubProceso

SubProceso descuento <- operacion2 (a,e)

Definir descuento, valort como entero; 

si promedio >= 4.3 y promedio <= 4.6 entonces

valort<- e* 0.30;

descuento<- e- valort;

SiNo

valortotal<- e*0.50; 

descuento <- e-valort;

Fin si

FinSubproceso

Subproceso operacion3 (a)

Escribir 'El total a pagar este semestre con el descuento  es:',a; 

FinSubProceso

SubAlgoritmo Operacion4 (e)

Escribir 'El total a pagar con semestre es:', e;

FinSubAlgoritmo