Kleinste von 3 Zahlen bestimmen

kiwicht · Verfasst: Do 20.03.03 12:39

...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

markieren

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....

_________________
Look for "freecoffee"...

Keldorn · Verfasst: Do 20.03.03 12:41

Quelltext

markieren

1:

2:

klein := min(a,b);

klein := min(klein,c);

ungetestet, direkt ins forum geklimpert.

Mfg Frank

_________________
Lükes Grundlage der Programmierung: Es wird nicht funktionieren.
(Murphy)

maxk · Verfasst: Do 20.03.03 12:52

Oder:klein:=min(min(a,b),c);
Du musst allerdings math einbinden!
Oder du schreibst sie selber:

Quelltext

markieren

1:

2:

3:

4:

function Min(a,b:integer):integer;

begin

if a<b then Result:=a else Result:=b;

end;

maxk

_________________
Ein Computer wird das tun, was Du programmierst - nicht das, was Du willst.

kiwicht · Verfasst: Do 20.03.03 12:53

jupp, danke für die schnell antwort - wird implementiert ...

...

und sieht am Ende dann übrigens so aus.. schrecklich :oops:

Quelltext

markieren

1:

edit1.Text := IntToStr(min(min(StrToInt(jum_stueck1.Text), StrToInt(jum_stueck2.Text)), StrToInt(jum_stueck3.Text)));

mfg

_________________
Look for "freecoffee"...

smiegel · Verfasst: Do 20.03.03 14:10

Hallo,

es gibt auch die Fuktionen MinIntValue und MinValue.

Quelltext

markieren

1:

klein:=MinIntValue([101, 250, 68]);

Die o.g. Funktionen sind ebenfalls in der Unit Math implementiert.

_________________
Gruß Smiegel
Ich weiß, daß ich nichts weiß, aber ich weiß mehr als die, die nicht wissen, daß sie nichts wissen. (Sokrates)

kiwicht · Verfasst: Do 20.03.03 14:44

danke smiegel, damit sieht die Formel dann doch noch n bissel ordentlicher aus

_________________
Look for "freecoffee"...