Contador y Auditor
Visite la pagina web aqui
ELIMINAR UN REGISTRO EN LA TABLA DE NOTAS
INICIO
**//TABLA LLENA
DEFINIR NOTAS$(N,10), CAR$, C=0, F=O, K1=0, K2=0, K3=1
LEER “CARNET A ELIMINAR:”, CAR$
HACER DESDE C=1 HASTA N,1
SI CAR$=NOTAS$(C,1) ENTONCES
HACER K1=KI+1
FIN SI
FIN HDHI
**//TAMAÑO DE LA TABLA AUXILIAR
K2=N-K1
DEFINIR NT$(K2,10)
**//ELIMINAR DATOS
HACER DESDE C=1 HASTA N,1
SI CARlt;>NOTAS$(C,1) ENTONCES
HACER DESDE F=1 HASTA 10,1
HACER NT$(K3,F)=NOTAS$(C,F)
FIN HDHI
HACER K3=K3+1
FIN SI
FIN HDHI
DEFINIR NOTAS$(K2,10)
HACER DESDE C=1 HASTA K2,1
HACER DESDE F=1 HASTA 10,1
HACER NOTAS$(C,F)=NT$(C,F)
FIN HDHI
HDHI
FIN
No hay comentarios:
Publicar un comentario