Основы программирования на языке Turbo Pascal. Беляева И.В. - 93 стр.

UptoLike

Составители:

Рубрика:

write(A[i]:3);

writeln;

end; {Конец процедуры PrintArray}

Функции без параметров

Как говорилось ранее, в Turbo Pascal существует два вида

подпрограмм – процедуры и функции. Функции отличаются от процедур

тем, что в них вычисляется и возвращается значение. Процедуру можно

превратить в функцию, если в ней вычисляется какое-то (желательно одно

единственное) значение. При этом превращении сокращается количество

глобальных переменных, через которые передаются данные из процедуры

(и это очень хорошо).

Проанализируем ранее рассмотренную задачу. В ней имеется 4

процедуры:

{1 – ввод массива}

ReadArray;

{2 – поиск индекса минимального элемента}

FindIndMin;

{3 – удаление элемента}

DeleteMin;

{4 – вывод массива}

PrintArray;

В функцию можно (и нужно) переделать процедуру FindIndMin –

единственным действием в этой процедуре является вычисление индекса

минимального элемента массива.

После превращения процедуры в функцию эта подпрограмма примет

такой вид:

{FindIndMin – функция поиска индекса минимального элемента}

{Возвращаемое значение – индекс минимального элемента}

Function FindIndMin:IndexEl;

Var

Ind : IndexEl; {Локальная переменная, в которой хранится