AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Minimum festlegen

Ein Thema von Hallo_Thomas · begonnen am 8. Jun 2005 · letzter Beitrag vom 9. Jun 2005
Antwort Antwort
Hallo_Thomas

Registriert seit: 18. Apr 2005
Ort: Dresden
405 Beiträge
 
Delphi 2005 Professional
 
#1

Minimum festlegen

  Alt 8. Jun 2005, 23:32
Mal ne kurze Frage wie könnte der Befehl dafür aussehen,

Ich habe eine 3 Variablen.

A,B,C

Die Variable die den niedrigsten Wert hat übergibt diesem den Wert D.
  Mit Zitat antworten Zitat
Benutzerbild von alcaeus
alcaeus

Registriert seit: 11. Aug 2003
Ort: München
6.537 Beiträge
 
#2

Re: Minimum festlegen

  Alt 8. Jun 2005, 23:34
Hallo Thomas,

guck dir mal die Funktion Delphi-Referenz durchsuchenMin() an.

Greetz
alcaeus
Andreas B.
Die Mutter der Dummen ist immer schwanger.
Ein Portal für Informatik-Studenten: www.infler.de
  Mit Zitat antworten Zitat
Hallo_Thomas

Registriert seit: 18. Apr 2005
Ort: Dresden
405 Beiträge
 
Delphi 2005 Professional
 
#3

Re: Minimum festlegen

  Alt 8. Jun 2005, 23:40
Ich fand dafür kein Beispiel

D:=Min(A,B,C)

wird nichz akzeptiert
  Mit Zitat antworten Zitat
Benutzerbild von Treffnix
Treffnix

Registriert seit: 25. Jun 2003
Ort: AC
740 Beiträge
 
Delphi 7 Professional
 
#4

Re: Minimum festlegen

  Alt 8. Jun 2005, 23:43
Min vergleicht nur 2 Werte. Müsstest also D:= Min( A, Min( B, C ) ); machen

*edit* und die unit math in die uses
  Mit Zitat antworten Zitat
Hallo_Thomas

Registriert seit: 18. Apr 2005
Ort: Dresden
405 Beiträge
 
Delphi 2005 Professional
 
#5

Re: Minimum festlegen

  Alt 8. Jun 2005, 23:47
Klappt Wunderbar! Danke!
  Mit Zitat antworten Zitat
runger
(Gast)

n/a Beiträge
 
#6

Re: Minimum festlegen

  Alt 9. Jun 2005, 06:25
Hallo,

nur der Vollständigkeit halber:
Diese Funktion macht das ganze mit einem Array.
Schreib deine Zahlen in das Array Data, ruf die Funktion auf und du erhälst das
Minimum aller Zahlen in dem Array. Diese Funktion ist auch mit vielen Zahlen nutzbar, allerdings hat sie auch den Nachteil, dass alle Zahlen in double deklariert sein müssen.

function MinValue(const Data: array of Double): Double;

Hier ein ganz simples Beispiel:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var a:array[1..5] of double;b:double;s:string;
begin
   a[1]:=3;a[2]:=-5;a[3]:=-13;a[4]:=45;a[5]:=3;
   b:=MinValue(a);
   str(b,s);
   label1.caption:=s;
end;
Rainer
  Mit Zitat antworten Zitat
Benutzerbild von Treffnix
Treffnix

Registriert seit: 25. Jun 2003
Ort: AC
740 Beiträge
 
Delphi 7 Professional
 
#7

Re: Minimum festlegen

  Alt 9. Jun 2005, 13:16
Zitat von runger:
Diese Funktion ist auch mit vielen Zahlen nutzbar, allerdings hat sie auch den Nachteil, dass alle Zahlen in double deklariert sein müssen.
Es gibt auch MinIntValue für Integerwerte.
  Mit Zitat antworten Zitat
Hallo_Thomas

Registriert seit: 18. Apr 2005
Ort: Dresden
405 Beiträge
 
Delphi 2005 Professional
 
#8

Re: Minimum festlegen

  Alt 9. Jun 2005, 13:36
Danke, alles geklärt!
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 02:39 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz