ALGORITMO QUE ELIMINA DATOS EN UNA MATRIZ
Matriz - Matrices - Vector Bidimensional
CRUD que borre un registros de datos de una matriz en PSeInt
💻 Elimina un determinado registro encontrado por el campo CÓDIGO, al hallar el registro pregunta si desea eliminarlo, al confirmar elimina sus datos pero mantiene el campo de su código.
PSeInt Estricto :
Algoritmo programacion_work
Definir continua, datos, xcod , respuesta Como Caracter;
Definir f, fila como numero;
Dimension datos[10,5];
continua <- "S";
respuesta <- "S";
f <- 0;
//Cargar la matriz de datos de ejemplo
datos(1,0) <- "COD01";
datos(1,1) <- "SOFIA ";
datos(1,2) <- "LOS OLIVOS";
datos(1,3) <- " F ";
datos(1,4) <- "2500 ";
datos(2,0) <- "COD02";
datos(2,1) <- "ANDRES ";
datos(2,2) <- "CALLAO ";
datos(2,3) <- " M ";
datos(2,4) <- "2300 ";
datos(3,0) <- "COD03";
datos(3,1) <- "CESAR ";
datos(3,2) <- "LIMA ";
datos(3,3) <- " M ";
datos(3,4) <- "2000 ";
fila <- 3;
//Busca el Código del Registro a Eliminar
Escribir Sin Saltar "Ingrese Codigo >> ";
Leer xcod;
Para f <- 1 hasta fila con paso 1 hacer
Si xcod = datos(f,0) Entonces
Escribir "DATO ENCONTRADO";
Escribir "===============";
Escribir datos[f,0]," ",datos[f,1]," ",datos[f,2]," ",datos[f,3]," ",datos[f,4];
Escribir "";
Escribir Sin Saltar "Esta Seguro de Elimiar el Registro (S/N)?";
Leer respuesta;
Si (respuesta = "S") o (respuesta = "s") Entonces
datos(f,1) <- "";
datos(f,2) <- "";
datos(f,3) <- "";
datos(f,4) <- "";
FinSi
Escribir "";
Escribir "REPORTE DE DATOS ACTUALIZADOS";
Escribir "===============";
//Listar Todos los Datos
Para f <- 1 hasta fila con paso 1 hacer
Escribir datos[f,0]," ",datos[f,1]," ",datos[f,2]," ",datos[f,3]," ",datos[f,4];
FinPara
SiNo
Si f = 3 Entonces
Escribir "CODIGO NO ENCONTRADO";
FinSi
FinSi
FinPara
FinAlgoritmo
.
.
.
.