Clase 6 Ejercicio 3

/*Escribi la funcion nroColumnas() que indica la cantidad
de columnas que tiene el tablero.*/

//Vamos a la primera celda

procedure IrAlBorde(dir) {
    while (puedeMover(dir))
    {Mover(dir)}
}

procedure CabezalALaPrimeraColumna(){
    IrAlBorde(Este)
}

procedure CabezalALaPrimeraFila(){
    IrAlBorde(Norte)
}

procedure CabezalALaPrimeraCelda(){
    CabezalALaPrimeraColumna()
    CabezalALaPrimeraFila()
}

function nroColumnas(){
CabezalALaPrimeraCelda()
cantColumnas:= 1
while (puedeMover(Oeste)){
Mover(Oeste)
cantColumnas:= cantColumnas + 1
}
return (cantColumnas)

}

procedure Main(){
valor:= nroColumnas()
return (valor)
}