Desafio 2 - Robot

Programa:

INICIO:

  LET A=0

  LET B=0

  LET C=0

  LET E=0

  LET F=0

  LET G=0

  LET H=0

  LET I=0

  LET J=0

   MOVE @{1,66},10,1000

   LET D = $PSD

   'PRINT "Distancia ", D

   IF (D <= 20) THEN

   'PRINT "OBJETO EN CUADRANTE 7"

   LET H=1

  GOTO LEECENTRO

   

   ELSE

    IF ((D > 20) & (D <= 24)) THEN

    'PRINT "OBJETO EN CUADRANTE 4"

    LET E=1

  GOTO LEECENTRO

    ELSE

      IF ((D > 24) & (D <= 28)) THEN

     '   PRINT "OBJETO EN CUADRANTE 1"

        LET A=1

      GOTO LEECENTRO

       ELSE

      '   PRINT "NO HAY OBJETO"

         GOTO LEECENTRO

      END IF

    END IF

 LEECENTRO:

 MOVE @{1,82},10,1000

   LET D = $PSD

   'PRINT "Distancia ", D

   IF (D <= 24) THEN

    'PRINT "OBJETO EN CUADRANTE 8"

    LET I=1

    GOTO LEEDERECHA

   ELSE

    IF ((D > 24) & (D <= 29)) THEN

      LET F=1     

    '  PRINT "OBJETO EN CUADRANTE 5"

     GOTO LEEDERECHA

    ELSE

      IF ((D > 29) & (D <= 33)) THEN

      '  PRINT "OBJETO EN CUADRANTE 2"

        LET B=1

        GOTO LEEDERECHA

       ELSE

     '   PRINT "NO HAY OBJETO"

        GOTO LEEDERECHA

      END IF

    END IF

LEEDERECHA:

 MOVE @{1,88},10,1000

   LET D = $PSD

'   PRINT "Distancia ", D

   IF (D <= 19) THEN

 ' PRINT "OBJETO EN CUADRANTE 9"

   LET J=1

   GOTO IMPRIMIR

   

   ELSE

    IF ((D > 19) & (D <= 26)) THEN

  '  PRINT "OBJETO EN CUADRANTE 6"

    LET G=1

    GOTO IMPRIMIR

    ELSE

      IF ((D > 26)& (D <= 30)) THEN

   '     PRINT "OBJETO EN CUADRANTE 3"

        LET C=1

        GOTO IMPRIMIR

       ELSE

    '      PRINT "NO HAY OBJETO"

         GOTO IMPRIMIR

      END IF

    END IF

IMPRIMIR:

 PRINT A,B,C

 PRINT E,F,G

 PRINT H,I,J

 END

Ejecución: