Ўзбекистон Республикаси Олий ва Ўрта Махсус таълим вазирлиги Фаргона политехника институти


Фойдаланувчининг процедура ва функциялари



Download 1,17 Mb.
bet26/69
Sana28.06.2022
Hajmi1,17 Mb.
#712699
1   ...   22   23   24   25   26   27   28   29   ...   69
Bog'liq
PASCAL

3.6Фойдаланувчининг процедура ва функциялари

3.7


Фойдаланувчининг процедура ва функциялари модулли дастурлашнинг асоси хисобланади. Масалани кисмларга булиб , мантикий асосланган модулларни процедура ва функция сифатида караб, дастурчи амалиётда куп кулланиладиган системали ёндошувнинг асосий принципларини куллайди.


3.7.1Процедуралар




Процедураларнинг ифодаланиши, процедуранинг сарлавхаси (номи), процедуранинг танаси, формал параметрлар руйхати

Процедура процедура сарлавхаси (номи) ва танасидан иборат. Процедуранинг сарлавхаси PROCEDURE резервлашган суздан бошланиб, процедурага ном берилиб, кавс ичида хар бир параметрларнинг типлари курсатилган формал параметрлар руйхати келтирилади. Процедуранинг номи - программа чегарасидаги идентификатор. Процедура танаси структураси буйича дастурга ухшаган локал блокдан ташкил топади. Белги, константа, типлар ва бошкалар шу процедура чегарасида хакикийдир.Процедура танасида турли глобал константа ва узгарувчилар кулланилиши мумкин.


PROCEDURE <номи> (Формал параметрлар);


CONST ...;
TYPE ...;
VAR ...;
BEGIN
<операторлар>
END;

Мисол тарикасида, дастур ишини тухтатувчи ва мавжуд хатолар тугрисида маълумот берувчи процедурани куриб чикамиз :


PROCEDURE Abort(Msg: string);


BEGIN
Writeln('Хато: ', Msg);
Halt(1);
END;

Процедура уз-узидан ишламайди , бунинг учун процедурани номи буйича чакириб , шу типдаги бор параметрларни формал параметрлар каби курсатиб утиш керак.Формал параметрлар типи ва микдори бор параметрлар микдорига тенг. Мисол сифатида куйидаги дастурни куриб чикамиз:


PROGRAM DemoProc;


{ Унта киритилган бутун мусбат сонлар йигандисини хисобла, агар киритлган сон манфий булса, бажаришни тухтат).
CONST
Limit = 10; { киритилаётган сонлар чегараси }
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.



Download 1,17 Mb.

Do'stlaringiz bilan baham:
1   ...   22   23   24   25   26   27   28   29   ...   69




Ma'lumotlar bazasi mualliflik huquqi bilan himoyalangan ©hozir.org 2024
ma'muriyatiga murojaat qiling

kiriting | ro'yxatdan o'tish
    Bosh sahifa
юртда тантана
Боғда битган
Бугун юртда
Эшитганлар жилманглар
Эшитмадим деманглар
битган бодомлар
Yangiariq tumani
qitish marakazi
Raqamli texnologiyalar
ilishida muhokamadan
tasdiqqa tavsiya
tavsiya etilgan
iqtisodiyot kafedrasi
steiermarkischen landesregierung
asarlaringizni yuboring
o'zingizning asarlaringizni
Iltimos faqat
faqat o'zingizning
steierm rkischen
landesregierung fachabteilung
rkischen landesregierung
hamshira loyihasi
loyihasi mavsum
faolyatining oqibatlari
asosiy adabiyotlar
fakulteti ahborot
ahborot havfsizligi
havfsizligi kafedrasi
fanidan bo’yicha
fakulteti iqtisodiyot
boshqaruv fakulteti
chiqarishda boshqaruv
ishlab chiqarishda
iqtisodiyot fakultet
multiservis tarmoqlari
fanidan asosiy
Uzbek fanidan
mavzulari potok
asosidagi multiservis
'aliyyil a'ziym
billahil 'aliyyil
illaa billahil
quvvata illaa
falah' deganida
Kompyuter savodxonligi
bo’yicha mustaqil
'alal falah'
Hayya 'alal
'alas soloh
Hayya 'alas
mavsum boyicha


yuklab olish