Вопрос 4.

Процедуры с параметрами, описание, пример.

Процедура предназначена для выполнения какой-то законченной последовательности действий.

Любая процедура начинается обязательно с заголовка. Он состоит из зарезервированного слова procedure, за которым следует идентификатор имени процедуры, а далее в круглых скобках – список формальных параметров. Завершается заголовок процедуры символом "точка с запятой". Если в процедуре используются именованные константы, то они объявляются в разделе объявления констант, который начинается словом const. После идет раздел объявления переменных, в котором объявляются (перечисляются) все переменные, используемые в программе. Раздел объявления переменных начинается словом var. За разделом объявления переменных расположен раздел инструкций. Раздел инструкций начинается словом begin и заканчивается словом end, за которым следует символ "точка с запятой". В разделе инструкций находятся исполняемые инструкции процедуры.

procedure имя процедуры (формальные параметры);

раздел описаний процедуры

begin

исполняемая часть процедуры

end;

Для вызова процедуры из основной программы или другой программы следует записать оператор, состоящий из имени процедуры и списка фактических параметров, которые должны совпадать по количеству и типам с формальными параметрами процедуры.

Пример:

var R1,R2,S1,S2:real;

procedure Pl(R:real; var S:real);

begin

S:=pi*sqr(R);

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

R1:=StrToFloat(Edit1.Text);

Pl(R1,S1);

R2:=StrToFloat(Edit2.Text);

Pl(R2,S2);

If S1>S2 then

Edit3.Text:=FloatToStr(S1)

else

Edit3.Text:=FloatToStr(S2);

end;

Вопрос 5.

Функции с параметрами, описание, пример.

Функция предназначена для вычисления какого-либо параметра. Если в программу включается новая, нестандартная функция, то ее необходимо описать в тексте программы, после чего можно обращаться к ней из программы. Обращение к функции осуществляется в правой части оператора присваивания, с указанием имени функции и фактических параметров. Функция может иметь собственные локальные константы, типы, переменные, процедуры и функции. Описание функций аналогично описанию процедур. Формат описания функции:

function имя функции (формальные параметры):тип результата;

раздел описаний функции

begin

исполняемая часть функции

end;

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

Пример:

var a,b:integer;

c:real;

function Sr(a,b:integer):real;

begin

Result:=(a+b)/2;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

a:=StrToInt(Edit1.Text);

b:=StrToInt(Edit2.Text);

c:=Sr(a,b);

Edit3.Text:=FloatToStr(c);

end;