Lecția de info: Subprograme-Proceduri

Ce sunt  subprograme?

Subprograme sunt părți independente de program care se scriu înaintea programului principal și care efectuează diferite operații. Ele pot fi apelate atât din programul principal cât și din interiorul altor subprograme.



Subprogramele se împart în PROCEDURI și FUNCȚII

PROCEDURI
O procedură calculează o anumită valoare sau efectuează diferite operații.

Mod de declarare:

procedure <nume>;
Begin
<instructiuni>
end;

Exemplu:

Procedure citire_vector;
  Begin
 readln(v);
For i:=1 to v do
 readln(a[i]);
   end;

ATENTIE!
Procedura este apelata doar prin precizarea numelui ei in programul principal atunci când e nevoie!



Exemplu de problema:
-Calculați suma elementelor pare dintr-un vector.

Program exemplu_1;
var a:array [1..100] of integer;
    i,n,S:integer;

Procedure citire_vector;
  Begin
readln(v);
For i:=1 to v do
readln(a[i]);
   end;
 Procedure suma;
  Begin
S:=0;
For i:=1 to v do
If a[i] mod 2=0 then S:=S+a[i];
Writeln('S=',S);
end;

Begin
citire_vector;
suma;
end.