Читать онлайн «"Учебник QBasic"». Страница 8

Примечание: Оператор 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-).