Файл: Основы программирования на языке QBasic (Алфавит языка QBasic).pdf

Подпрограмму GOSUB...RETURN можно вызывать любое количество раз. Можно вызвать одну подпрограмму из другой. В то же время подпрограмма GOSUB...RETURN не может быть рекурсивной, т. е. вызывать сама себя. Одна подпрограмма может иметь несколько операторов RETURN.

Рассмотрим пример использования подпрограммы.

Пример 10. Имеются данные. Требуется определить количество данных, в которые больше некоторой за данной величины [10, 94].

10 REM основная программа

20 DIM A (100)

30 PRINT "Введите количество данных"

40 INPUT M

50 FOR I=1 TO M

60 PRINT "Введите число"; I

70 INPUT A (I)

80 NEXT I

90 PRINT "Введите нижнюю границу"

100 INPUT D

110 GOSUB 200

120 PRINT "Количество таких данных>"; D;"="; K

130 STOP

200 REM Подпрограмма

210 K=0

220 FOR I=1 TO M

230 IF A (I)>D THEN K=K+1

240 NEXT I

250 RETURN

В данной задаче подпрограмма находит количество данных которые больше заданной величины. Обращение к подпрограмме строка 200.

5. ОПЕРАТОРЫ ГРАФИКИ

Превосходными графическими возможностями обладают современные компьютеры. Хотя QBasic уже нам кажется очень древним языком программирования, но всё-таки он содержит набор операторов для работы с графикой. Графика QBasic ориентирована прежде всего на построение простейших геометрических фигур и реализацию простейших возможностей динамической графики [11, 150].

Прежде чем работать с графической информацией, необходимо сначала установить графический режим работы, использую специальный оператор:

SCREEN N- оператор включения графического режима, где N - номер режима работы (0 - текстовый режим работы, от 1 до 13 - графические режимы работы). Например, следующий оператор устанавливает темно-синий основной цвет и цвет фона — белый: COLOR 1, 15. В основном работаем во втором графическом режиме, который имеет следующие характеристики: черно- белый экран, размер по горизонтали 0≤X≤639, по вертикали 0≤Y≤190.

Пример 11. Программа выводит символы разного цвета [11, 156].

10 CLS

20 SCREEN 9

30 FOR i = 0 TO 15

40 COLOR i

50 PRINT i; SPC (1);

60 NEXT i

70 END.

Рассмотрим операторы для построения графических фигур:

1. Рисование точки PSET (X, Y). Данный оператор позволяет нарисовать тоску с координатами Х, У
2. Оператор рисования отрезка LINE (X1, Y1) - (X2, Y2) где (X1, Y1), (X2, Y2) - координаты концов отрезка. Этот же оператор позволяет нарисовать прямоугольник, LINE (X1, Y1) - (X2, Y2), , B- оператор рисования прямоугольника со сторонами параллельными осям X2,Y2 координат, если вместо параметра B воспользоваться BF, то прямоугольник будет закрашенный.
3. Оператор для рисования окружности CIRCLE (X, Y), R

CIRCLE (X, Y), R, , A,B - оператор рисования дуги от угла A до B против часовой стрелки, углы измеряются в радианной мере. PAINT (X, Y) - оператор окрашивает замкнутую область, начиная от указанной точки

Пример 12. Постройте n концентрических окружностей [8, 24].

10 INPUT N

20 SCREEN 2

30 CLS

40 FOR X=1 TO N

50 R=1+3.14*(X -1)

60 CIRCLE (315, 100), R

70 NEXT X

80 END

Пример 13. Программа демонстрирующая движение отрезка [11, 162].

10 CLS

20 SCREEN 9

30 FOR x = 0 TO 640 STEP 4

'==1===== Блок рисования отрезка основным цветом ==========

40 FOR i = x TO x + 15

50 PSET (i, 70)

60 NEXT i

'===============================================

70 FOR iv = 1 TO 10000: NEXT iv

'временная задержка

'==2===== Блок рисования отрезка цветом фона ============

80 FOR j = x TO x + 15

90 PRESET (j, 70)

100 NEXT j

'=====================================================

110 NEXT x

120 END

Пример 14. Составить программу, изображающую окружность в закрашенном прямоугольнике [2, 124].

SCREEN 2

CLS

LINE (60, 30) - (180, 150), , B

CIRCLE (120, 90), 60

PAINT (61, 31)

PAINT (179, 149)

END.

Заключение

По итогам выполнения курсовой работы можно сделать вывод, что цель достигнута, поставленные задачи выполнены.

В результате выполнения курсовой работы были изучены основы программирования на языке QBasic и описаны в данной курсовой работе.

А также выполнены следующие задачи:

• ознакомились с историей создания языка QBasic;
• изучили подробно синтаксис и алфавит языка;
• разобрались с существующими операторами языка и описали их синтаксис в курсовой работе;
• рассмотрели конкретные примеры использования операторов;
• рассмотреть также функции и массивы в QBasic;
• познакомились с графическими возможности языка.

Язык программирования QBasic лет двадцать назад был самым популярным и любимым языком программирования для многих. Синтаксически простой, семантически схожий с английским языком, с суперкомпактным набором команд, позволяющий писать сразу, с ходу, не задумываясь об инициализациях и прочем подобном, он был идеальным решением для тех, кто ничего не смыслит в программировании, но хочет разобраться [10, 24].  Почему от стал таким популярным и любимым для многих пользователей ПК, здесь ответ прост. Конечно же благодаря своей простоте и понятности. Но времена меняются, и на данный момент язык BASIC устарел и практически нигде не используется. Роль данного языка в истории развития программирования очень огромная.

Сейчас также довольно популярна обновлённая версия языка - Visual Basic, а также его диалекты Visual Basic for Applications (VBA) и Visual Basic Scripting Edition (VBScript) и язык для платформы .NET — Visual Basic .NET [12, 5].