Tengo este programa que pretende intercambiar el contenido de un arreglo con otro vacío ("mudar" los elementos de un arreglo a otro). Es una implementación de un programa en SLe. El programa tira error diciendo Posición no inicializada (A1(0)).
Proceso intercambio
// Ejemplo de uso de intercambiar().
Definir a, b, i Como Enteros;
a <- 100;
b <- 30;
Dimension M[5];
Definir M Como Entero;
Dimension N[5];
Definir N Como Entero;
M[0]<-10;
M[1]<-14;
M[2]<-21;
M[3]<-3;
M[4]<-1;
N[0]<-1;
N[1]<-212;
N[2]<-31;
N[3]<-4;
N[4]<-90;
Escribir "";
Escribir "Antes de intercambiar: a= ", a, " b= ", b;
intercambiar(a, b, 4);
Escribir "";
Escribir "Luego de intercambiar: a= ", a, " b= ", b;
Escribir "";
Escribir "Antes de intercambiar: ";
Escribir "M= " Sin Saltar;
Para i <- 0 Hasta 4 Con Paso 1 Hacer
Escribir M[i], ", " Sin Saltar;
FinPara
Escribir "";
Escribir "N= ", Sin Saltar;
Para i <- 0 Hasta 4 Con Paso 1 Hacer
Escribir N[i], ", " Sin Saltar;
FinPara
intercambiar(M, N, 4);
Escribir "";
Escribir "Luego de intercambiar: ";
Escribir "";
Escribir "M= ", Sin Saltar;
Para i <- 0 Hasta 4 Hacer
Escribir M[i], ", " Sin Saltar;
FinPara
Escribir "";
Escribir "N= ", Sin Saltar;
Para i <- 0 Hasta 4 Hacer
Escribir N[i], ", " Sin Saltar;
FinPara
Escribir "";
FinProceso
SubProceso intercambiar(a1 Por Referencia, a2 Por Referencia, n)
Definir i, tmp Como Enteros;
tmp<-0;
i<-0;
Mientras i < n Hacer
tmp <- a1[i];
a1[i] <- a2[i];
a2[i] <- tmp;
i <- i + 1;
FinMientras
FinSubProceso
intercambiar(a, b, 4)
, en dondea
yb
no son arreglos, son enteros, por ende la posicióna1[i]
nia2[i]
en tu Subproceso no existe. Es ahí donde se presenta el error.