Правила форума
procedure (зарезервированное слово)Язык:
Русский
English
procedure (зарезервированное слово)
Процедура - это часть программы, в которой выполняется специфическое действие, обычно основанное на наборе параметров.
Синтаксис
procedure идентификатор;
или
procedure идентификатор (параметры);
Замечания
В заголовке процедуры определяются её идентификатор и набор формальных параметров (если таковые есть).
Процедура вызывается с помощью процедурного оператора.
Заголовок процедуры сопровождается:
■ разделом описаний, в котором объявляются локальные объекты
■ операторами, находящимися между Begin и End, которые
определяют, что должно быть выполнено при вызове процедуры.
Вы можете использовать директиву interrupt, чтобы объявить процедуру обработки прерываний. Вместо частей объявлений и операторов, в объявлении процедуры могут присутствовать директивы forward, external или inline.
Пример
{ Объявление процедуры }
procedure WrStr (X, Y : Integer; S : String);
var SaveX, SaveY : Integer;
begin
SaveX := WhereX;
SaveY := WhereY;
GotoXY(X, Y);
Write(S);
GotoXY(SaveX, SaveY);
end;
Ада
-- Объявление процедуры
-- GetPenPos и MoveToGlobal -- из пакета UserIO (TextTools)
procedure Wr_Str (X, Y : Integer; S : String) is
Save_X, Save_Y : Integer;
begin
GetPenPos (Save_X, Save_Y);
MoveToGlobal (X, Y);
Draw (S);
MoveToGlobal (SaveX, SaveY);
end Wr_Str;
В зависимости от того, последует за заголовком тело или нет, после заголовка пишется "is" или точка с запятой. Поэтому в языке Ада директива forward не нужна. Вместо директивы external в языке Ада используется pragma Import. Директива far специфична для DOS. Вместо inline есть полноценные ассемблерные шаблоны. Вместо interrupt используется pragma Interrupt_Handler.
::
::
::
