Функцияны сипаттау

Функцияны сипаттау келесі түрдегідей жазылады:

Function атауы(параметр1:тип1,...,параметрК:типК):тип;

Var

{функцияның ішкі айнымалыларын сипаттау}

Begin

{фукцияның инструкциялары}

атауы:=өрнек;

End;

Мысал 1: Факториалды есептейтін программисттің функциясын құру.

Function factor(n:integer):integer;

Var

F:integer;

I:integer;

Begin

F:=1;

For i:=1 to n do

F:=f*I;

Factor:=f;

End;

Factor функциясында бір ғана параметр – integer типті n айнымалысы. Параметр санды көрсетеді, факториал оны есептеу керек. N айнымалысы нақты мәнді функияны шақырған кезде алады.

Мысал 2: Кубтық түбірді есептейтін программисттің функциясын құру.

Function cubrt(x:real):real;

Var

Pr:real; {кубтық түбірдің жуықталған мәні}

Begin

pr:=aqrt(x); {бірінші жуықшама}

{екінші жуықшама ретінде (x:pr):pr таңдаймыз}

while abs(pr-x/(pr*pr))>0.001 do

Begin

pr:=(2*pr+x/(pr*pr))/3;

End;

Cubrt:=pr;

End;

Функцияны қолдану

Егер программада өз функцияңызды қолданғыңыз келсе, оны сипаттауды программаның мәтінде, инструкциялар бөлімінің алдында орналастыруымыз керек. Әдетте, функцияны сипаттау var айнымалыларды сипаттау бөлімінен кейін көрсетіледі.

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

Мысал 3: Екі үлкен оң санның жалпы бөлгішінің үлкенін есептейтін программистің NOD функциясын қолдану. НОД функциясында екі параметр – сандар, есептелетін НОД.

Programp;

Var

C1,c2:integer;

N:integer;

Function nod(a:integer; b:integer):integer;

Var

r:integer;

Begin

while (a mod b) <>0 do

Begin

r:=(a mod b);

a:=b;

b:=r;

End;

Nod:=b;

End;

{негізгі программа}

begin

writeln(‘Бір жолға арасын бос орын қалдырып екі бүтін сан енгізіңіз);

readln(c1,c2);

nd:=nod(c1,c2); {функцияны шақыру}

writeln(‘,c1,’ және ‘,c2,’ сандарының НОДы );

Дата добавления: 2015-07-26; просмотров: 443; Нарушение авторских прав

Мы поможем в написании ваших работ!