Algoritmo Parqueadero (vector Y Matriz)

Proceso Parqueadero

Definir num,m,a,b,cont,opc,moto,i,ingm,contm,contb,contv,bici,ingb,ingv,vehi,vec,contbm,contbv como entero;

Dimension m[3,4];

dimension vec[3];

Para a<-0 Hasta 2 Con Paso 1 Hacer

Para b<-0 Hasta 3 Con Paso 1 Hacer

m[a,b]<-0;

FinPara

FinPara

cont<-0; contbm<-0;contbv<-0;contm<-0;contb<-0;contv<-0;moto<-1500;bici<-1000;vehi<-2000;

Repetir

Escribir "";

Escribir "Bienvenido al parqueadero SENA";

escribir "Por favor seleccione una opcion";

Escribir "1. Ingreso moto";

Escribir "2. Ingreso Bicicletas";

Escribir "3. Ingreso Vehiculo";

Escribir "4. Ingresos Obtenidos";

Escribir "5. Salir";

leer num;

si num=1 entonces

escribir "Las bahias disponibles para motos son: ";

Para a<-0 Hasta 0 Con Paso 1 Hacer

Para b<-0 Hasta 3 Con Paso 1 Hacer

cont<-cont+1;

escribir "Las bahias disponibles son :",cont, " con :",m[a,b], " Moto";

Finpara

Finpara

cont<-cont-4;

escribir "Por favor seleccione la bahia para guardar";

leer opc;

si opc=1 entonces

escribir "La moto se guardara en la bahia No:1 ";

m[0,0]<-1;

contm<-contm+1;

FinSi

si opc=2 entonces

escribir "La moto se guardara en la bahia No:2 ";

m[0,1]<-1;

contm<-contm+1;

FinSi

si opc=3 entonces

escribir "La moto se guardara en la bahia No:3 ";

m[0,2]<-1;

contm<-contm+1;

FinSi

si opc=4 entonces

escribir "La moto se guardara en la bahia No:4 ";

m[0,3]<-1;

contm<-contm+1;

FinSi

Finsi

si num=2 entonces

escribir "Las bahias disponibles para bicicletas son: ";

Para a<-1 Hasta 1 Con Paso 1 Hacer

Para b<-0 Hasta 3 Con Paso 1 Hacer

contbm<-contbm+1;

escribir "Las bahias disponibles son :",contbm, " con :",m[a,b], " bicicleta";

FinPara

Finpara

contbm<-contbm-4;

escribir "Por favor seleccione la bahia para guardar";

leer

...