Aus 6 Werten den kleinsten Wählen und anzeigen lassen

Masta_Rafa · Hält's aus hier Beiträge: 13

Hallo,

bin mit meinem Programm jetzt fertig. Habe aber folgendes Problem:

Zum Schluss bekomme ich 6 Varianten für die Gesamtkosten raus

Gesamtkosten1
Gesamtkosten2
Gesamtkosten3
Gesamtkosten4
Gesamtkosten5
Gesamtkosten6

Jedoch soll von den 6 Gesamtkostenvarianten nur diejenige, mit den geringsten Kosten in einem Edit Feld angezeigt werden.

Frage: Wie bekomme ich dies hin

1.entweder über If- Anweisungen oder wenn zu aufwändig

2.über Arrays

Ich danke euch

lg

oldmax · Beiträge: 380 D3 Prof, D4 Prof

Hi
so in der Art, wie du es beschrieben hast, kommt sowieso nur If .. in Frage, was willst du mit Array? Mach dir mal Gedanken, wie siehst du denn, welches die kleinste Zahl ist ? Na klar, erste Zahl und 2. vergleichen.
Kleinere merken und mit 3. Zahl vergleichen. Wieder die kleinere merken und irgendwann bist du dann bei der letzten Zahl und davon die kleinere ist dann das Ergebnis....
Nun brauchst du nur noch deine If und eine Hilfsvariable, in der du dir den kleineren Wert merkst.
Ist doch ganz easy
gruß oldmax

_________________
Zier dich nich so, ich krieg dich schon....

Masta_Rafa · Hält's aus hier Beiträge: 13

probiere jetzt mal alles aus ....

danke

Masta_Rafa · Hält's aus hier Beiträge: 13

Alles klar,

funktioniert alles. hab am anfang nicht an die hilfsvariablen gedacht. danke für den tipp

lg

ub60 · Beiträge: 764 Erhaltene Danke: 127

oldmax hat folgendes geschrieben:

was willst du mit Array?

Also mit einem Array geht das Ganze auch für 20 Werte noch einfach :lol:

, z.B. so:

markieren

Delphi-Quelltext

1:
2:
3:
4:

  Minimum:=Gesamtkosten[1];
  for i:=2 to 6 do
    if Gesamtkosten[i]<Minimum
      then Minimum:=Gesamtkosten[i];

ub60

oldmax · Beiträge: 380 D3 Prof, D4 Prof

Hi
Nun will ich aber auch mal klugschei....
Zitat:

Zitat:

Frage: Wie bekomme ich dies hin

1.entweder über If- Anweisungen oder wenn zu aufwändig

2.über Arrays

Vorschlag....

markieren

Delphi-Quelltext

1:
2:
3:
4:

 Minimum:=Gesamtkosten[1];  
  for i:=2 to 6 do  
    if Gesamtkosten[i]<Minimum  
      then Minimum:=Gesamtkosten[i];

Lass mich mal raten: Minimum = Hilfsvariable ?
Vergleich über If ?
Und wie bitte kommen nun

Zitat:

Gesamtkosten1
Gesamtkosten2
Gesamtkosten3
Gesamtkosten4
Gesamtkosten5
Gesamtkosten6

ins Array ?
Nich das ich Array's ausschließen will, aber bei der Fragestellung ist's eindeutig !
Natürlich sind Arrays für Zahlenreihen geeignet, wesentlich besser als Einzelvariablen mit lfdNr im Namen. Der nutzt keinem etwas, deshalb ist's nicht verkehrt, ein Array einzusetzen. Aber ich denke, der Fragesteller hat verstanden, worauf es ankommt. Bei Hausaufgaben versuche ich, ohne Quellcode auszukommen und lediglich die Vorgehensweise zu erläutern. (Zugegeben, leider nicht immer erfolgreich...)
Gruß oldmax

_________________
Zier dich nich so, ich krieg dich schon....

mkinzler · Verfasst: Di 09.09.08 08:28

markieren

Delphi-Quelltext

1:	Minimum := min ( Gesamtkosten1 , min ( Gesamtkosten2, min( Gesamtkosten3, min ( Gesamtkosten4, min( Gesamtkosten5, min( Gesamtkosten6))))));

_________________
Markus Kinzler.

oldmax · Beiträge: 380 D3 Prof, D4 Prof

ooch man, mit fertigen Functions von Delphi kann das doch jeder.....

Außerdem, auch nur mit Hilfsvariable....

Gruß oldmax

_________________
Zier dich nich so, ich krieg dich schon....

mkinzler · Verfasst: Di 09.09.08 09:36

Warum soll isch es selber machen, wenn es passende Funktionen in Standardbibliotheken gibt?
Zudem benötigt der Code keine Hilfsvariable.

markieren

Delphi-Quelltext

1:	Edit1.Text := Format( '%.2d', min ( ...

_________________
Markus Kinzler.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme