если вы находите эту программу
print "программа вычисления площади круга"
- 77 -
print " если вы находите эту программу полезной"
print "пожалуйста вышлите 3500 долларов"
print "Франк Борланд"
print "Скатте Валлей,СА95066"
print "-------------------------------------------------"
$include "CONST.BAS"
input "ввести радиус",r
print "площадь ="pi*r*r
Файл CONST.BAS
'общецелевые константы
pi=ANT(1)*4
%истинно=-1
%ложно=0
%максX=319
%максY=199
Чтобы компилировать эту программу CALCAREA должен быть сделан "главным
файлом",посколько это файл с оператором $INCLUDE .Рабочий файл двигается
туда и обратно по отношению к любому другому,в зависимости от нужд редакти-
рования (т.е если имеет ошибки).Вне зависимости от текущего рабочего фай-
ла,компилирование всегда начинается с CALCAREA (главного файла).(Более де-
тально см.в разделе "Главное меню" гл.3)
Когда компилятор Турбо Бейсика встречает метаоператор $INCLUDE в строке 7
файла CALCAREA ,он загружает и начинает считывать из CONST.BAS .Когда этот
код исчерпывается,компилятор захватывает оставленное им место в первона-
чальной программе.
$INCLUDE может вкладываться на глубину 5;т.е включаемый файл может иметь
свои $INCLUDE.
Пример 'хранить следущее в файле "example.inc"
-------- sub СкажиАлло 'процедура вывод
print "Алло"
end sub
'далее следунт главная программа
$include "example.inc" 'включить исходный файл
call СкажиАлло
end
Метаоператор $INLINE
---------------------
Функция $INLINE заявляет внутристрочный машинный код во внутристрочной суб-
Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий