aus einem Array die kleinste Zahl herausfinden

[DeddyH]

Viel zu spät: http://www.delphipraxis.net/internal...076233#1076233 :tongue:

[Wolfgang Mix]

alzaimar hat folgendes geschrieben:

Zitat:

Und hier eine kürzere Testvariante:

Delphi-Quellcode:

KleinsterWert := Math.MinIntValue(zahlArray);

... für Fortgeschrittene ;-)

Gruß

Wolfgang

[alzaimar]

Zitat:

Zitat von Wolfgang Mix

... für Fortgeschrittene ;-)

Eher umgekehrt: Deine Version muss man erstmal verstehen, meine nicht. :mrgreen:

[Wolfgang Mix]

@alzaimar:

Meinst du damit, ich sollte den Quellcode noch kommentieren?

Gruß

Wolfgang

[Foxi1896]

Hey,
ich wollte mal Fragen was in meinem Code hier Falsch ist habe einfach nur ein paar Sachen ersetzt.
Er gibt mir bei Min totalen Unfug aus.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
 var zahl : array[1..1000] of integer;
  i,min,merker:integer;
  R1, R2, R3, R4, R5, R6, R7, R8 : Real;
begin
R1 := StrToFloat(Edit1.Text);
R2 := StrToFloat(Edit2.Text);
R3 := StrToFloat(Edit3.Text);
R4 := StrToFloat(Edit4.Text);
R5 := StrToFloat(Edit5.Text);
R6 := StrToFloat(Edit6.Text);
R7 := StrToFloat(Edit7.Text);
R8 := StrToFloat(Edit8.Text);


R1 := zahl [0];
R2 := zahl [1];
R3 := zahl [2];
R4 := zahl [3];
R5 := zahl [4];
R6 := zahl [5];
R7 := zahl [6];
R8 := zahl [7];


   min:=1000;
   for i:= 1 to 9 do
   begin
     if zahl[i] < min then
     begin
       min:=zahl[i];
       merker:=i;
     end;
   end;
   label1.caption:=IntToStr(min);
   label2.caption:=IntToStr(merker);
end;

und warum kann ich bei var nicht Array of Real machen?
var zahl : array of Real;

[DeddyH]

Zuerst belegst Du die Variablen mit Inhalten aus Edit-Feldern, im Anschluss überschreibst Du sie wieder mit dem, was im nicht initialisierten Array steht. Außerdem greifst Du auf Index 0 des Arrays zu, den es laut Definition gar nicht gibt, da das Array von 1 bis 1000 geht. Und da soll etwas anderes als Schrott bei herauskommen?

[Foxi1896]

ok das mit dem 1..1000 hab ich ja versucht zu ändern da ging gar nichts =/
Frage wie muss ich es machen damit es sinn ergibt?

[DeddyH]

Was willst Du denn erreichen?

[baumina]

Natürlich kannst du ein array of real machen. Mit "Array of Real" machst du ein dynamisches Array und musst natürlich dann für die Größe sorgen. Mit "Array[1..1000] of Real" machst du ein statisches Array, das max. 1000 Werte haben kann.

Das hier z.B. würde Sinn machen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
  var zahl : array[1..8] of real;
  i,merker : Integer;
  min      : Real;

begin
  zahl[1] := StrToFloat(Edit1.Text);
  zahl[2] := StrToFloat(Edit2.Text);
  zahl[3] := StrToFloat(Edit3.Text);
  zahl[4] := StrToFloat(Edit4.Text);
  zahl[5] := StrToFloat(Edit5.Text);
  zahl[6] := StrToFloat(Edit6.Text);
  zahl[7] := StrToFloat(Edit7.Text);
  zahl[8] := StrToFloat(Edit8.Text);

  min:=1000;
  for i:= 1 to 8 do
  begin
    if zahl[i] < min then
    begin
      min:=zahl[i];
      merker:=i;
    end;
  end;
  label1.caption:=FloatToStr(min);
  label2.caption:=IntToStr(merker);
end;

[Foxi1896]

Ich möchte das er mir sagt wo sich der kleinste Wert befindet.

Hatte es letzte Woche schonmal Versucht aber irgendwie war das doch flasch. Ich möchte den kleinsten Wert in den Edits ausfindig machen und dann die Reihenfolge bei ihm beginnen lassen.

z.B. 4 , 8 , 10 , 3 , 7 , 9 da ist die der kleinste Wert also soll 3 , 7 , 9 , 4 , 8 , 10 ausgegeben werden.