Function (): ; Мұнда, Function

Мұнда, Function қызметші сөзінен кейін функцияның аты (идентификаторы), жақшаның ішіне типтері көрсетіліп, нүктелі үтірлермен айырылған формалды параметрлері, сонан соң, қос нүктеден кейін функция мәнінің типі жазылады.

Функция тақырыбынан кейін сипаттаулар бөлімі, сонан кейін операторлар бөлімі жазылып, ең соңында end қызметші сөзінен кейін нүктелі үтір қойылады. Функция орындалуының нәтижесі функция мәні болып табылады. Сондықтан да кезкелген функция сипатталуының операторлар бөлімінде ең болмағанда бір

<аты> := <өрнек>;

меншіктеу операторы болуы шарт. Функцияның сипаттаулар бөлімінде оған қажет басқа ішкі программаларды сипаттауға да болады және т.с.с. Функция сипаттамасында параметрлер жоқ болуы да, бір не бірнешеу болуы да мүмкін. Функцияны пайдаланғанда формалды параметрлердің орнына аргументтер (нақты параметрлер), не олардың мәндері (өрнектер) жазылады. Функцияларды программаның кезкелген жерінде өрнектер құрамында, не басқа процедураларда пайдалануға болады. Келесі мысалда санның бүтін дәрежесін табатын Drg функциясы көпмүшелігінің мәнін есептеуге қолданылған.

Procedure TForm1.Button1Click(Sender: TObject);

Function Drg (a:real; n: integer): real; // Drg функциясынасқанттер (үкте салынып, сипаттау

var i: integer;

s: real;

s:=1;

s:=s*a;

end;

begin

x:=StrToFloat(Edit1.Text);

// Drg функциясынасқанттер (үкте салынып, қайталап шақыру

y:=2*Drg(x,10) + 5*Drg(x,7) - 7*Drg(x,4) + 3*Drg(x,2);

Edit2.Text:=FloatToStr(y);

end;

Ішкі программаларда қолданылатын формалды параметрлердің түрлері төмендегі кестеде көрсетілген: