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

UptoLike

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

Рубрика:

…

Var

IndexMinEl : IndexEl; {Локальная переменная, в которую

занесем возвращенное из функции FindIndMin значение}

…

begin

…

{Ищем индекс минимального элемента}

IndexMinEl := FindIndMin;

{Выводим на экран индекс минимального элемента массива}

Writeln(‘Минимальный элемент массива имеет индекс = ’,

IndexMinEl);

…

Предположим, что значение, возвращенное функцией, нужно

использовать только один раз, для вывода его на экран. Тогда можно

обойтись и без переменной IndexMinEl. Тогда текст примера сократится

до такого куска:

…

begin

…

{Ищем индекс минимального элемента и выводим его на экран}

Writeln(‘Минимальный элемент массива имеет индекс = ’,

FindMinEl);

…

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

что после окончания работы функции ее результат заносится в

соответствующую переменную.

Пример: Вычислим значение тангенса по введенному значению угла в

градусах.

{1 } program CallFunction;

{2 } var

{3 } x : real; {Значение введенного угла в градусах}

{4 }