"Учебник QBasic"
Шрифт:
PRINT "Простите!"
INPUT " Второй выбор "; number
IF number = 3 THEN GOTO gotit
PRINT " Нет !"
INPUT " Последний
IF number = 3 THEN GOTO gotit
PRINT " Простите ! The number was 3!"
END
gotit: PRINT " Вы выиграли ! Хорошая работа !"
Основной элемент в этой программе - IF...THEN.
Последняя вещь в этой главе – изучение изменения цвета текста и других элементов. Цвет текста на экране позволяет менять команда COLOR (Включая Цвет фона). Вот пример использования этого оператора:
COLOR 13
PRINT "Сиреневый!"
COLOR 7
PRINT "Серый!"
Число, после оператора COLOR - один из этих номеров цвета:
00 - Сажа
08 - Тёмно - серый
01 – Темно - синий
09 – Светло - синий
02 – Тёмно – зеленый
10 - Светло - зеленый
03 – Тёмно - голубой
11 – Светло - голубой
04 – Темно - красный
12 - Светло - красный
05 – Темно - пурпурный
13 - Сиреневый
06 - Цитрус
14 - Жёлтый
07 - Серый
15 – Ярко - белый
Это заканчивает наше обсуждение оператора COLOR и нашей главы. В этой главе узнали много нового.
УДАЧИ!!! И Хорошего вам дня!!!
Учебники: / QBasic – №01 – Глава 4 /
Глава Четвёртая. Привет! В этой главе, мы изучим следующие команды:
DO...LOOP, OPEN, INT, CLOSE, RANDOMIZE TIMER RND, PRINT#, SELECT...END, SELECT, INPUT # INKEY$
В предыдущей главе, мы говорили относительно циклов DO...LOOP, которые позволяют повторять действие некоторое количество раз. Окончание цикла при уловии:
Все, что вы должны сделать - написать, DO WHILE... или UNTIL..[какое-либо условие]. В переводе с английского это бы звучало так: ДЕЛАЙТЕ какое - либо ДЕЙТСТИЕ ДО ТОГО КАК ПРОИЗОЙДЁТ [какое-либо условие]
Обязательна команда LOOP, чтобы закончить цикл. Есть очень простой пример
из того, как использовать этот цикл:
DO UNTIL a = 10
try = try + 1
PRINT "Попробуйте номер"; try
PRINT "Наберите секретный номер!"
INPUT "Введите"; a
LOOP
Это бы значило что цикл продолжался до набора числа 10. Эта команда очень простая, но бесконечно полезная. Отличие этого цикла от команды INPUT - не нужно нажимать клавишу "ENTER" после ввода числа. Сейчас программисты стремятся придерживаться этого в своих программах, а именно, в местах где написано "нажмите любую клавишу".