Ejercicio de Algoritmo

Lic. Alfredo Enrique Zelaya Mejia
Contador y Auditor

Visite nuestra pagina web aqui


CARNET:________

NOMBRE COMPLETO:____________

CUM A LA FECHA:________________

MATERIAS CURSADAS:_____________

CANT. DE HORAS SOCIALES:____________

CANT. DE PAGOS:______________



INICIO

**// TABLAS LLENAS

DEFINIR D$(D,5), N$(N,9), M$(M,2), D1$(D1,5), P$(P,4), HS$(H,5), I=0, J=0, K1=0,K2=0, K3=0, K4=0, CAR$, SUMA=0, T=0,



LEER CAR$

**// CALCULO DEL CUM Y CANT. DE MATERIAS

HACER DESDE I=1 HASTA N,1

SI CAR$=N$(I,1) ENTONCES

HACER SUMA=SUMA + NUM((N$(I,2)+

N$(I,3)+ N$(I,4)+ N$(I,5)+ N$(I,6))/5

HACER T=T+1

FIN SI

FIN HDHI

SI T>0 o SUMA>0 ENTONCES



**// BUSCAR NOMBRE COMPLETO

HACER DESDE I=1 HASTA D,1

SI CAR$=D$(I,1) ENTONCES

HACER K1=I

HACER I=D

FIN SI

FIN HDHI



**// CLACULO DE LAS HORAS SOCIALES

HACER DESDE I=1 HASTA HS,1

SI CAR$=HS$(I,1) ENTONCES

HACER K2=K2+NUM(HS$(I,4))

FIN SI

FIN HDHI



**// CALCULO DEL CANTIDAD DE PAGOS

HACER DESDE I=1 HASTA P,1

SI CAR$=P$(I,1) ENTONCES

HACER K3=K3+1

HACER K4=K4+NUM(P$(I,4))

FIN SI

FIN HDHI

**//IMPRIMIR DATOS

IMPRIMIR "CARNET:", CAR$

IMPRIMIR "NOMBRE COMPLETO:", D$(K1,2)+ " "+ D$(K1,3)

IMPRIMIR "CUM A LA FECHA :", SUMA/T

IMPRIMIR "MATERIAS CURSADAS:", T

IMPRIMIR "CANT. DE HORAS SOCIALES:", K2

IMPRIMIR "CANT. DE PAGOS :", K3

FIN SI

FIN





CARNET:_________

NOMBRE COMPLETO:_________________



CODMATE MATERIA SEC NOTA APRO/REPR DOCENTE

Xxxxxxx xxxxxxx xx xx.xx xxxxxxxx xxxxxxxxxx

Xxxxxxx xxxxxxx xx xx.xx xxxxxxxx xxxxxxxxxx Xxxxxxx xxxxxxx xx xx.xx xxxxxxxx xxxxxxxxxx Xxxxxxx xxxxxxx xx xx.xx xxxxxxxx xxxxxxxxxx Xxxxxxx xxxxxxx xx xx.xx xxxxxxxx xxxxxxxxxx

CUM xx.xx





















INICIO

**// TABLAS LLENAS

DEFINIR D$(D,5), N$(N,9), M$(M,2), D1$(D1,5), P$(P,4), HS$(H,5), I=0, J=0, K1=0,K2=0, K3=0, K4=0, CAR$, SUMA=0, T=0,



LEER CAR$

**// CALCULO PARA DETERMINAR EL TAMAÑO DE LA MATRIZ NUEVA

HACER DESDE I=1 HASTA N,1

SI CAR$=N$(I,1) ENTONCES

HACER T=T+1

FIN SI

FIN HDHI

DEFINIR NM$(T,6), K1=1, NF=0

























**// ALMACENAR CODMATE, SECCION, NOTA, APRO/REPRO

HACER DESDE I=1 HASTA N,1

SI CAR$=N$(I,1) ENTONCES

HACER NM$(K1,1)=N$(I,7)

HACER NM$(K1, 3), N$(I,8)

HACER NF= NUM((N$(I,2)+

N$(I,3)+ N$(I,4)+ N$(I,5)+ N$(I,6))/5

HACER NM$(K1, 4)=CAR(NF)

SI NF>=6 ENTONCES

HACER NM$(K1, 5)="APROBADO"

SINO

HACER NM$(K1, 5)="REPROBADOS

FIN SI

HACER K1=K1+1

FIN SI

FIN HDHI
















--



Daniel N. Ramírez Salazar

Escuela de Ciencias Aplicadas

Universidad Tecnológica de El Salvador

2275-8922

www.utec.edu.sv