Алгоритм прохождения через лес - QBasic

Формулировка задачи:

Программа рисует лес. И через этот лес должен пройти муравей. Собственно говоря ему это в данной программе удается сделать. Но я подумал. В лесу 150 деревьев, а что будет, если деревьев будет не просто больше, а они образуют U-образную непроходимую чащу. Ловушка для муравья? Или нет?

CLS
RANDOMIZE TIMER
 
DIM A(1 TO 21, 1 TO 80) AS INTEGER
DIM x AS INTEGER
DIM y AS INTEGER
DIM e1 AS INTEGER
DIM e2 AS INTEGER
 
COLOR 10
 
FOR i = 1 TO 150
   x = 20 * RND + 1
   y = 60 * RND + 10
   A(x, y) = 7
   LOCATE x, y
   PRINT CHR$(254)
NEXT i
 
COLOR 15
x = 10
y = 1
 
DO
   IF A(x, y + 1) = 0 THEN
      y = y + 1
      LOCATE x, y
      PRINT "*"
   ELSE
      e1 = 3 * RND - 1.5
      e2 = 3 * RND - 1.5
      IF A(x + e1, y + e2) = 0 THEN
         x = x + e1
         y = y + e2
         LOCATE x, y
         PRINT "*"
      END IF
   END IF
LOOP UNTIL y = 79
END

Решение задачи: «Алгоритм прохождения через лес»

Листинг программы

FOR i = 1 TO 3
   x = 9
   y = i+2
   A(x, y) = 7
   LOCATE x, y
   PRINT CHR$(254)
   x = 11
   A(x, y) = 7
   LOCATE x, y
   PRINT CHR$(254)
   x = i + 8 
   y = 5
   A(x, y) = 7
   LOCATE x, y
   PRINT CHR$(254)
NEXT i

Объяснение кода листинга программы

Задается значение переменной i равное 1.
Значение переменной x устанавливается равным 9.
Значение переменной y устанавливается равным i+2.
Значение ячейки A(x, y) устанавливается равным 7.
Выполняется команда LOCATE x, y.
Выполняется команда PRINT CHR$(254).
Значение переменной x устанавливается равным 11.
Значение ячейки A(x, y) устанавливается равным 7.
Выполняется команда LOCATE x, y.
Выполняется команда PRINT CHR$(254).
Значение переменной x устанавливается равным i + 8.
Значение переменной y устанавливается равным 5.
Значение ячейки A(x, y) устанавливается равным 7.
Выполняется команда LOCATE x, y.
Выполняется команда PRINT CHR$(254).
Значение переменной i увеличивается на 1.
Цикл повторяется с шагом 1 до тех пор, пока значение переменной i не станет равным 3.
Значение переменной x устанавливается равным 9.
Значение переменной y устанавливается равным i+2.
Значение ячейки A(x, y) устанавливается равным 7.
Выполняется команда LOCATE x, y.
Выполняется команда PRINT CHR$(254).
Значение переменной x устанавливается равным 11.
Значение ячейки A(x, y) устанавливается равным 7.
Выполняется команда LOCATE x, y.
Выполняется команда PRINT CHR$(254).
Значение переменной x устанавливается равным i + 8.
Значение переменной y устанавливается равным 5.
Значение ячейки A(x, y) устанавливается равным 7.
Выполняется команда LOCATE x, y.
Выполняется команда PRINT CHR$(254).
Значение переменной i увеличивается на 1.
Цикл повторяется с шагом 1 до тех пор, пока значение переменной i не станет равным 3.