Описание функций

Стандартные процедуры

Это, в первую очередь, процедуры ввода и вывода Read, readln, write, writeln. С ними вы знакомы.

В циклах Repeat, While и For можно использовать еще две процедуры – Break и Continue. Процедура Break позволяет досрочно выйти из цикла, не дожидаясь выполнения условий выхода.

Процедура Continue позволяет начать новую итерацию цикла, даже если предыдущая не завершена.

Пример: В массиве целых чисел найти первое отрицательное число и вывести его на экран.

Фрагмент программы

For I:=1 to N do {поиск отрицательного числа}

Begin

If A[i]>=0 then

Continiue; {не отр.=> на след. число}

Writeln (‘1-ое отриц. число=’, A[i]);

Break

End;

Процедура Exit служит для досрочного выхода из программы. Дело в том, что безусловный переход с использованием оператора goto можно осуществлять далеко не из каждого места программы и не в любое место программы. Так, например, нельзя с его помощью перейти из основной программы в подпрограмму или выйти из подпрограммы. Для этой цели используется процедура Exit.

Пример: Функция, обращает первое отрицательное число в массиве.

Function Minus

---------------------

Begin

Minus:=0

For i:=1 to N do

If T[i]<0 then

Begin

Minus:=T[i];

Exit {досрочный выход из фун-и}

END

End;

Существует множество стандартных процедур, которые работают с файлами:

Halt(1) - остановка,

Halt(0) - завершение,

Halt=Halt(0).

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

Общий вид заголовка функции:

Function имя функции (список формальных параметров):тип результата.

Если функция изменяет значения формальных параметров – переменных или значения глобальных по отношению к данной функции переменных, то говорят, что функция имеет побочный эффект.

Применение функции с побочным эффектом нарушает структурированность программы, поэтому их использование нежелательно.

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

Пример: Найти разность двух факториалов: F=m!-k!

Program P1;

Var F,M,K:Integer;

Function Fact (N:Integer):Integer;

Var P,I:Integer;

Begin

P:=1

For I:=2 to N do

P:=P*I;

Fact:=P

End;

Begin

Writeln (‘Ввод М,К’);

Readln (M,K);

F:=Fact (M) – Fact (K);

Writeln (‘F=’,F:5);

End.

Внутри функции имена N,P,I являются локальными. Результат вычисления факториала обозначается именем функции Fact. В основной программе переменные F,M,K являются глобальными. При вычислении значения F дважды происходит обращение к функции Fact(M) и Fact(k) прямо в правой части оператора присваивания. При этом вызов функции м. делать непосредственно внутри выражения, подобно тому, как используются стандартные встроенные функции, например Sin(x).

Пример: вычислить длину гипотенузы.

S=h/tg

Program Dlina;

Const Pi=3.14159;

Var H:Real;

Betta:Real;

Function S(M:Real;Betta:Real):Real;

Var x:Real;

Begin x:=Betta*Pi/180;

S:=H/(sin(x)/cos(x));

End;

Begin x:=Betta*Pi/180;

S:=H/9sin(x)/cos(x));

End;

Begin Write (‘Ввести Betta,H’);

Readln (Betta,H);

Write (‘S=’,s(H,Betta):10:4);

End;

Вызов функции осуществляется непосредственно в операции ввода.

Дата добавления: 2014-10-23