albertohilal

Clase 6 ejercicio 6

Sep 17th, 2017
73
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.83 KB | None | 0 0
  1. /*Escribi el procedimiento IrACoordenada(x, y) que recibe dos parametros x e y,
  2. y posiciona el cabezal en la columna numero x y en la fila numero y.
  3. Puede fallar este
  4. procedimiento?*/
  5.  
  6. function x(){
  7. nroCelda := 0
  8. while (puedeMover(Oeste))
  9. {
  10. Mover(Oeste)
  11. nroCelda := nroCelda+1
  12. }
  13.  
  14. return (nroCelda)
  15. }
  16. ////////////////////////////////////
  17. function y()
  18. {
  19. nroCelda := 0
  20. while (puedeMover(Sur))
  21. {
  22. Mover(Sur)
  23. nroCelda := nroCelda+1
  24. }
  25.  
  26. return (nroCelda)
  27. }
  28. //////////////////////////////////
  29. procedure MoverN(dir,cant){
  30. repeatWith i in 1..cant
  31. {Mover(dir)}
  32. }
  33. //////////////////////////////////
  34. procedure IrACoordenada(x,y){
  35. IrAlOrigen()
  36. MoverN(Este,x) //Debe haber x cantidad de celdas hacia el Este
  37. MoverN(Norte,y)//Debe haber y cantidad de celdas hacia el Norte
  38. }
  39.  
  40.  
  41. procedure Main()
  42. {
  43. IrACoordenada(3,2)
  44. }
Advertisement
Add Comment
Please, Sign In to add comment