Уводни део часа : 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. Написати програм и функцију за одређивање факторијела природних бројева.
|