Nejmenší a největší číslo – Delphi – Fórum – Programujte.com

Dobrý den, zajímalo by mě jakým jednoduchým zpusobem určit největší a nejmenší čislo (celkem čísel je 5). Mám je uloženy v binárním souboru... zkoušel jsem to přes if ale vždy mě to hodí nulu...

if zn1<zn2
  then
  if zn1<zn3 then
  if zn1<zn4  then
  if zn1<zn5  then min:=zn1
  else
   if zn2<zn3
     then if zn2<zn4 then
     if zn2<zn5 then min:=zn2
     else if zn3<zn4 then if zn3<zn5 then min:=zn3
     else if zn4<zn5 then min:=zn3
     else min:=zn5;

#1 W4RDON
Myslím že jednodušší bude použít standardní algoritmy na hledání minima a maxima.

min:=zn1;
if (zn2<min) then min:=zn2;
if (zn3<min) then min:=zn3;
if (zn4<min) then min:=zn4;
atd. by mělo fungovat.

Samozřejmě takto otrocky se to nedělá, rozumnější je mít hodnoty v poli a pole procházet v cyklu.

Dá se to dál vylepšovat - např. záleží, jestli jsou hodnoty setříděné a nebo jestli vzešly z nějaké spojité funkce, to potom můžeš najít extrémy snadněji než procházením všech prvků.