EPA - Capitulo 4

4. Programar al robot para que recorra la calle 20 e informe cuántas esquinas tienen
sólo flores y cuántas esquinas tienen sólo papeles

robots
  robot robot1
  variables
    soloFlores : numero
    soloPapeles : numero
  comenzar
    soloFlores := 0
    soloPapeles := 0
    Pos(1,20)
    derecha
    mientras((~(HFELE) & HPELE) | (HFELE & ~(HPELE)) & PosAv < 100 )    {si F y noP ó viceversa}
      si(HFELE)
        soloFlores := soloFlores +1
      sino
        si(HPELE)
          soloPapeles := soloPapeles +1
      mover                                                             {se mueve a 100 sin contar}
    si(HFELE)                                                           {cuenta la esquina final}
      soloFlores := soloFlores +1
    sino
      si(HPELE)
        soloPapeles := soloPapeles +1
    Informar(soloFlores)
    Informar(soloPapeles)
  fin