DEFINIREA UNEI PROCEDURI (SUBPROGRAM)

^{DEFINIREA UNEI PROCEDURI (SUBPROGRAM)}

Definirea unei proceduri se face inainte de a fi utilizata (apelata), deci in fa ^{a blocului de instruc iuni executabile din programul apelant, folosind cuvantul rezervat: procedure}

^Exemplu:

^{procedure scrieABC;}

^begin

^{writeln('A=',A,' B=',B,' C=',C)}

^end;

^{Obs: Ultimul end din procedura este urmat de semnul ';' i nu '.' deoarece compilatorul PASCAL interpreteaza procedura ca o unitate de program separata, un modul, etc.}

^{Subprogramul din exemplul precedent va afi a la display valorile variabilelor A,B,C, variabile care in acest caz se numesc variabile globale i sunt declarate in prealabil in programul apelant.}

^{10. DEFINIREA UNEI PROCEDURI (SUBPROGRAM)}

^{Sa analizam exemplul urmator:}

^{program maxim;}

^var

^{a,b,max:integer;}

^{procedure maxab;}

^begin

^{if a>b then max:=a}

^{else max:=b;}

^end;

^begin

^{writeln ('introduceti a si b');}

^readln(a,b);

^maxab;

^{writeln('max(a,b)=',max);}

^end.

^{In acest caz, procedura maxab calculeaz max=max(a,b), iar programul principal citeste valorile variabilelor a i b, apeleaza procedura maxab i afiseaza valoarea max.}

^{Sa presupunem acum ca se dau mai multe perechi de numere pentru care se cere calculul maximului.}

^{10. DEFINIREA UNEI PROCEDURI (SUBPROGRAM)}

^Exemplu:

^{program maxim2;}

^var

^{a,b,c,d,max:integer;}

^{procedure maxab;}

^begin

^{if a>b then max:=a}

^{else max:=b;}

^end;

^begin

^{writeln ('introduceti a si b');}

^readln(a,b);

^{writeln ('introduceti c si d');}

^readln(c,d);

^maxab;

^{writeln('max(a,b)=',max);}

^a:=c;

^b:=d;

^maxab;

^{writeln('max(c,d)=',max);}

^end.

^{Acest program calculeaza utilizand procedura maxab, maximul dintre a i b, apoi maximul dintre c i d, (ele fiind introduse in a i b). Nu e indicat sa procedam a a, deoarece putem declara proceduri cu parametrii.}