Entwickler-Ecke
Delphi Language (Object-Pascal) / CLX - Kleinste von 3 Zahlen bestimmen
kiwicht - Do 20.03.03 11:39
Titel: Kleinste von 3 Zahlen bestimmen
...hiho
hab 3 Variablen, und möchte rausbekommen, welche am kleinsten ist.
Gibt es dafür irgendeine Funktion, oder muss ich mir das selber zusammenbauen, so nach dem Motto
Quelltext
1:
2:
3:
4:
5:
6:
7:
| if a < b then begin
if a < c then klein := 'a' else
if c < a then klein := 'c' end else
if b < a then begin
if b < c then klein := 'b' else
if c < b then klein := 'c' end else
... usw..... |
vielen Dank schon ma im Vorraus....
Keldorn - Do 20.03.03 11:41
Quelltext
1:
2:
| klein := min(a,b);
klein := min(klein,c); |
ungetestet, direkt ins forum geklimpert.
Mfg Frank
maxk - Do 20.03.03 11:52
Oder:
klein:=min(min(a,b),c);
Du musst allerdings
math einbinden!
Oder du schreibst sie selber:
Quelltext
1:
2:
3:
4:
| function Min(a,b:integer):integer;
begin
if a<b then Result:=a else Result:=b;
end; |
maxk
kiwicht - Do 20.03.03 11:53
jupp, danke für die schnell antwort - wird implementiert ... :D ...
und sieht am Ende dann übrigens so aus.. schrecklich :oops:
Quelltext
1:
| edit1.Text := IntToStr(min(min(StrToInt(jum_stueck1.Text), StrToInt(jum_stueck2.Text)), StrToInt(jum_stueck3.Text))); |
mfg
smiegel - Do 20.03.03 13:10
Hallo,
es gibt auch die Fuktionen
MinIntValue und
MinValue.
Quelltext
1:
| klein:=MinIntValue([101, 250, 68]); |
Die o.g. Funktionen sind ebenfalls in der Unit Math implementiert.
kiwicht - Do 20.03.03 13:44
danke smiegel, damit sieht die Formel dann doch noch n bissel ordentlicher aus :D
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!