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

ПРОГРАММА УПОРЯДОЧЕНИЯ ДВУХ СЛОВ

— Думаю, что это все. Попробуй составить программу, которая два введенных в произвольном порядке слова вывела бы на экран в алфавитном порядке.

Я только собираю — обрабатывают другие

— Попробую… А как вводить символьные переменные?

— Тем же оператором INPUT. Запиши в нем, значения каких переменных ты хочешь ввести, и — вперед. Мы пока использовали оператор INPUT для ввода только одного значения переменной, но с таким же успехом можно вводить и несколько. Надо только написать имена всех вводимых переменных по порядку, отделяя друг от друга запятыми. Так что те два слова можешь ввести одним оператором INPUT S1¤, S2¤, где S1¤ — имя переменной для первого слова, а S2¤— для второго слова.

— Так сразу я этого не сделаю. Надо присесть и подумать.

Тоня села за стол и начала размышлять. Но размышляла она недолго.

— Знаешь, я поняла, как тут надо делать! Вот мое предложение.

10 PRINT «ПРОГРАММА РАССТАВИТ ДВА СЛОВА ПО АЛФАВИТУ»

20 PRINT «ВВЕДИТЕ ДВА СЛОВА»

30 INPUT S1¤, S2¤

40 IF S1¤ > S2¤ THEN 60

50 PRINT S1¤, S2¤

60 PRINT S2¤, S1¤

70 STOP

80 END

— Расскажи, что ты тут делаешь?

— Сначала сообщаю, что программа делает, потом прошу ввести два слова. Потом эти слова ввожу. В строке 40 их сравниваю, и если первое будет по алфавиту вторым, то ухожу на строку 60, где оба слова вывожу — второе перед первым. Но если при сравнении оказалось, что первое и по алфавиту первое, то в строке 50 вывожу их, так сказать, в порядке поступления…

— А потом? Что будет потом?

— Да, что будет потом?… Потом еще какой-то вывод.

— Точно, какой-то вывод.

— Ха! Я втисну еще одну строчку:

55 STOP

— Теперь все в порядке.

— Послушай, а как эти два слова во время работы ввести, и главное, как интерпретатор сможет их друг от друга отделить?

— Можно делать двояко. Первый способ: как только показался вопросительный знак, введи первое слово; сразу покажется еще один вопросительный знак, и тогда, конечно, введи второе слово. Больше вопросительных знаков не будет, разумеется, если все запрограммировано правильно. Второй способ: оба слова введи сразу, друг за другом, отделяя запятой.

— Мне все ясно. Я хочу вводить свою программу.

— Хорошо. Только не забудь дать директиву NEW, чтобы очистить память.

На сей раз Тоня вводила программу очень тщательно и даже просмотрела текст при помощи директивы LIST. Все выглядело правильно.

— Ну что, я пускаю!

RUNNH

ПРОГРАММА УПОРЯДОЧИВАЕТ 2 СЛОВА ПО АЛФАВИТУ

ВВЕДИТЕ ДВА СЛОВА

?ЯНА

?АНЯ

АНЯ

АНЯ ЯНА

STOP AN LINE 70

— Ур-р-р-ра! Программа работает!

— Почему ты так считаешь?

— Какие могут быть сомнения? Посмотри же, она все вывела правильно!

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

— Зачем?! Что с ними может случиться?

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

— Раз уж ты хочешь…

RUNNH

ПРОГРАММА УПОРЯДОЧИВАЕТ 2 СЛОВА ПО АЛФАВИТУ

ВВЕДИТЕ ДВА СЛОВА

?АНЯ

?ЯНА

АНЯ ЯНА

STOP AN LINE 55

Ну, что я говорила! Все правильно.