A programban deklarált eljárások és függvények arra teremtenek lehetőséget, hogy a programunkat logikailag és funkcionálisan meghatározott különálló egységekre bontsuk. Az eljárásokat és a függvényeket a főprogram (vagy egy másik eljárás) vezérli.

Az eljárás deklarálása a procedure kulcsszóval indul, amelyet az azonosító (név) követ. A név után zárójelben paraméter(ek) is megadható(k). Az eljárás szerkezete kicsiben követi a program szerkezetét. Az eljárás feje után a belső (lokális) változók, típusok, konstansok és címkék felsorolása következik (de nem biztos, hogy vannak). Az utasításokat begin és end; között kell felsorolni, minden utasítást logikailag külön sornak tekintve, azaz pontosvesszőt téve a végére (ettől még lehet egy sorba több utasítást írni). A záró end után is pontosvesszőt kell tenni.

     procedure EljarasNev(parameter);
     lokális címkék,
             konstansok,
             változók,
             típusok
     begin
         Utasítások;
     end;

a) Példa paraméter nélküli eljárásra (adatbeviteli rutin):

     procedure AdatBe;
     begin
       ClrScr;
       GotoXY(2,2);WriteLn('Darab neve = ');
       GotoXY(20,2);ReadLn(DbNev);
       GotoXY(2,4);WriteLn('Darabmagassag =');
       GotoXY(20,4);ReadLn(Hdarab);
       GotoXY(2,6);WriteLn('Darabhosszusag =');
       GotoXY(20,6);ReadLn(Ldarab);
       GotoXY(2,8);WriteLn('Homerseklet =');
       GotoXY(20,8);ReadLn(Tdarab);
     end;{--AdatBe---------}

A fenti példában megfigyelhetjük, hogy az egyes adatok bekérése előtt kiírjuk az adat megnevezését (pl. 'Darab neve ='), majd utána kérjük be az adatot (DbNev). A következő adatok esetén hasonlóan járunk el. Adatbeviteli képernyőknél kedvezőbb azonban, hogy először felsoroljuk a bekérendő adatok neveit (ez a célszerűbb, mert látjuk, hogy mely adatokra lesz szükség), ezt követően pedig sorban bekérdezzük az adatokat:

     procedure AdatBe;
     begin
       ClrScr;
       GotoXY(2,2);WriteLn('Darab neve = ');
       GotoXY(2,4);WriteLn('Darabmagassag =');
       GotoXY(2,6);WriteLn('Darabhosszusag =');
       GotoXY(2,8);WriteLn('Homerseklet =');
       GotoXY(20,2);ReadLn(DbNev);
       GotoXY(20,4);ReadLn(Hdarab);
       GotoXY(20,6);ReadLn(Ldarab);
       GotoXY(20,8);ReadLn(Tdarab);
     end;{--AdatBe---------}

Így viszont az eljárás gyakorlatilag két külön funkcióval rendelkező részre oszlik, amit továbbvihetünk egészen odáig, hogy akár két külön eljárásba is helyezzük a két részt:

     procedure Kiiras;
     begin
       ClrScr;
       GotoXY(2,2);WriteLn('Darab neve = ');
       GotoXY(2,4);WriteLn('Darabmagassag =');
       GotoXY(2,6);WriteLn('Darabhosszusag =');
       GotoXY(2,8);WriteLn('Homerseklet =');
     end;{--Kiiras---------}
     procedure AdatBe1;
     begin
       GotoXY(20,2);ReadLn(DbNev);
       GotoXY(20,4);ReadLn(Hdarab);
       GotoXY(20,6);ReadLn(Ldarab);
       GotoXY(20,8);ReadLn(Tdarab);
     end;{--AdatBe1--------}

b) Példa paraméteres eljárásra:

A következő eljárás a képernyő adott helyére megadott méretű és színösszeállítású egyvonalas keretet rajzol. Ez összesen hat paraméter megadását igényli: a kezdőpont koordinátái (x0, y0), az oszlopok és sorok száma (osz, ssz), valamint az alap és a keret vonalának színe (alapsz, keretsz).

     Procedure Keret (x0,y0,osz,ssz,alapsz,keretsz:integer);
     var o,r,s:integer;
     begin
       TextBackGround(alapsz);
       TextColor(keretsz);
       GotoXY(x0,y0);Write(#218);
       for o:=1 to osz do Write(#196);
       Write(#191);
       for s:1 to ssz+1 do begin
         GotoXY(x0,x0+s);Write(#179);
         for r:=1 to osz do Write(' ');
         GotoXY(x0+osz+1,y0+s);Write(#179);
       end;
       s:=s+ssz;
       GotoXY(x0,x0+ssz+1);Write(#192);
       for o:=1 to osz do Write(#179);
       Write(#217);
     end;

Az eljárás hívása a következő módon történik (a keret a képernyő 2. sorának 5. karakterénél kezdődjön, 20 karakter széles és 6 sor magas legyen; az alapszín piros, a keret színe pedig sárga legyen):

     Keret(5,2,20,6,4,14);

A színek kezeléséről a segédlet további részében még lesz szó.

     function Hatvany(alap,kitevo:real):real;
     begin
       hatvany:=exp(kitevo*ln(alap));
     end;

     Eredmeny:=2.85*hatvany(szam,4);

A jegyzet elejére  A fejezet elejére  A 6. fejezetre