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

Listing programa:

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.

Index