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

UptoLike

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

Рубрика:

for i := 1 to n do

write(A[i]:3);

writeln;

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

{Основная часть программы}

begin

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

ReadArray;

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

FindIndMin;

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

DeleteMin;

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

PrintArray;

end. {Конец программы SimpleProcedureExample}

Этот пример показывает, как сделать программу с использованием

процедур без параметров. Для этого необходимо задачу разбить на

относительно независимые куски. Затем каждый из этих кусков оформить

в виде отдельной процедуры, а из основной части программы эти

процедуры необходимо вызвать. Заметим, что все используемые в

процедурах переменные и типы должны быть определены и объявлены

выше определения процедур.

Правила определения процедуры без параметров:

Из текста программы вырезается нужный кусок и переносится выше

основной части программы (выше первого Begin).

Этот кусок текста программы заключается в операторные скобки

Begin … End;.