Forum: Object-Pascal / Delphi-Language
Delphi
by Klaus01,
6. Jan 2009
Ich würde es so lösen:
Deine zulässigen Werte sind 1..15.
procedure TForm1.Button1Click(Sender: TObject);
var
a,b : TByteArray;
i,j: Integer;
Forum: Object-Pascal / Delphi-Language
Delphi
by Klaus01,
5. Jan 2009
.. mache Dir ein Array fülle es mit den Werten von b etc.
Sortiere das Array mit einem Sortieralgorythmus Deiner Wahl (bubbleSort)
Angenommen im sortierten Array a (index von 0..3) steht nun der maximale Wert an letzter Stelle,
das wäre a der zweithöchste steht dann auf a.
for i:=2 to 3 do
case a of
b : ..
Forum: Object-Pascal / Delphi-Language
Delphi
by Klaus01,
5. Jan 2009
.. doch Du kannst anhand der Werte den Index des Ursprungselementes ermitteln.
Im einfachsten Fall die 4 Werte durchsuchen wenn ein Wert gefunden wurde Index merken.
Grüße
Klaus
Forum: Object-Pascal / Delphi-Language
Delphi
by Klaus01,
5. Jan 2009
Hallo Alexander,
ich würde die zwei größten Werte aus B, B, B ud B suchen
und diese Indizes dann aus dem großen Array entfernen - oder auf einen Minimalwert setzen.
Grüße
Klaus