Главная часть программы

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

Главная часть программы набирается в этом редакторе и должна выглядеть так (комментарии вводить не обязательно):

¢ описание переменной N — числа особей

DIM N AS INTEGER

' начало бесконечного цикла

DO

¹ ввод числа особей в переменную N

INPUT "Введите количество особей: ", N

¢ если введен 0, то

IF N = О THEN

' закончить программу

END

END IF

' напечатать результат:

PRINT "Требуемое число лет: ", Years%(N)

' продолжить цикл с начала

LOOP

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

Основная, глобальная часть алгоритма реализована. Осталось «спуститься вниз» и запрограммировать функцию Years%(), которая в качестве аргумента получает количество особей и возвращает число лет, требуемое для их разведения.

Типы данных в Бейсике

В конце названия функции Years% указан символ %. Таким образом в Бейсике описывается тип возвращаемого функцией значения. Допустимые символы приведены в таблице.

Тип переменной	Символ в конце имени переменной
INTEGER	%
STRING	$
DOUBLE	#

Добавление новой функции

В QBasic имеется удобная возможность добавить в программу новую функцию, избежав при этом дополнительного ручного кодирования. Это делает команда Edit > New Function (Правка > Создать функцию). В появившемся диалоговом окне надо ввести название функции Years% и нажать клавишу ENTER. Основной текст программы временно пропадет, и появится автоматически сгенерированное описание новой функции:

FUNCTION Years%

END FUNCTION

Для того чтобы вернуться обратно к главному тексту, а из него — к любой введенной подпрограмме, необходимо использовать клавишу F2. При ее нажатии на экран выводится список всех созданных подпрограмм, а в первой строке — имя главного модуля.

Функции Years% надо указать список аргументов. В данном случае он будет состоять из одного параметра:

FUNCTION Years%(X AS INTEGER)