Ejercicio de Algoritmo

Lic. Alfredo Enrique Zelaya Mejía
Contador y Auditor
Visite la pagina web aqui

HACER UN ALGORITMO QUE ELIMINE UN REGISTRO EN LA TABLA DATOS
INICIO
**//TABLAS LLENAS
DEFINIR DATOS$(D,5), NOTAS$(N,10), PAGOS$(P,5), HS$(H,4), CAR$, C=0, F=0, K1=0, K2=1, K3=0,T1=0, T2=0, T3=0, T4=0
LEER CAR$
HACER DESDE C=1 HASTA D,1
SI CAR$=DATOS$(C,1) ENTONCES
HACER K1=C
HACER C=D
FIN SI
FIN HDHI
SI K1>0 ENTONCES
**//ELIMINAR REGISTRO EN LA TABLA DE DATOS
HACER T1=D-1
DEFINIR D1$(T1,5)
HACER DESDE C=1 HASTA D,1
SI CAR$<>DATOS$(C,1) ENTONCES
HACER DESDE F=1 HASTA 5,1
HACER D1$(K2 ,F)=DATOS$(C,F)
FIN HDHI
HACER K2=K2+1
FIN SI
FIN HDHI

HACER DESDE C=1 HASTA N,1
SI CAR$=NOTAS$(C,1) ENTONCES
HACER M1=M1+1
FIN SI
FIN HDHI

**//TAMAÑO DE LA TABLA AUXILIAR
M2=N-M1
DEFINIR NT$(M2,10)
**//ELIMINAR DATOS
HACER DESDE C=1 HASTA N,1
SI CAR$<>NOTAS$(C,1) ENTONCES
HACER DESDE F=1 HASTA 10,1
HACER NT$(M3,F)=NOTAS$(C,F)
FIN HDHI
HACER M3=M3+1
FIN SI
FIN HDHI
DEFINIR NOTAS$(M2,10)
HACER DESDE C=1 HASTA M2,1
HACER DESDE F=1 HASTA 10,1
HACER NOTAS$(C,F)=NT$(C,F)
FIN HDHI
HDHI

**//ELIMINAR REGISTROS DE LA TABLA DE PAGOS
HACER DESDE C=1 HASTA P,1
SI CAR$=PAGOS$(C,1) ENTONCES
HACER R1=R1+1
FIN SI
FIN HDHI
HACER R2=P-R1
DEFINIR P1$(R2,5)

HACER DESDE C=1 HASTA P,1
SI CAR$<>PAGOS$(C,1) ENTONCES
HACER DESDE F=1 HASTA 5,1
HACER P1$(R3,F)=PAGOS$(C,F)
FIN HDHI
HACER R3=R3+1
FIN SI
FIN HDHI

**//ELIMINAR REGISTROS TABLA DE HS
HACER DESDE C=1 HASTA H,1
SI CAR$=HS$(C,1) ENTONCES
HACER Y1=Y1+1
FIN SI
FIN HDHI
HACER Y2=H-Y1
DEFINIR H1$(Y2,5)

HACER DESDE C=1 HASTA H,1
SI CAR$<>HS$(C,1) ENTONCES
HACER DESDE F=1 HASTA 5,1
HACER H1$(Y3,F)=HS$(C,F)
FIN HDHI
HACER Y3=Y3+1
FIN SI
FIN HDHI
DEFINIR DATOS$(T1,5), NOTAS$(M2,10), PAGOS$(R2,5), HS$(Y2,4)

HACER DESDE C=1 HASTA T1,1
HACER DESDE F=1 HASTA 5,1
HACER DATOS$(C,F)=D1$(C,F)
FIN HDHI
FIN HDHI

HACER DESDE C=1 HASTA M2,1
HACER DESDE F=1 HASTA 10,1
HACER NOTAS$(C,F)=N1$(C,F)
FIN HDHI
FIN HDHI

HACER DESDE C=1 HASTA R2,1
HACER DESDE F=1 HASTA 5,1
HACER PAGOS$(C,F)=P1$(C,F)
FIN HDHI
FIN HDHI

HACER DESDE C=1 HASTA Y2,1
HACER DESDE F=1 HASTA 5,1
HACER HS$(C,F)=H1$(C,F)
FIN HDHI
FIN HDHI
FIN SI
FIN