Pořadí čísla – Delphi – Fórum – Programujte.com

 Mám velice jednoduchý prográmek, který vypíše nejnižší číslo ze všech zadaných a potřeboval bych ho ještě doplnit aby vytiskl i pořadí čísla (jako kolikáté bylo zadáno), předem díky...

procedure TForm1.Button1Click(Sender: TObject);
var n,i,p:integer; a,min:real;
begin
 n:=spinedit1.Value;
 min:=999; p:=0;
  for i:=1 to n do
   begin
    a:=strtofloat(inputbox('','',''));
    if a<min then begin
                  min:=a;

                  end;
  end;
 label1.Caption:='nejmensi cislo = '+floattostrf(min,fffixed,15,2);

end;

:)  proste jenom když najdeš minimum tak si zapamatuješ při kolikátý iteraci si ho našel

procedure TForm1.Button1Click(Sender: TObject);
var n,i,p,pos_min:integer; a,min:real;
begin
 n:=spinedit1.Value;
 min:=999; p:=0;
  for i:=1 to n do
   begin
    a:=strtofloat(inputbox('','',''));
    if a<min then begin
                  min:=a;
		  pos_min:=i;	//pridano :)
                  end;
  end;
 label1.Caption:='nejmensi cislo = '+floattostrf(min,fffixed,15,2)+' a bylo zadano jako '+i;

end;