Процедура ва функциялар - Informatika va AT - Referatlar

Процедура ва функциялар

Yuklangan vaqt:

20.09.2019

Ko'chirishlar soni:

0

Hajmi:

65.5 KB

Ko'chirib olish

www.arxiv.uz Процедура ва функциялар Режа : 1. Умумий маълумотлар 2. Стандарт ва библиотека модуллари 3. Ташкил килинган процедуралар ва функциялар 4. Фойдаланувчининг процедура ва функциялари

www.arxiv.uz Тurbo Pascal тилида кисмий дастурларни куллаш процедура ва функциялар оркали амалга оширилади.. Процедура - бу дастурнинг номланган кисми хисобланиб, уни номи билан чакирилади ва улар устида ишлаш ёки маълум операциялар бажариш мумкин. Процедура структураси дастур структурасига ухшаш булади. Процедура ифодада оперант холатда учраши мумкин эмас. Функция процедурага ухшаш лекин икки хил фарки бор, биринчиси функция чакириш тугмасига скаляр кийматларини узатади ва иккинчиси, функциянинг номи ифодада оперант сифатида катнашади. Turbo Pascal тилининг функция ва процедуралари иккита группага булинади: фойдаланувчи томонидан аникланган ва илгари мавжуд булган процедура ва функциялар. Биринчиси фойдаланувчи томонидан номланади ва чакирилади. Иккинчиси тилнинг таркибига кириб? уни факат куйилган номи буйича чакирилади. Хамма стандарт воситалар махсус библиотека модулларида сакланади ва улар система номларига эга булади. Процедура процедура номи ва процедура танасидан иборат булади. 1 Стандарт библиотека модуллари Модуль, System, Crt, Dos,Graph, Graph3, Overlay, Printer, Turbo3 Turbo Pascal 6.0 системасига саккизта модуллар киради : System, Crt, Dos Graph, Graph3, Overlay, Printer, Turbo3 ва Turbo Vision махсус библиотекасининг System модули оддий холатда уланади, колган модулларни дастурчи USES резервлашган сузи оркали улаши мумкин. USES Crt, Dos, Printer;

www.arxiv.uz Хар битта модулнинг вазифасини кискача куриб чикамиз. System - Turbo Pascal 6.0; нинг юраги хисобланиб , унда колган хамма модулларнинг ишлашини таъминловчи дастурлар сакланади. Сrt - дисплей адаптерининг иш режимини урнатади. Dos - модули MS-DOS нинг хамма манбаларидан фойдаланиш имкониятини берувчи функция ва процедураларни уз ичига олади. Graph3 - Turbo Pascal 3.0. нинг стандарт график функцияларида фойдаланиш имкониятини беради. Overlay - оверлей дастурлар тузиш воситаларини саклайди. Рrinter - чоп этиш курилмаларига тез утишни таъминлайди. Тurbо3 - Turbo Pascal 3.0 версияси билан максималь мосликни таъминлайди. Graph - график имкониятларидан фойдаланишда СGA, ЕGА, VGА, НЕRС, IBM 3270, МСGА и АТТ6300 адаптерларининг эфектив ишлашини таъминлайди. Turbo Vision – фойдаланувчининг интерфейсини яратиш учун мужжал кисм дастурлар библиотекаси. System модули дастурга афтоматик уланади, шунинг учун унинг номи USES булимида курсатилмайди ва учун унинг функция ва процедураларидан фойдаланиш мумкин.

www.arxiv.uz 2 Махсус курилган процедура ва функциялар 3 Математик функциялар, скаляр функция ва процедуралар, типларни узгартирувчи функциялар, махсус процедура ва функциялар. 3.1 Арифметик процедура ва функциялар Abs(X:real/integer):real/integer - Х ни абсолют кийматини хисоблаш, натижа типи параметр типига мос. ArcTan(X:real):real - Х радианга тенг булган тангенс бурчагини хисоблаш. Cos(X:real):real - косинусни хисоблаш, X параметри бурчакни радианлардаги кийматини беради.. Exp(X:real):real - Х экспонентани хисоблаш. Frac(X:real):real - Х ни каср кисмини хисоблаш. Int(X:real):real - Х ни бутун кисмини хисоблаш. Ln(X:real):real - Х ни натурал логарифимини хисоблаш. Pi:real – Пи ни кийматини кайтаради. (3.141592653897932385).

