Как Петя Бейсиков Тоню Соображалкину программировать учил

ОПЕРАТОР, ВСЕГДА ПЕРЕДАЮЩИЙ УПРАВЛЕНИЕ

— Раз уж ты хочешь делать именно так, то можешь использовать оператор безусловной передачи управления GO ТО, что произносится «гоу ту».

— И что означает «иди на», но был уговор, что больше новых операторов не будет.

— Такого уговора не было. Речь шла о том, что не будет ничего существенно нового, так что несущественно новые операторы могут еще быть. Закончим про оператор GO ТО. После него надо писать номер той строки, которая должна быть выполнена следующей. Например, 50 GO ТО 20 означает, что следующей будет выполнена строка 20 и потом по порядку строки, следующие за нею, до тех пор, пока не встретится строка с оператором IF или оператором GO ТО. А вот доказательство, что оператор GO ТО не является существенно новым. Его можно записать при помощи давно известного оператора ветвления. Например, таким образом:

50 IF Н=Н THEN 20

Этот оператор сравнивает значение переменной Н со значением той же переменной, и если они равны — а они, конечно, всегда равны, — то управление передается на строку 20.

— Зачем же тогда такой оператор нужен?

— Для краткости, только для краткости. И яснее будет, если запишешь GO ТО, а не какой-то оператор IF, в котором еще надо разбираться.

Он же никогда не остановится!

— Тогда программа готова!

10 DIM А(50)

15 Н=1

20 PRINT «ВВЕДИТЕ ОЦЕНКУ»

30 INPUT А(Н)

40 Н=Н+1

50 GO ТО 20

60 END

Совсем неплохо. Правда?

— Да, неплохо, но кое-чего не хватает. Машина все будет и будет спрашивать оценки.

— Ой, да! Этот цикл же никогда не кончится.

— Нет, в принципе все кончится при вводе значения пятидесятого элемента массива. Пятьдесят первый уже не введется — будет сообщение об ошибке.