Clase 6 Ejercicio 2

/*Escribi la funcion nroFilas() que indica la cantidad
de filas 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 nroFilas(){
CabezalALaPrimeraCelda()
cantFilas:=1
while (puedeMover(Sur)){
Mover(Sur)
cantFilas:= cantFilas + 1
}
return(cantFilas)
}

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