Подпрограмм функций на языке турбо паскаль

ПРОГРАММИРОВАНИЕ С ИСПОЛЬЗОВАНИЕМ

Методические указания к выполнению лабораторных работ

по курсу “Программирование и основы алгоритмизации”

для студентов специальности 210100

дневной, вечерней и заочной форм обучения

Одобрено

редакционно-издательским советом

Балаковского института техники,

технологии и управления

Балаково 2007

ЦЕЛЬ РАБОТЫ: Овладение навыками алгоритмизацией и програм­ми­рования задач с использованием функции пользователя.

ОСНОВНЫЕ ПОНЯТИЯ

Группу операторов, к которой возникает необходимость частого обращения, объединяют в самостоятельный блок, указав ему имя. Такой блок, разработанный пользователем, называют подпрограммой пользователя.

Различает два вида подпрограмм: процедуры и функции, которые описываются в разделе описания главной программы.

Function<имя>(<список формальных параметров>: тип>): <Тип возвращаемого значения>;

Label … - раздел описаний меток

Const... - раздел описания констант

Туре... - раздел описаний типов

Var... - раздел описания переменных

Procedure... - вложенная процедура

Function... - вложенная функция

BEGIN

<операторы>;

END;

При вызове подпрограммы работа основной программы останавливается. Подпрограмма обрабатывает данные, переданные из главной программы, и по завершении выполнения возвращает главной программе результат.

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

Формальные параметры подпрограммы указывают, с какими параметрами сле­дует обращаться к этой подпрограмме (количество параметров, их последова­тельность, типы). Они задаются в заголовке подпрограммы. Для каждого формального параметра следует указать имя и тип, тип формального параметра может быть практи­чески любым. Все формальные параметры делятся на:

- параметры-значения (эти параметры в основной программе подпрограм­мой не меняются);

- параметры-переменные (эти параметры подпрограмма может изменить в основной программе)

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

Пример.

function Sum(X, Y: Integer): Real;

Procedure Sum(X, Y: Integer; var S: Real);

Параметры – переменные используются для передачи результатов выполнения процедуры в основную программу. В списке формальных параметров они указываются после слова var.

В качестве фактического параметра на месте параметра-значения при вызове подпрограммы может выступать любое выражение совместимого для присваива­ния типа, не содержащее файловую компоненту, например:

Sum (2+i, 8*i, S);

Пример описания и вызова функции.

var a, b, s: integer;

function sum (x, y: integer): integer;

begin

sum:=x+y;

end;

begin

read (a,b);

s:=sum (a,b);

write (' s=',s);

end.

где sum - имя функции; a,b – фактические параметры, которые пе­редаются из основной программы в функцию; х,у - формальные параметры-значения, через которые в функцию пе­редаются значения фактических параметров из основной программы.

Вызов функции осуществляется в пра­вой части оператора присваивания, при этом в выражении записываются имя функции со списком фактических параметров sum(a,b). Ф актические параметры по ко­личеству и по типам должны совпадать с формальными параметрами функции.

Формальным параметрам функции присваиваются соответствующие значения фактических параметров: х:= a; у:= b.

Далее выполняется тело функции, вычисленное значение присваивается имени функции и возвращается в основную программу в точку вызова.

Если в теле функции содер­жится обраще­ние к функции, то новое вычисление выполняется по при­веденному алгоритму. В по­добных случаях ал­горитм является рекурсивным.

ПРИМЕРЫВЫПОЛНЕНИЯ

Пример 1. Вычислить, используя функцию

program logar;

var z, x, y, b: real;

function l (с, а: real): real;

begin

l:=ln(c)/ln(a);

end;

begin

read (x, y, b);

write (‘z=’, z: 6:3);

end.

Пример 2. Вычислить