Примечание: Оператор IF...THEN...ELSE в QBasic должен быть записан в одну строку!
Пример 5.
CLS
REM Вычислить функцию y=1/(x^2-5*x-6)
FOR x = -10 TO 10
IF x ^ 2 - 5 * x - 6 = 0 THEN PRINT "При x=-1, x=6 функция не определена!"
ELSE y = 1 / (x ^ 2 - 5 * x - 6)
PRINT "x="; x, " y="; y
NEXT x
Пример 6.
CLS
REM Вычислить функцию y=1/SQR(x^2-3*x+2)
FOR x = -5 TO 5
IF x >= 1 AND x <= 2 THEN PRINT "При 1<=x=<2 функция не определена!"
ELSE y = 1 / SQR(x ^ 2 - 3 * x + 2)
PRINT "x="; x, " y="; y
NEXT x
чебники: / QBasic - №03 - Некоторые полезные команды QBasic /
Оператор LOCATE a, b - указывает позицию экрана (a-строка, b-столбец), начиная с которой будет печататься текст или число. Обычно используется перед оператором PRINT. Пример: LOCATE 4, 10: PRINT "Здравствуй, мир!"
Оператор SWAP X1, X2 - заставляет переменные X1 и X2 обменяться своими значениями. Пример:
X = 3
Y = 5
SWAP X, Y
Директива FILES выдает список подкаталогов и файлов в текущем каталоге. Кроме того, выдается свободная память на жестком диске.
Директива SHELL осуществляет сеанс связи с MS-DOS. Возвращение обратно из DOS в QBasic - команда EXIT.
Кроме того, директива SHELL "name" позволяет запускать программу name.exe или name.com, указанную в кавычках. Эта программа должна находиться в текущем каталоге, там же, где и *.bas файл. Расширение exe или com можно не указывать.
Учебники: / QBasic - №03 - Графические операторы в QBasic /
1. SCREEN N - этот оператор очищает экран и задает графический режим, где N определяет тип графического режима: N=1,7,8,9,12.
При N=12 в операторе COLOR цвет фона не задается. При N=7 режим экрана 320x200 пикселей и 16 цветов. Режим SCREEN 7 используется весьма часто.
Если задан оператор SCREEN N, то оператор CLS можно не использовать.
2. COLOR C1, C2. COLOR - оператор, задающий цвет текста и фона, где C1 задаёт цвет текста, а C2 - цвет фона. C1, C2=0-15.
Пример использования этого оператора - COLOR 14, 1
3. Рисование точки: PSET (X, Y), C, где X,Y - координаты точки, C - цвет точки. C=0-15. X=160, Y=100 - координаты центра экрана для режима SCREEN 7.
Пример: PSET (160, 100), 10
4. Оператор стирания точки: PRESET (X, Y)
5. Рисование линии: LINE (X1,Y1)-(X2,Y2), C. Здесь X1,Y1 и X2, Y2 - координаты концов линии, C-цвет. Пример: LINE (30, 100)-(120, 150), 10
6. Рисование прямоугольной рамки:
LINE (X1,Y1)-(X2,Y2), C, B. Здесь X1,Y1 и X2,Y2-кординаты концов левой диагонали, C-цвет. Пример: LINE (90, 110)-(140, 170), 10, B
7. Рисование закрашенного прямоугольника:
LINE (X1,Y1)-(X2,Y2), C, BF. Здесь X1,Y1 и X2,Y2-кординаты концов левой диагонали, C-цвет. Пример: LINE (90, 110)-(140, 170), 12, BF
8. Рисование окружности: CIRCLE (X, Y), R, C
Здесь X,Y - координаты центра, R - радиус, C - цвет.
Пример: CIRCLE (160, 110), 60, 13
9. Рисование закрашенной окружности:
CIRCLE (X, Y), R, C
PAINT (X, Y), C1, C2. Здесь PAINT - оператор закрашивания. X,Y - координаты точки внутри закрашиваемой области, C1 - цвет закрашивания, C2 - цвет линии границы.
Пример:
CIRCLE (160, 130), 50, 13
PAINT (160, 110), 11, 13
10. Рисование дуги и сектора: CIRCLE (X, Y), R, C, Ф1, Ф2
Здесь Ф1, Ф2 начальный и конечный углы дуги в радианах. У сектора перед Ф1 и Ф2 стоит знак минус:
CIRCLE (X, Y), R, C, -Ф1, -Ф2. Пример (pi=3.14159):
CIRCLE (160, 140), 70, 11, pi / 4, 3 * pi / 4
CIRCLE (160, 140), 60, 10, -pi / 4, -3 * pi / 4
11. Рисование эллипса: CIRCLE (X, Y), R, C, , , K
Здесь K - эксцентриситет эллипса. K<1-эллипс вытянут вдоль большой оси. K>1-эллипс вытянут вдоль малой оси.
Пример: CIRCLE (160, 100), 70, 15, , , 0.5
Пример графики на QBasic: Квадрат, три концентрические окружности и точка. Программа имеет вид:
SCREEN 7
COLOR 14, 8
PRINT "Пример графики на QBasic:"
LINE (100, 50)-(220, 150), 13, B
CIRCLE (160, 100), 20, 11
CIRCLE (160, 100), 30, 12
CIRCLE (160, 100), 40, 14
PSET (160, 100), 15
END
чебники:
/ QBasic - №03 - Установка цветов в операторе COLOR QBasic /
Число Цвет
0 Черный
1 Синий
2 Зеленый
3 Голубой
4 Красный
5 Фиолетовый
6 Коричневый
7 Серый
8 Темно-серый
9 Светло-синий
10 Светло-зеленый
11 Светло-голубой
12 Светло-красный
13 Светло-фиолетовый
14 Желтый
15 Белый
Учебники:
/ QBasic - №03 - Некоторые сочетания цветов
в операторе COLOR QBasic /
1) 14, 8 - желтый на темно-сером фоне;
2) 1, 7 - синий на светло-сером фоне;
3) 5, 14 - фиолетовый на желтом фоне;
4) 4, 11 - красный на голубом фоне;
5) 5, 10 - фиолетовый на светло-зеленом фоне;
6) 15, 5 - белый на фиолетовом фоне;
7) 14, 1 - желтый на синем фоне;
8) 15, 1 - белый на синем фоне;
9) 8, 11 - темно-серый на голубом фоне;
10) 1, 15 - синий на белом фоне.
Учебники: / QBasic - №03 - Вопросы ( к урокам ) /
1. Что такое математическая модель?
2. Какие бывают виды моделей? Приведите примеры физических моделей.
3. Что представляет собой процесс решения задачи на ЭВМ?
4. Что такое программирование и программа?
5. Какие требования предъявляются к программе и какие у неё свойства?
6. Что такое язык программирования и какие языки программирования Вы знаете?
7. Что такое алгоритм и какие он имеет свойства?
8. Какие алгоритмы Вы знаете?
9. Что такое исполнители алгоритмов?
10. Что такое ветвление и цикл? Что такое переменная? Какие бывают типы переменных?
11. Что такое метод последовательной детализации?
12. Что такое транслятор, компилятор и интерпретатор?
Учебники: / QBasic - №03 - Задачи ( к урокам ) /
1. Нарисуйте блок-схему линейного алгоритма. Приведите пример программы с линейным алгоритмом на языке QBasic.
2. Нарисуйте блок-схему разветвляющегося алгоритма. Приведите пример программы на QBasic с разветвляющимся алгоритмом.
3. Нарисуйте блок-схему циклического алгоритма. Приведите пример программы на QBasic с циклическим алгоритмом. Вычислите сумму первых n членов арифметической прогрессии.
4. Используя графические операторы QBasic, создайте простейшие изображения геометрических фигур.
Учебники: / QBasic - №04 /
- Введение.
- Оператор Print.
- Как начать и закончить программу (Cls, End).
- Комментарии к программе (Rem и апострофы ).
- Ввод данных (Input).
- Сравнение (If, Then, Else).
Учебники: / QBasic - №04 - Глава 1 /
Ну с чего вообще слуедует начать. Нужно купить qbasic и установить его. Надеюсь вы с этим справитесь сами, так как это не так уж и сложно 8-). Хочу вас сразу огорчить, чтоб вы не думали, что если вы научились програмировать на qbasic, то вы стали супер пупер прогером- это не так, так как qbasic считается самым легким и в наши дни устаревшим языком, но для общего развития он нужен. Так для чего нам надо его знать спросите вы ? 8-) А я отвечу: для того чтобв вы привыкли вообще програмировать, чтоб вы научились писать программы, так как все языки по сути похожи(алгоритмы решений по крайней мере), различаются они только операторами.8-) Хочу сразу заметить что он на английском языке.8-) Ну вот это наверное и все. Так что запасайтесь терпением и усердно изучайте его. Желаю вам его выучить в совершенствею 8-).
