Краткая справка по языку программирования Turbo Pascal

       

Функции


служат, прежде всего, для определения алгоритма вычисления некоторого значения (). В этом отношении функции подобны выражениям, которые также вычисляют значение. В соответствии с этим вызов функции является одним из допустимых операндов выражения, обозначая в нем то значение, которое вычисляет ("возвращает") функция.

Описание процедуры:

PROCEDURE

ИмяПроцедуры ( СписокФормальныхПараметров );

LABEL

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

CONST

  Описание локальных констант

TYPE

  Описание локальных типов

VAR

  Описание локальных переменных

BEGIN



  Тело процедуры

END.

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

PROGRAM

Example_of_Procedure;

USES CRT;

PROCEDURE ChangeColor( C1, C2 : Word );

BEGIN

  TextColor(C1);

  TextBackGround(C2)

END;

BEGIN

  ChangeColor( Yellow, Blue ); { Вызов процедуры }

  ClrScr; { Ощичаем экран }

  ...

  ...

END.

Описание функции:

FUNCTION

ИмяФункции ( СписокФормальныхПараметров ) : ТипЗначения;

LABEL

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

CONST

  Описание локальных констант

TYPE

  Описание локальных типов

VAR

  Описание локальных переменных

BEGIN

  Вычисление значения функции;

  ИмяФункции := ВычисленноеЗначение

END.

Для присвоения функции вычисленного значения ее имя должно хотя бы раз появиться в левой части оператора присванивания в теле самой функции (ИмяФункции := ВычисленноеЗначение).

Пример описания и вызова функции:

PROGRAM

Example_of_Function;

USES CRT;

VAR a : Integer;

FUNCTION Factorial( n : Integer ) : LongInt;

VAR

  F : LongInt;

  k : Integer;

BEGIN

  F:=1;

  for k:=1 to n do F:=F*k;

  Factorial := F

END;

BEGIN

  ClrScr;

  Write('Введите целое число a: ');

  ReadLn(a);

  Writeln('Факториал а = ', Factorial(a) );

  ReadLn;

END.



Содержание раздела