Уводни део часа :
1. Које су основне карактеристике процедура ?
2. Која је разлика између формалних и стварних параметара у процедури ?
-------------------------------------------------------------------------------------------------------------------
Главни део часа :                          

Пример 1. Написати програм и одговарајућу процедуру која задати низ са n чланова помера за m места улево.

 
Пример 2. Написати програм који преводи број из декадног у бинарни бројни систем.

Пример 3. Написати програм за превођење броја из бинарног у декадни бројни систем.

program procedura3(input,output);
var n,k : integer;
procedure promeni( x : integer, var y : integer);
var [s,r] : integer;
begin
          s:=1;
          y:=0;
          repeat
                       r:=x mod 10;
                       x:= x div 10;
                       y:=y + r*s;
                       s:=s*2;
          until( x=0 );
end;
begin
           writeln(' Unesi broj u binarnom obliku ');
           read(n);
           promeni(n,k);
           writeln(' To je broj ',k,' u dekadnom obliku ');
end.