Le procedure in Pascal devono essere dichiarate tra la sezione dichiarativa del programma e l'inizio del programma (begin..end). La struttura di una procedura è molto simile a quella di un programma in Pascal:
procedure nome_procedura; var nome_variabili : tipi_di_dato; begin istruzione1; istruzione2; istruzionen; end;
Dopo la parola riservata procedure va indicato l'identificatore, il nome della procedura; seguono la dichiarazione di eventuali variabili, costanti locali e il corpo della procedura compreso tra begin ed end.
Per richiamare una procedura in Pascal basta scriverne il nome seguito da un punto e virgola:
begin ......... ......... ......... nome_procedura; end.
Attraverso le procedura possiamo distinguere il programma principale (main), compreso tra begin e end. e i sottoprogrammi rappresentati dalle procedure e compresi tra begin e end;.
Eccovi un programma che simula una semplice calcolatrice attraverso l'uso di procedure!!!:
program Calcolatrice;
uses crt;
var num1,num2,ris: real;
risp:char;
procedure somma;
begin
ris:=num1+num2;
readln;
end;
procedure sottrazione;
begin
ris:=num1-num2;
readln;
end;
procedure moltiplicazione;
begin
ris:=num1*num2;
readln;
end;
procedure divisione;
begin
ris:=num1/num2;
readln;
end;
begin
repeat
clrscr;
textcolor(lightgreen);
gotoxy(35,2);
writeln('CALCOLATRICE');
gotoxy(1,5);
writeln('Inserisci il primo numero');
write('primo numero = ');
readln(num1);
writeln('Inserisci il secondo numero');
write('secondo numero = ');
readln(num2);
writeln('Quale operazione vuoi fare??? (+ - / *)');
write('operazione = ');
read(risp);
case risp of
'+': somma;
'-': sottrazione;
'*': moltiplicazione;
'/': divisione;
end;
writeln;
writeln('Il risultato e'' ',ris:6:2);
writeln;
writeln('Vuoi effettuare altre operazioni??? (S N)');
write('risposta = ');
read(risp);
until risp ='N';
readln;
end.
