Proceso Puente
Escribir "el objetivo del juego es pasar a las personas de un extremo a otro";
Escribir "tenga en cuenta que el puente solo resiste el peso maximo de 13kg";
Escribir "persona 1<-1kg";
Escribir "persona 2<-3kg";
Escribir "persona 3<-6kg";
Escribir "persona 4<-8kg";
Escribir "persona 5<-12kg";
Dimension peso[5]
//Se le asigna peso a las personas
peso[1]<-1;
peso[2]<-3;
peso[3]<-6;
peso[4]<-8;
peso[5]<-12;
//asigna primer punto
Dimension lado1[5]
Para j<-1 Hasta 5 Con Paso 1 Hacer
lado1[j]<-0
FinPara
//asigna lugar a las personas en segundo punto
Dimension lado2[5];
Para j<-1 Hasta 5 Con Paso 1 Hacer
lado2[j]<-j
FinPara
//contador de pasos
contador<-0
suma<-0
suma2<-0
//para repetir los pasos del juego (desarrollo movimiento)
Repetir
//peticion de jugadores a mover
//imagenes para pantalla
Escribir " ",lado1[1]," ", lado2[1];
Escribir " ",lado1[2]," ", lado2[2];
Escribir " ",lado1[3]," ", lado2[3];
Escribir " ",lado1[4]," ", lado2[4];
Escribir " ",lado1[5]," ", lado2[5];
Escribir " ____________ ____________ "
Escribir " ( lado1 )////////////////////////////( lado2 )";
//peticion integrantes a mover
Escribir "ingrese primer intregante a mover";
Leer integrante1;
Escribir "ingrese segundo integrante a mover";
Leer integrante2;
//condiciona peso de integrantes sea <=13
si peso[integrante1]+peso[integrante2]<=13 Entonces
si lado2[integrante1]=integrante1 y lado2[integrante2]=integrante2 Entonces //comprueba posicion
lado1[integrante1]<-integrante1; //remplazo al mover valores
lado1[integrante2]<-integrante2;
lado2[integrante1]<-0
lado2[integrante2]<-0
//condicion para devolverse
Escribir "Devolver integrante del lado 1 al lado 2"
leer integrante3
lado2[integrante3]<-integrante3
lado1[integrante3]<-0
Sino
Escribir "Movimiento erroneo"
FinSi
Sino
FinSi
//imagenes para pantalla
Escribir " ",lado1[1]," ", lado2[1];
Escribir " ",lado1[2]," ", lado2[2];
Escribir " ",lado1[3]," ", lado2[3];
Escribir " ",lado1[4]," ", lado2[4];
Escribir " ",lado1[5]," ", lado2[5];
Escribir " ____________ ____________ "
Escribir " { lado1 }////////////////////////////{ lado2 }";
contador<-contador+1
Escribir "pasos realizados",contador;
suma<-(lado1[1]+lado1[2]+lado1[3]+lado1[4]+lado1[5])
suma2<-(lado2[1]+lado2[2]+lado2[3]+lado2[4]+lado2[5])
Hasta Que suma=15 y suma2=0
//muestra final del juego
Escribir " ",lado1[1]," ", lado2[1];
Escribir " ",lado1[2]," ", lado2[2];
Escribir " ",lado1[3]," ", lado2[3];
Escribir " ",lado1[4]," ", lado2[4];
Escribir " ",lado1[5]," ", lado2[5];
Escribir " ____________ ____________ "
Escribir " { lado1 } ////////////////////////////// { lado2 }";
Escribir "GAME OVER"
FinProceso
