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

У ТОНИ ПОЛУЧАЕТСЯ ДИАЛОГ С МАШИНОЙ

— Пора начинать действовать, дело покажет, что и как. Этот твой нововведенный оператор придется вставлять… там, где была уничтоженная строка 80. Интересно, сколько новых строк понадобится?… Много не должно быть — буду их нумеровать через 5. Сначала запрос о продолжении работы:

90 PRINT "ЕСЛИ КОНЧАЕТЕ, ВВЕДИТЕ 0"

Поймет это твой пользователь?

— Кто его знает? Можно было и больше написать — что-нибудь вроде того, что можно вводить любое число, если есть желание продолжать. Вообще Алгоритмыч говорил, что при выдумывании пояснений очень важно найти золотую середину: мало выведешь — пользователь не поймет; много выведешь — экран будет забит текстом, вывод будет ненаглядным и человек устанет его читать.

Вот результат слишком пространного вывода программы

— Сейчас предусмотрим ввод числа Z. Это просто.

85 INPUT Z

Теперь пресловутый оператор ветвления. Так, так. Записать «если Z=0, то уходи…»? Неизвестно, куда надо уходить… Да это и неважно, потому что так писать нехорошо. Переходить надо как раз тогда, когда Z не равен нулю! А это, если верить корифею Бейсикову, надо записывать так:

90 IF Z<>0 THEN 30

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

25 PRINT

— Что ж. Выглядит вполне прилично. Поставь еще только оператор STOP после оператора ветвления. Нужен, конечно, он исключительно ради порядка, так как интерпретатор, достигнув последней строки программы, все равно кончит работать.

95 STOP

— Сейчас я перенумерую строки программы.

RESEQ

READY

Потом ее посмотрю. Но всю смотреть нет необходимости, достаточно посмотреть конец с изменениями. Я начала вводить изменения с восьмидесятой строки, прости, со строки с номером 80, но так как я еще добавила строку 25, то после перенумерации строка 80 стала строкой 90.

LISTNH 90-200

90 PRINT" ЕСЛИ КОНЧАЕТЕ, ВВЕДИТЕ 0"

100 INPUT Z

110 IF Z<>0 THEN 40

120 STOP

130 END