Программирование в среде Турбо Паскаль. Закутский С.Н - 45 стр.

UptoLike

45
Таким образом, при введении в программу (или подпрограмму) функ-
ций и процедур возникает разделение объектов на глобальные и локаль-
ные. Глобальными считаются такие объекты, которые описаны вне данной
подпрограммы. Они оказываются видимыми из любого места программы
(в т.ч. и из внутренних подпрограмм). Наоборот, локальные объекты
видимы лишь внутри того блока , где они охарактеризованы. Кроме объек-
тов, охарактеризованных в описательной части подпрограммы, в них могут
быть использованы и объекты, характеристики которых определены в за -
головке подпрограммы. Они называются формальными параметрами (см.
далее) и используются при обмене данными между подпрограммой и ос-
новной программой (или внешней и внутренней подпрограммами).
Оформление внутренних блоков для подпрограмм-функций и подпро -
грамм-процедур идентично , в то время как оформление заголовков имеет
свою специфику. Заголовок функции имеет следующий вид :
Function <имя функции>(<список формальных параметров>):<имя типа>;
Здесь
<function
93
>
служебное слово ;
<имя функции>
правильный
идентификатор, имя, выбираемое пользователем по общим правилам языка
программирования;
<список формальных параметров>
аргументы функ-
ции с указанием их типа , используемые для обмена информацией между
функцией и точкой вызова ;
<имя типа>
тип значения, вырабатываемого
функцией.
Список формальных параметров состоит из отдельных частей, отде-
ляемых друг от друга точкой с запятой. Каждая часть включает в себя спи-
сок параметров одного и того же типа и имеет вид :
<список имен переменных> : <имя типа>;
Здесь
<список имен переменных>
имена формальных параметров,
разделенных запятыми;
<имя типа>
общий тип этих параметров.
В качестве примера ниже приведен текст подпрограммы-функции,
предназначенной для вычисления целой степени какого -либо веществен-
ного числа или выражения вещественного типа .
Function Power
94
(Num : real; Expon : integer) : real;
{Эта подпрограмма-функция вещественное число Num в целочисленную
степень Expon}
Var Count
95
: integer;
Res : real;
BEGIN
If Expon = 0
Then Power:=1
Else begin
Res:=Num;
93
Function [фанкшн ] функция .
94
Power [пауэ] степень.
95
Count [каунт] итог.