www.arxiv.uz Sin(X:real):real - Синусни хисоблаш . Х бурчакни радианлардаги кийматини беради. Sqr(X) - Х ни бутун ва хакикий кийматини даражага кутариш. Натижа типи параметр типига мос. Sqrt(X:real):real - Х дан илдиз чикаришни хисоблаш. Random:real - 0..0.99 диапазондаги тасодифий сонлар кийматини генирациялайди. Random(I:word):word - 0..I диапазондаги тасодифий сонлар кийматини генирациялайди. Randomize - тасодифий сонлар гениратори базасини узгартириш. 3.2 Скаляр процедура ва функциялар Dec(X{,n}) - Х ни бутун сонли кийматини n га камайтиради. Мажбурий булмаган n параметри йук булса Х бирга камаяди. Inc(X{,n}) - Х ни бутун сонли кийматини n га ортиради. Мажбурий булмаган n параметри йук булса Х бирга ортади. Pred(S) - функция тип кийматлари руйхатидаги S нинг элементини кайтаради Натижа типи параметр типига мос булади. Агар S элемент булмаса, дастурда узилиш булади. Succ(S) - функция тип кийматлари руйхтида S дан кейин келадиган кийматларни кайтаради. Натижа типи параметр типига мос булади. Агарда, S дан кейин келадиган кийматлар йук булса , дастурда узилиш булади.

www.arxiv.uz Odd(I:integer):boolean - Агар I ток булса True ни кайтаради, жуфт булса, False ни кайтаради. 3.3 Типларни узгартирувчи функциялар Chr(I:byte):char - киймати бирга тенг булган ахборот алмашиш стандарт код белгисинги кайтаради. Агар параметр киймати 255 дан катта булса дастурда узилиш булади. Ord(S):longint - S типда аникланган тупламдаги S кийматни тартиб номерини кайтаради. Round(X:real):longint - Х ни бутун сонгача чегараланган кийматини кайтаради.. Trunc(X:real):longint - Х га тенг ёки кичик булган сонни кийматини кайтаради. 3.4 Дастурни бошкариш процедуралари. 3.5 Delay (I:word) - дастур бажарилишини I миллисекундга ушлаб колиш. Exit - бажарилувчи блокдан атроф мухитга утиш. Агарда жорий блок, процедура ёки функция булса, у холда чикиш ташки блокга булади. Агарда Exit асосий дастурнинг оператор кисмида курсатилган булса , дастур уз ишини тугатиб, бошкарув система дастурига утказилади. Halt(N:word) - дастур бажарилишини тухтатиш ва бошкарувни система дастурига утказиш (агарда PAS-файли бажарилса) ёки DOS га (агарда EXE-

www.arxiv.uz файли бажарилса). N - операцион системага узатиладиган дастурни тугаллаш коди. RunError(ErrCode:word) - дастур бажарилишини ва бажариш вакти хатолигини генерациялаш. ErrCode - хатолик тартиб номерини уз ичига олган, byte типи параметри. 3.6 Махсус процедура ва функциялар 3.7 FillChar(P,Dl,Z) - асосий хотирани байтма - байт берилган кийматлар билан тулдиради ва энг тезкор ишловчи процедуралардан бири хисобланади . Тулдириш P да курсатилган биринчи байтдан бошланиб, Dl параметрида берилган улчовга тенг булади. P - хар кандай тидаги узгарувчи, Dl - узунликни курсатувчи бутун ифода. Move(P1,P2,Dl) - асосий хотирадагиларни P1 узгарувчининг биринчи байтидан бошлаб P2 нинг биринчи байтидан бошланган областга жунатади. Областлар узунлиги Dl параметри ёрдамида аникланади. P1 ва P2 -хар кандай тидаги узгарувчи, Dl - бутун ифода. Hi(I:integer):byte - I нинг катта байтини ажратиб, натижанинг кичик байтига жойлаштиради.Катта байт натижаси 0 га тенг. Lo(I:integer):byte - I нинг кичик байтини ажратиб, натижанинг кичик байтига жойлаштиради.Катта байт натижаси 0 га тенг ParamCount : string - дастурда буйрук каторида берилган параметрлар сонини кайтаради.

www.arxiv.uz ParamStr (n:word) : string - буйрук каторида курсатилган параметрни кайтаради. SizeOf(IT):word - асосий хотира хажмини байтларда хисоблайди. IT - узгарувчининг ёки берилганлар типининг идентификатори. Swap(I:integer):integer - I параметри билан берилган бутун сонли ифода ичидагиларини катта ва кичик байтлар орасида алмаштиради. 4 Фойдаланувчининг процедура ва функциялари 5 Фойдаланувчининг процедура ва функциялари модулли дастурлашнинг асоси хисобланади. Масалани кисмларга булиб , мантикий асосланган модулларни процедура ва функция сифатида караб, дастурчи амалиётда куп кулланиладиган системали ёндошувнинг асосий принципларини куллайди. 5.1 Процедуралар Процедураларнинг ифодаланиши, процедуранинг сарлавхаси (номи), процедуранинг танаси, формал параметрлар руйхати Процедура процедура сарлавхаси (номи) ва танасидан иборат. Процедуранинг сарлавхаси PROCEDURE резервлашган суздан бошланиб, процедурага ном берилиб, кавс ичида хар бир параметрларнинг типлари курсатилган формал параметрлар руйхати келтирилади. Процедуранинг номи - программа чегарасидаги идентификатор. Процедура танаси структураси буйича дастурга ухшаган локал блокдан ташкил топади. Белги, константа,

