Clase 6 ejercicio 4

/*Escribir la funcion coordenadaX() que indica
el numero de columna en el cual se encuentra el cabezal
respecto del borde Este
(coincidiendo con la numeracion del tablero).*/
 //Averiguo cuantas columnas 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)

}
//

function coordenadaX(){
disColumnas := 1
while (puedeMover(Este)){
Mover(Este)
disColumnas:= disColumnas + 1
}
return (disColumnas)

}

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