1 дәріс. Объектілі бағытталған бағдарламалау түсінігі


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



бет22/36
Дата11.12.2021
өлшемі79,06 Kb.
#99042
1   ...   18   19   20   21   22   23   24   25   ...   36
Байланысты:
ОББ

Function <Аты> (<Параметрлері>): <Функция типі>;

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

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

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

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

Procedure TForm1.Button1Click(Sender: TObject);

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

var i: integer;

s: real;


begin

s:=1;


for i:=1 to n do

s:=s*a;


Drg:=s;

end;


var x,y: real;

begin


if Edit1.Text=’’ then begin ShowMessage(‘Нет данных’); Exit; end;

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;


Параметрлер.

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



Параметр түрі

Сипатталуы

Параметр ­ айнымалы



Достарыңызбен бөлісу:
1   ...   18   19   20   21   22   23   24   25   ...   36




©www.engime.org 2024
әкімшілігінің қараңыз

    Басты бет