Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- /*Escribi el procedimiento IrACoordenada(x, y) que recibe dos parametros x e y,
- y posiciona el cabezal en la columna numero x y en la fila numero y.
- Puede fallar este
- procedimiento?*/
- function x(){
- nroCelda := 0
- while (puedeMover(Oeste))
- {
- Mover(Oeste)
- nroCelda := nroCelda+1
- }
- return (nroCelda)
- }
- ////////////////////////////////////
- function y()
- {
- nroCelda := 0
- while (puedeMover(Sur))
- {
- Mover(Sur)
- nroCelda := nroCelda+1
- }
- return (nroCelda)
- }
- //////////////////////////////////
- procedure MoverN(dir,cant){
- repeatWith i in 1..cant
- {Mover(dir)}
- }
- //////////////////////////////////
- procedure IrACoordenada(x,y){
- IrAlOrigen()
- MoverN(Este,x) //Debe haber x cantidad de celdas hacia el Este
- MoverN(Norte,y)//Debe haber y cantidad de celdas hacia el Norte
- }
- procedure Main()
- {
- IrACoordenada(3,2)
- }
Advertisement
Add Comment
Please, Sign In to add comment