Курсовая работа: «Азы» программирования и обучающие программы
10 PRINT «В каком году родился Платон?»
20 INPUT year
30 IF year >500 THEN PRINT «Вотэтода!»
40 IFyear>400 & year < 500 THENPRINT «Как хорошо Вы знаете историю философии!».
50 IFyear>300 & year < 400 THENPRINT «Ну, это не совсем точно»
60 IFyear>200 & year < 300 THENPRINT «Вы, вероятно, оговорились!»
70 IFyear < 200 & yearTHENPRINT «Этого не может быть!»
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 PRINT «Добрый день! Как Вас зовут?»
20 PRINTNAME $
30 PRINT«Какое прекрасное имя!»
40 PRINT«Позовите, пожалуйста, кого-нибудь еще».
50 goto 10
Как Вы, наверное, успели заметить - здесь мы зациклили программу. И она способна работать бесчисленное количество раз, до тех пор, пока компьютер не отключат. Мы можем внести в эту программу коррективы, если, конечно, сочтем необходимым. Ну, например, мы хотим, чтобы на определенные имена эта программа реагировала по-особенному. Скажем, нам очень нравится имя Ирина. Пусть оно и в программе будет выделено из ряда других. Для этого нам нужно задать в программе необходимое условие. Выглядеть это будет примерно так: если (IF) переменная (NAME$) будет равна «Ирине», то (THEN ) печатай (PRINT ) «Это имя приводит меня в восторг!».
Это условие вполне уместится в одной строке. А строку мы поместим где? Правильно, между 20-й и 30-й строчкой. Пусть номер этой строки будет 25.
10 PRINT «Добрый день! Как Вас зовут?»
20 INPUTNAME$
25 INPUT «Ирина» THENPRINT «Это имя приводит меня в восторг!»
30 PRINT «Какое прекрасное имя!»
40 PRINT «Позовите, пожалуйста, кого-нибудь еще».
50 goto10