1-Маъруза. Дастурлаш тиллари ва уларни куллаш

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.