Parece que hay varios problemas en el código que usted proporcionóproporcioné. Me ocuparé de cada uno y proporcionaré una versión corregida del código.
2 En este programa la función intercambiar también se utiliza para intercambiar dos números enteros, pero dicha función no está diseñada para hacerlointercambiar dos variables. Se necesita crear una función separada para intercambiar dos números enteros.
3 El bucle en la función intercambiar usa i-1 como índice, lo que provocará un acceso fuera de límites en la primera iteración. Si PSeInt está configurado para índices y arreglo en base 0, dicho índice debe comenzar desde 0.
4 La función intercambiar se llama con argumentos incorrectos para intercambiar dos números enteros. Se debe llamar con las direcciones de a y b, no con un tamaño de matriz de 4.
El programa quedaría así:
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;
intercambiarnumeros(a, b);
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
intercambiararreglos(M, N, 4);
Escribir "";
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 Intercambiarnumeros(a Por Referencia, b Por Referencia)
Definir tmp Como Entero;
tmp <- a;
a <- b;
b <- tmp;
FinSubProceso
SubProceso intercambiararreglos(a1, a2, 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