Min/Max funkcija Delphi

Pozdrav svima, danas  cu vam pokazati primenu Min i Max funkcije u delphiju, dakle uzecemo prost primer uporedjivanja 3 broja, trebamo naci koji je najveci/najmanji postupak je isti prilikom koriscenja ove funkcije dok kod if naredbe se razlikuju uslovi.

Prvo cu vam napisati kako mozete naci koji je broj najveci uz pomoc if/else naredbe.

Kod sa slike:

"var a,b,c,max,max1:integer;

begin

     a:=strtoint(edit1.text);

     b:=strtoint(edit2.text);

     c:=strtoint(edit3.text);

     if a>b then max:=a

     else max:=b;

     if max>c then max1:=max

     else max1:=c;

     edit4.text:=inttostr(max1);

end;  "  

Sada cu vam pokazati kako se koristi Max funkcija.

var a,b,c,ma,ma1:integer;

Begin

a;=strtoint(edit1.text);

b:=strtoint(edit2.text);

c:=strtoint(edit3.text);

ma:=Max(a,b);

ma1:=Max(ma,c);

edit4.text:=inttostr(ma1);

end;

Isto je i prilikom upotrebe Min funkcije , dakle imamo Min/Max i u zagradi prvi broj i drugi broj koji poredimo. Naravno za razliku od postupka sa if/else naredbom da bi mogli koristiti Min/Max funkciju moramo dodati na pocetku koda  "Math" tj. moramo reci delfiju da cemo koristiti Min/Max funkciju koje nisu standardne tako da ih delfi ne pokrece po default.