Процедуры в Паскаль.

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

Она также имеет заголовок, раздел описаний (переменных, констант, типов, других процедур и функций и т.д.), и исполняемую часть, которая находится внутри составного оператора Begin..End. После того как процедура выполнится, она должна вернуть управление программе, вызвавшей ее. В программе процедура записывается после раздела описания переменных Var.

Рассмотрим использование процедуры на примере простой программы. Мы будем вводить с клавиатуры 2 числа, а на экране будет выводиться сообщение о том больше или меньше первое число второго.

Процедуры в Паскаль.

Program procedura1;
uses crt;
var a, b: integer;
procedure poisk;
begin
if a>b then
writeln ('Первое число больше второго')
else
if a<b then
writeln ('Первое число меньше второго')
else
writeln ('Оба числа равны');
end;
begin
clrscr;
writeln('Введите a, b ');
readln(a, b);
poisk;
readln
end.

В строке №4 записываем зарезервированное слово Procedure, которая открывает раздел для описания процедур. После этого слова через пробел пишем заголовок процедуры. Заголовок придумывает сам программист. Я назвал процедуру «poisk».

В строке №5-№13 находится тело (исполняемая часть) процедуры. Она начинается, как и основная программа, со слова begin, а заканчивается словом end. После слова end ставится точка с запятой, т.к. программа не заканчивается после описания процедуры.

Строка №6. Если «a» больше «b», то на экран выводится сообщение в строке №7.

Строка №8. В противном случае (т.е. если «a» меньше либо равно «b»), то проверяется условие в строке №9. И если «a» меньше «b», то на экран выводится сообщение в строке №10.

Строка №11. В противном случае (т.е. если «a» равно «b»), то на экран выводится сообщение в строке №12.

В строке №14 начало основной программы.

В строке №16 выводится сообщение.

В строке №17 вводим числа с клавиатуры.

В строке №18 записываем название нашей процедуры «poisk». Т.е. с этого момента основная программа перестает работать и начинает работать процедура, которую мы записали в строках №4-№13. Она сравнивает числа, которые мы ввели с клавиатуры и в зависимости от результата, выводит на экран то или иное сообщение. После того как процедура будет выполнена она передаст управление основной программе.

Вводим два числа и нажимаем Enter.

Предыдущая статья : Подпрограммы в Паскаль.

Оглавление : Уроки Паскаль. Процедуры и функции.

Следующая статья : Использование процедур в Паскале.