Сохранение текста программы в файле

Расчет популяции

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

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

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

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

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

FUNCTION Years%

END FUNCTION

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

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

FUNCTION Years%(X AS INTEGER)

Так как для определения нового члена последовательности Фибоначчи требуется знать значения двух предыдущих членов, прежде всего надо описать три локальных переменных F1, F2 и F3, хранящие три очередных значения последовательности. Исходно первые три значения 1,1 и 2 запишутся в переменные F1, F2 и F3 явно, а в дальнейшем новые значения будут вычисляться программно.

Сам расчет представляет собой условный цикл, который выполняется до тех пор, пока очередное значение не превысит заданное количество особей. Число таких циклов — число лет — будет подсчитываться в локальной переменной-счетчике YearsNum, первоначально имеющей значение 3.

FUNCTION Years%(X AS INTEGER)

' описание переменных

DIM Fl AS INTEGER, F2 AS INTEGER, F3 AS INTEGER

DIM YearsNum AS INTEGER

' задание начальных значений

Fl = 1: F2 = 1: F3 = 2: YearsNum = 3

¹ цикл, пока число кроликов меньше заданного

DO WHILE F3 < X

¹ определяем новый член последовательности

Fl = F2: F2 = F3

F3 = Fl + F2 ' увеличиваем число лет на 1:

YearsNum = YearsNum + 1 ' повторяем цикл

LOOP

' в качестве возвращаемого значения

' используется значение переменной YearsNum

Years% = YearsNum

END FUNCTION

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

Сохранение текста программы в файле осуществляется командой File > Save (Файл > Сохранить), в результате чего на экране показывается диалоговое окно выбора каталога и имени файла. В качестве такого имени можно указать kroliki, выбрать нужный каталог и нажать клавишу ENTER. По умолчанию к названию kroliki припишется расширение.BAS. В дальнейшем эту программу можно снова загрузить в QBasic командой File > Open (Файл > Открыть).

Дата добавления: 2014-12-26