www.arxiv.uz типлар ва бошкалар шу процедура чегарасида хакикийдир.Процедура танасида турли глобал константа ва узгарувчилар кулланилиши мумкин. PROCEDURE <номи> (Формал параметрлар); CONST ...; TYPE ...; VAR ...; BEGIN <операторлар> END; Мисол тарикасида, дастур ишини тухтатувчи ва мавжуд хатолар тугрисида маълумот берувчи процедурани куриб чикамиз : PROCEDURE Abort(Msg: string); BEGIN Writeln('Хато: ', Msg); Halt(1); END; Процедура уз-узидан ишламайди , бунинг учун процедурани номи буйича чакириб , шу типдаги бор параметрларни формал параметрлар каби курсатиб утиш керак.Формал параметрлар типи ва микдори бор параметрлар микдорига тенг. Мисол сифатида куйидаги дастурни куриб чикамиз: PROGRAM DemoProc; { Унта киритилган бутун мусбат сонлар йигандисини хисобла, агар киритлган сон манфий булса, бажаришни тухтат). CONST Limit = 10; { киритилаётган сонлар чегараси }

www.arxiv.uz VAR Count, Item, Sum: integer; {$I ABORT.PAS } { ABORT.PAS файли матнига уланиш} BEGIN Count:= 0; Sum:= 0; WHILE (Count < Limit) DO BEGIN { циклни бажрилиш шарти } Count:= Count+1; Write('Введите ', Count, '-ое бутун сон: '); Readln(Item); IF Item < 0 THEN Abort('манфий сон киритилган'); { процедурани чакириш } Sum:= Sum+Item; END; Writeln('Киритлган сонлар йигиндиси ', Sum); END. 5.2 Функциялар Функцияни ифодалаш,функция сарлавхаси (номи), функция танаси, формал параметрлар руйхати, чакирилиш нуктасининг функция ёрдамида кайтарилган кийматми типи. Фойдаланувчи томонидан аникланган функция сарлавха ва танадан иборат булади.Сарлавха FUNCTION сузидан бошланиб, кавс ичида функциянинг идентификатори, формал параметрларнинг мажбурий булмаган руйхати ва функция томонидан кайтарилган кийматнинг типи курсатилади. Функциянинг танаси структураси буйича дастурга ухшаган локал блокдан ташкил топади: FUNCTION <номи> (Формал параметрлар) : <натижа типи>;

www.arxiv.uz CONST ...; TYPE ...; VAR ...; BEGIN < операторлар > END; Операторлар булимида хеч булмаганда функциянинг номига киймат берувчи битта оператор булиши керак. Кайтарилиш нуктасига охирги узлаштириш натижаси кайтарилади. Функцияга мурожаат аргументлар руйхати келтирилган ном оркали амалга оширилади.Хар бир аргумент номда курсатилган формал параметрларга мос булиб, типи хам бир хил булиши керак. Мисол сифатида функцияни даражага кутаришни куриб чикамиз: PROGRAM DemoPower; VAR Z:real; FUNCTION Power(X,Y:real): real; BEGIN Power:= Exp(Y* Ln(X)) END; BEGIN Z:=5.31; Write(Power(Z,4.0)); { Z нинг кийматини 4- чи даражага кутариш } END. { DemoPower }

www.arxiv.uz 5.3 Параметрлар Параметрларни ифодалашда икки хил формадан фойдаланилади. Биринчисида параметрлар ва типлар руйхатини келтириш керак: PROCEDURE DataIn (X,Y:real); Бунда X ва Y лар кийматлари процедурага чакириб жунатилади . Иккинчи формасида параметрлар руйхати VAR сузи ёрдамида келтирилади : PROCEDURE DataOut (VAR A,B,C : integer); VAR А,В,С ларни кийматлари процедура бажарилгандан сунг кайтарилишини курсатади. Аралаш форма хам булиш эхтимоли бор: PROCEDURE DataInOut (X,Y:real; VAR A,B,C : integer);

O'xshashlar

Процедура – операторлар

Функциялар

Бириктирилган операторлар ва функциялар

Пороцедура-функциялар ва локаллаштириш принципи

Crt, MS DOS, Printer ва Overlay модулларининг процедура ва функциялари