Проблемы с функцией BASIC MID $

Question

Я пытаюсь распечатать каждую букву данной строки на новой строке.

1 INPUT ""; A$
2 E%=0
3 IF E% < LEN(A$) GOTO 5
4 END
5 PRINT MID$(A$,E%,E%+1)
6 E% = E% + 1
7 GOTO 3

Я продолжаю получать ILLEGAL QUANTITY ERROR IN 5, и я понятия не имею, почему.

Answer 1

У вас есть три проблемы с вашим кодом, две из них связаны.

Во-первых, E% должен начинаться с 1, а не с 0. Во-вторых, поскольку E% начинается с 1, вы должны проверить <= вместо<. Наконец, ваши параметры функции MID $ () должны быть такими, как показано ниже: </p>

1 INPUT ""; A$
2 E%=1
3 IF E% <= LEN(A$) GOTO 5
4 END
5 PRINT MID$(A$,E%,1)
6 E% = E% + 1
7 GOTO 3

Далее вы должны изучить циклы FOR / NEXT.