2. Задание на лабораторную работу Размерности массивов следует задать именованными константами. Все необходимые данные должны передаваться подпрограммам в качестве параметров; все величины, используемые только внутри подпрограмм, должны быть описаны как локальные. Использование глобальных переменных в подпрограммах не допускается. Вывод результатов работы подпрограмм должен выполняться в главной программе.
3. Необходимая информация Заголовок процедуры имеет вид: PROCEDURE <имя> [(<сп.ф. п. >)]; Заголовок функции: FUNCTION <имя> [(<.сп.ф.п.>)] : <тип>: Здесь <имя> - имя подпрограммы (правильный идентификатор); <сп.ф.п-> - список формальных параметров, <тип> - тип возвращаемого функцией результата.
4. Пример 1 var х,у : real; FUNCTION Power(a,b : real) : real; begin {Power} if a > 0 then Power := exp(b * In(a)) else If a < 0 then Power := exp(b * ln(abs(a))) eIse if b=0 then Power := 1 else Power := 0 end {Power}; BEGIN {main} repeat readln(x,y); wrlteln(power(x,y):12:10, power (x, -у) :15:10) until EOF ; END . { main }
5. Пример 2 const а : integer = 5; b : integer = 7; PROCEDURE lnc2 (var с : Integer; b : Integer); begin {Inc2} с := с + с; b := b + b ; writeln (' удвоенные:', c :5, b :5); end; {Inc2} BEGIN {main} writeln(' исходные:'. a:5, b:5); lnc2(a,b); writeln(' результат :', a:5, b:5); END . { main }
![Необходимая информация Заголовок процедуры имеет вид: PROCEDURE <имя> [(<сп.ф. п. >)]; Заголовок функции: FUNCTION <имя> [(<.сп.ф.п.>)] : <тип>: Здесь <имя> - имя подпрограммы (правильный идентификатор); <сп.ф.п-> - список формальных параметров, <тип> - тип возвращаемого функцией результата.](https://image.slidesharecdn.com/6-110920045018-phpapp02/85/6-3-320.jpg)
