Теперь давайте усложним нашу программу, чтобы она могла анализировать наше высказывание. Начнем, как обычно, с самого простого. Возьмем нашу последнюю программу и слегка ее дополним. Только вот что. Давайте изменим ее нумерацию на порядок. То есть вместо того, чтобы нумеровать строки 1, 2, 3, 4 будем нумеровать 10, 20, 30, 40. Что это нам даст? А то, что структура программы станет более пластичной. Например, если раньше между первым и вторым оператором мы ничего не могли вставить, так как нумерация BASIC (в отличие, скажем, от FOCAL) не признает дробных чисел, то при новой системе мы сможем легко вставить между 10-й и 20-ой строкой целых девять строчек. То есть программа становится как бы «дышащей».

Итак, начинаем дополнять нашу программу. Давайте сделаем так, чтобы она давала различную реакцию на разные цифры, вводимые Вами в компьютер. В принципе мы можем сделать, чтобы она реагировала на каждое различие, но для простоты давайте договоримся так. Если введенное число будет больше 500, то ответом будет «Вот это да!», если число, обозначающее год рождения Платона, будет в пределах от 400-500 включительно, то компьютер отреагирует такой репликой: «Как хорошо Вы знаете историю философии!» При вводе числа в пределах от 300 до 400 ответ будет выглядеть так: «Ну, это не совсем точно...», от 200-300 - «Вы, вероятно, оговорились!», наконец, все числа меньше 200 вызовут у компьютера реакцию: «Этого не может быть!» А теперь, если не возражаете, приступим к построению программы.

Не забывайте, что нумерация строк у нас теперь будет через десяток, и что мы теперь будем использовать операторы IF... THEN... PRINT. Давайте посмотрим, что у нас получилось:

10. PRINT «В каком году родился Платон?»
20. INPUT year
30. IF year <500 THEN PRINT «Вот это да!»
40. IF year 400 < year < 500 THEN PRINT «Как хорошо Вы знаете историю философии!».
50. IF year >300 & year < 400 THEN PRINT «Ну, это не совсем точно»
60. IF year>200 & year < 300 THEN PRINT «Вы, вероятно, оговорились!»
70. IF year < 200 & year THEN PRINT «Этого не может быть!»
80. END.

Вы, наверное, сразу обратили внимание, что мы использовали еще одну команду. Это оператор AND , то есть «и». Значение его очевидно. Скажем, проанализируем 40-ю строку программы. Ее можно описать так: если введенное число, обозначающее год рождения Платона, равно или больше 400 и, в то же время, меньше 500, то печатай: «Как хорошо Вы знаете историю философии!»

Если же введенное число не соответствует условию, заданному в 40-й строке, то компьютер начинает проверять на соответствие следующую, то есть 50-ю строку и т.д.

А теперь давайте запустим программу (команда запуска RUN). Сначала появился вопрос: «В каком году родился Платон?» И на следующей строке появился вопросительный знак, показывающий, что компьютер ждет от нас ввода ответа с клавиатуры. Допустим, мы ввели число «428». Наша программа начинает его анализировать. Проверяет, соответствует ли введенное число условию, заданному в 30-й строке, то есть больше ли оно 500. Если бы условие было выполнено, то на дисплее появилась бы уже знакомая нам строка «Вот это да!». Но 428 меньше 500, поэтому компьютер переходит к 40-й строке программы.

В 40-й строке осуществляется проверка - находится ли наше число в пределах от 400 до 500. Так как наше число - 428 - находится именно в этих пределах, на дисплее появляется реплика - «Как хорошо Вы знаете историю философии!» Далее компьютер последовательно проверяет: не соответствует ли наше число другим условиям, заданным в строках 50,60,70. Но такого соответствия нет, и поэтому машина доходит до 80-й строчки программы и согласно ее предписанию END прекращает работу. Если мы снова захотим запустить эту программу, то снова должны дать команду RUN.

А теперь вопрос, как нам зациклить программу? То есть сделать так, чтобы отреагировав на ответ, машина вновь (автоматически) задала нам вопрос, напомним, что лучше всего это сделать, используя оператор (команду) goto.

Итак, мы с Вами убедились, что машина вполне может оценить формально описанное высказывание. Но компьютер может реагировать не только на числа, аи на другие символы и их сочетания. Ну, например, Вы хотите, чтобы перед началом работы с какой-нибудь программой, ее пользователь получил приятный настрой на общение с ней. Тогда можно сделать так. Сначала пусть машина поздоровается с пользователем, затем узнает, как его зовут, и положительно отзовется об его имени (это всегда подкупает).

Только вначале договоримся, что переменную имени мы обозначим NAME, а так как вводить с клавиатуры потребуется буквенные символы, то в конце имени переменной мы должны будем поставить значок доллара $, чтобы машина поняла, что речь идет о слове, а не о числе. Итак, договорились, наша переменная будет выглядеть так:
NAME

10. 10 PRINT «Добрый день! Как Вас зовут?»
20. 20 PRINT NAME $
30. 30 PRINT «Какое прекрасное имя!»
40. 40 PRINT «Позовите, пожалуйста, кого-нибудь еще».
50. 50 goto 10

Как Вы, наверное, успели заметить - здесь мы зациклили программу. И она способна работать бесчисленное количество раз, до тех пор, пока компьютер не отключат. Мы можем внести в эту программу коррективы, если, конечно, сочтем необходимым. Ну, например, мы хотим, чтобы на определенные имена эта программа реагировала по-особенному. Скажем, нам очень нравится имя Маргарита. Пусть оно и в программе будет выделено из ряда других. Для этого нам нужно задать в программе необходимое условие. Выглядеть это будет примерно так: если (IF) переменная (NAME$) будет равна «Маргарита», то (THEN) печатай (PRINT) «Это имя приводит меня в восторг!»

10. PRINT «Добрый день! Как Вас зовут?»
20. INPUT NAME$
25. INPUT «Ирина» THEN PRINT «Это имя приводит меня в восторг!»
30. PRINT «Какое прекрасное имя!»
40. PRINT «Позовите, пожалуйста, кого-нибудь еще».
50. goto 10

Запустите программу и посмотрите, что у Вас получилось. А теперь подумайте, можно ли сделать так, чтобы в случае ввода имени «Маргарита», программа сообщала лишь о восторге и не печатала «Какое прекрасное имя!» (но печатала ее во всех других случаях). Подсказка - здесь нужно использовать оператор ELSE. Но где и как? Подумайте!