Ne znam sta ti nije jasno...napravis unit:
Code:
Unit MojUnit;
interface
function zbroji(br1,br2:integer):integer;
implementation
function zbroji(br1,br2:integer):integer;
begin
writeln('Rezultat zbrajanja: ',br1+br2);
end;
end.
I program koji koristi taj unit:
Code:
program bzvz;
uses crt,mojunit;
var br1,br2:integer;
begin
clrscr;
writeln('Upisite prvi broj:'); readln(br1);
writeln('Upisite drugi broj:'); readln(br2);
zbroji(br1,br2);
readln;
end.
Jedino ako nisam dobro shvatio sta ti nije jasno?
Kako da pozovem proceduru koja se nalazi na drugom unit-u ?
