Проектирование программного обеспечения. Николаев С.В. - 91 стр.

UptoLike

ВУЗ: 

ТТИ ЮФУ | Таганрог

Составители: 

Рубрика: 

91
Следует обратить внимание на то, что основной (внешний) цикл DO…LOOP
не имеет параметра условие, что означает бесконечный повтор блока опера-
торов (зацикливание). Однако условие выхода из цикла состоит в полном
останове программы при нажатии клавиши Esc и достижении оператора
END. Эта ситуация с некоторой натяжкой удовлетворяет требованию струк-
турного программирования, правда только
в том случае, если в программе
больше нет других операторов END.
'Константы для функциональных и управляющих клавиш
CONST ESC = 27, DOWN = 80, UP = 72, LEFT = 75,
RIGHT = 77 CONST HOME = 71, ENDKEY = 79, PGDN = 81,
PGUP = 73
DO
' Получить код функциональной или знаковой
клавиши
DO
Choice$ = INKEY$
LOOP WHILE Choice$ = ""
IF LEN(Choice$) = 1 THEN
' РаспознаваниеASCII клавиш
SELECT CASE ASC(Choice$)
CASE ESC
PRINT "Клавиша Escape"
END
CASE IS < 32, 127
PRINT "Управляющий символ"
CASE 48 TO 57
PRINT "Цифра: "; Choice$
CASE 65 TO 90
PRINT "Прописная буква: "; Choice$
CASE 97 TO 122
PRINT "Строчная буква: "; Choice$
CASE ELSE
PRINT "Знак припинания: "; Choice$
END SELECT
ELSE
'Преобразование 2-байтового расширенного
кода в '1-байтовый ASCII код и его
распознавание

Страницы