Уводни део часа :
1. Шта су потпрограми ?
2. Шта се постиже њиховом употребом ?
-------------------------------------------------------------------------------------------------------------------
Главни део часа :

1. Одредити некоректно написана заглавља функција и навести зашто су некоректна.

а) function a(x,y);

б) function max(x,y : integer);

в) function log(a,b : boolean):boolean;

г) function raz(x:real,ch:char):boolean;

2. Написати заглавља за функцију која врши следеће акције :

а) израчунава реципрочну вредност целог броја;

б) израчунава tg x;                       

3. Написати програм за израчунавање израза :

program funkcija1(input,output);
var m,n : integer;
          c : real;
function fact(k:integer):integer;
var p,I : integer;
begin
         p:=1;
         for i:=1 to k do
         p:=p*I;
         fact:=p
end;
begin
         writeln('Unesi broj elemenata i klasu kombinacija');
         read(m,n);
         c:=fact(m)/(fact(n)*fact(m-n));
         writeln('Vrednost trazenog izraza je : ',c:10:4);
         readln;
         readln;
end.

4. Написати програм и функцију за одређивање факторијела природних бројева.