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

В QBASICE’е для организации подпрограмм существуют два оператора — GOSUB и RETURN.

ОБЩИЙ ВИД:

GOSUB метка

где метка — это первая строка подпрограммы.

Назначение оператора GOSUB — передача управления на выполнение подпрограммы.

В отличие от оператора GOТО, оператор GOSUB не только осуществляет безусловный переход на выполнение программной строки с меткой, но и запоминает адрес точки, из которой произошел переход, в специальном участке памяти — стеке возврата.

После выполнения подпрограммы, компьютер возвращает управление по адресу, хранящемуся в стеке возврата, и следующей будет выполняться команда, стоящая после оператора GOSUB.

Окончанием подпрограммы служит оператор

RETURN

То есть, в любой подпрограмме последней командой является оператор RETURN.

Основная программа обязательно должна заканчиваться оператором END.

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

Задача 1.

Найти значения функции Y=3X³+4X² для X=1; -3; 5; -4.

ПРИМЕЧАНИЕ: В этом случае придется 4 раза выполнять рассчеты по одной и той же формуле и выводить результаты на печать. Поэтому эти действия рационально будет выделить в подпрограмму.

CLS Результат:

X=1: GOSUB met

Х=1 Y=7 X=-3 Y=-45 X=5 Y=475 X=-4 Y=-192

X=-3: GOSUB met

X=5: GOSUB met

X=-4: GOSUB met

END

met: REM ПОДПРОГРАММА

Y=3*X^3+4*X^2

PRINT “X=“;X, “Y=“;Y

RETURN

Задача 2.

Написать программу рисования N вишенок. N вводит пользователь.

....................

N

SCREEN 9: COLOR 2, 7: CLS

INPUT “N= “; N

WHILE N<=0

PRINT “ОШИБКА! ПОВТОРИТЕ ВВОД!”

WEND

CLS

X= 30

Y= 50

WHILE Y<300

FOR I=1 TO N STEP 1

GOSUB СHERRY

X=X+50

IF X>600 THEN
Y=Y+ 50: X= 30: REM Если х превысит 600, то переходим

END IF: REM на новую строку

NEXT I

WEND

END

CHERRY:

CIRCLE(X,Y),20,4:REM ягода

PAINT(X,Y),4

LINE (X, Y-20)-(X,Y-40),2:REM веточка

CIRCLE (X+10, Y-30), 10, 2,,,1/3:REM листочек

PAINT (X+10, Y-30),2

RETURN

ПРИМЕЧАНИЕ: В начале программы стоит защита от неверного ввода. Если пользователь введет число, которое меньше или равно нулю, то программа выдаст сообщение об ошибке и попросит повторить ввод.

В цикле по номерам вишенок задается координата Х центра окружности и происходит обращение к подпрограмме CHERRY, в которой рисуется вишенка. Если координата Х превысит 600, то увеличиваем значение координаты У, а Х присваивает начальное значение. Таким образом рисование вишенок перейдет на следующую строку.

Задача 3.

Нарисовать елочку:

Пусть высота каждого фрагмента елочки будет равна 10 пикселей, а длины будут равны 20, 40, 60.

Вынесем в подпрограмму рисование одного треугольника:

x,y

x-l/2,y+h x+l/2,y+h

РЕШЕНИЕ:

SCREEN 9:cls

H=10:X=30

L=20: Y=10: GOSUB EL

L=40: Y=20: GOSUB EL

L=60: Y=30: GOSUB EL

END

EL:

LINE(X,Y)-(X+L/2,Y+H),2

LINE-(X-L/2,Y+H),2

LINE-(X,Y),2

PAINT (X, Y+2),2

RETURN

Задача 4.

Нарисовать N елочек. N - вводит пользователь с клавиатуры.

Решение:

COLOR 2, 7: CLS

VVOD:

INPUT “N= “; N

IF (N<=0) OR (N>5) THEN

PRINT “ОШИБКА! ПОВТОРИТЕ ВВОД!”: GOTO VVOD

END IF

SCREEN 9: CLS: X=30

FOR I=1 TO N STEP 1

GOSUB FOREST

X=X+70

NEXT I

END

FOREST:

H=10

L=20: Y=10: GOSUB EL

L=40: Y=20: GOSUB EL

L=60: Y=30: GOSUB EL

RETURN

EL:

LINE(X,Y)-(X+L/2,Y+H),2

LINE-(X-L/2,Y+H),2

LINE-(X,Y),2

PAINT (X, Y+2),2

RETURN

Пояснение: В защите от неправильного ввода число N ограничено от 1 до 5, так как при наших размерах елочек помещается на экран не более пяти.

Подпрограмма FOREST рисует на экране всю елочку целиком, обращаясь к подпрограмме EL для рисования отдельных треугольников.

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