Практикум по среде и языку QBasic__________________________121
ввода прекращается по нажатию клавиши Enter, после чего введенная строковая переменная вновь будет выведена на экран на этот раз уже процедурой PRINT.
В завершение первого занятия перейдем в окно "untitled" и введем следующий текст.
К тексту программы здесь и далее добавляются комментарии, которые вкратце поясняют смысл производимых действий. Вы можете не вводить их, но если они будут введены надлежащим образом (не забывайте про апостроф!), то они не должны влиять на исполнение программы.
Р1!=3.14156 'число пи CLS 'очистка экрана DO 'начало цикла INPUT; "Введите значение радиуса ";R! 'процедура ввода
'(радиус) PRINT " Площадь круга равна ";PI!*R!*R! 'процедура вывода
'(площадь) LOOP WHILE R!>0 'конец цикла
В этой программе используется оператор цикла для того, чтобы запрашивать значение радиуса и после его ввода выдавать значение площади круга. Условием выхода из цикла и соответственно завершения программы является ввод нулевого или отрицательного значения радиуса (программа при этом все равно вычисляет и выдает значение площади). Обратите внимание на использование отступа для вложенных в цикл операторов.
Ознакомимся теперь с возможностями запуска программы в верхнем окне посредством меню Run. Прежде всего из меню Run исполним Start и убедимся, что она работает до тех пор, пока значение введенного радиуса положительно.
Для ознакомления с другими возможностями меню Run введите символ комментария перед словом WHILE и вновь запустите программу. Теперь работа программы не завершится при нулевых или отрицательных значениях радиуса. Таким образом мы имитировали одну из ошибок программирования, которые приводят к "зацикливанию" программы.
Для выхода из создавшейся ситуации нажмите клавиши Ctrl+Break. Среда приостановит выполнение программы. Теперь сотрите ненужный апостроф и из меню Run исполните Continue. Программа будет продолжать свою работу как ни в чем не бывало, но на этот раз уже выйдет из цикла при неположительном значении радиуса. Если же вы после приостановки исполните Restart, то среда подготовит программу к исполнению с самого начала.
При желании вы можете записать эту программу на диск (программы из нижнего окна на диск не записываются). Затем нужно выйти из среды точно таким же образом, как вы это делали в редакторе. В завершение первого занятия отметим, что хорошая проработка всех тем предыдущей главы в части освоения среды редактора EDIT должна существенно облегчить освоение предложенного материала. Вы не только ознакомились с содержанием всех меню среды QBasic, но даже успели кое-что вкусить от программирования, а именно начали учиться работать в основном и вспомогательном окнах этой среды.