Parcial2RES

{Bienvenidos al entorno CMRE.
Lo siguiente es un código de ejemplo que implementa un
proceso que recibe un número de avenida como parámetro,
se posiciona en esa avenida y la recorre.}

programa ejemplo
procesos

  proceso soltarPapeles (ES cant: numero)
  comenzar
    mientras (HayPapelEnLaBolsa)
      depositarPapel
  fin
  proceso tomarPapeles (ES cant: numero)
  comenzar
    mientras (HayPapelEnLaEsquina)
      tomarPapel
      cant:=cant+1
  fin

  proceso SubirEscalon(E alto: numero ; E ancho: numero ; ES cantPapeles: numero)
  comenzar
    repetir alto 
      tomarPapeles (cantPapeles)
      mover
    derecha
    repetir ancho
      tomarPapeles (cantPapeles)
      mover
    
 
  
  fin
  
areas
  areaInicioF: AreaP (1,1,1,1)
  areaEscalableR1: AreaP(2,1, 12, 13)
  areaEscalableR2: AreaP(32,1, 42, 13)
  areaEscalableR3: AreaP(62,1,73, 13)
  areaDeposito: AreaPC(100,100,100,100)
  
robots
  robot Papelero
  variables
    cantPapeles: numero
    altoEscalon, anchoEscalon: numero
    id: numero
    miAv, miCa: numero
    escalonessubidos: numero
    listo: boolean
    
  comenzar
    escalonessubidos:=0
    cantPapeles:=0
    miAv:=PosAv
    miCa:=PosCa
    listo:=F
    RecibirMensaje(id, RF)
    repetir 3
      RecibirMensaje(altoEscalon, RF)
      RecibirMensaje(anchoEscalon, RF)
      SubirEscalon(altoEscalon, anchoEscalon, cantPapeles)
      repetir 3
        derecha

    BloquearEsquina(100,100)
    Pos(100,100)
    mientras (HayPapelEnLaBolsa)
      soltarPapeles(cantPapeles)
      Pos(miAv,miCa)
      LiberarEsquina(100,100)
      
      listo:=V
      EnviarMensaje(id, RF)
      EnviarMensaje(listo, RF)
      EnviarMensaje(cantPapeles, RF)
      

    
  fin
  
  robot Fiscalizador
  variables
    id: numero
    ancho, alto: numero
    listo: boolean
    cantMax: numero
    miAv, miCa: numero
    cantListos: numero
    RGanador: numero
    cantP: numero
    CantGanador: numero
  comenzar
    RGanador:=0
    cantMax:=-1
    cantListos:=0
    EnviarMensaje(1, R1)
    EnviarMensaje(2, R2)
    EnviarMensaje(3, R3)
    repetir 3
      Random(alto, 1,4)       
      Random(ancho, 1,3)
      EnviarMensaje(alto, R1)
      EnviarMensaje(ancho, R1)
      Random(alto, 1,4)       
      Random(ancho, 1,3)
      EnviarMensaje(alto, R2)
      EnviarMensaje(ancho, R2)
      Random(alto, 1,4)       
      Random(ancho, 1,3)
      EnviarMensaje(alto, R3)
      EnviarMensaje(ancho, R3)
      
    repetir 3
      RecibirMensaje(id, *)
      RecibirMensaje(listo, *)
      si (id = 1)
        RecibirMensaje(cantP, R1)
        cantListos:=cantListos+1
      sino 
        si (id = 2)
          RecibirMensaje (cantP, R2)
          cantListos:=cantListos+1
        sino
          RecibirMensaje(cantP, R3)
          cantListos:=cantListos+1
    si (cantListos=3)     
      si (cantP>cantMax)
        cantMax:=cantP
        RGanador:=id
    Informar(RGanador)
  fin
variables
  R1: Papelero
  R2: Papelero
  R3: Papelero
  RF: Fiscalizador
comenzar
  AsignarArea(RF, areaInicioF)


  AsignarArea(R1, areaEscalableR1)
  AsignarArea(R2, areaEscalableR2)
  AsignarArea(R3, areaEscalableR3)
   
  AsignarArea (R1, areaDeposito)
  AsignarArea (R2, areaDeposito)
  AsignarArea (R3, areaDeposito) 
       
  Iniciar(RF, 1,1)
  Iniciar(R1, 2,1)  
  Iniciar(R2, 32,1)
  Iniciar(R3, 62,1)
fin