9.3.. Napisati program sa funkcijom za odredjivanje najvećeg među 2 odnosno 4 broja.

Listing programa:

I varijanta dvije funkcije - veci od dva broja i veci od 4 broja
PROGRAM najveci;
USES
  WinCrt;
VAR
 a,b,c,d: Integer;

FUNCTION max(a,b:integer):integer;
BEGIN
  IF a>b THEN
    max := a
  ELSE
    max :=b;
END;

FUNCTION max4(a,b,c,d:integer):integer;
BEGIN
  max4 := max(max(a,b),  max(c,d));
END;

BEGIN
  writeln ('najveci od 4');
  write('a b c d  ');
  readln(a, b, c, d);
  writeln('najveci od 4= ', max4 (a,b,c,d));
END.


II varijanta samo jedna funkcija - veci od dva broja
PROGRAM p09311002;
USES
  WinCrt;
VAR
 a,b,c,d: Integer;
 
FUNCTION max(a,b:integer):integer;
BEGIN
  IF a>b THEN
    max := a
  ELSE
    max :=b;
END;

BEGIN
  writeln ('najveci od 4');
  write('a b c d  ');
  readln(a, b, c, d);
  writeln('najveci od 4 broja = ', max(max(a,b),max(c,d)));
END.


III varijanta poziv iz naredbe pridruzivanja
PROGRAM p09311002;
USES
  WinCrt;
VAR
 a, b, c, d, veci: Integer;
 
FUNCTION max(a,b:integer):integer;
BEGIN
  IF a>b THEN
    max := a
  ELSE
    max :=b;
END;

BEGIN
  writeln ('najveci od 4');
  write('a b c d  ');
  readln(a, b, c, d);
  veci := max(max(a,b),max(c,d));
  writeln('najveci od 4 broja = ', veci);
END.

Ispis na ekranu:

Index