Информатика -взгляд 2


Пример на Бейсике Разведение кроликов - часть 3


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

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

DIM N AS INTEGER

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

DO

1 ввод числа особей в переменную 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% надо указать список аргументов.


Начало  Назад  Вперед



Книжный магазин