Min - und Max - Funktion

[Kiffi]

hier noch 'ne Möglichkeit:

(Geschwindigkeitsfanatiker und Speicherextremisten jetzt
bitte mal wegschauen )

Code: Alles auswählen

UseSQLiteDatabase()

DB = OpenDatabase(#PB_Any, ":memory:", "", "", #PB_Database_SQLite)

DatabaseUpdate(DB, "Create Table Werte (Wert)")
DatabaseUpdate(DB, "Insert Into Werte (Wert) Values (25)")
DatabaseUpdate(DB, "Insert Into Werte (Wert) Values (35)")
DatabaseUpdate(DB, "Insert Into Werte (Wert) Values (28)")
DatabaseUpdate(DB, "Insert Into Werte (Wert) Values (36)")
DatabaseUpdate(DB, "Insert Into Werte (Wert) Values (15)")

DatabaseQuery(DB, "Select Min(Wert), Max(Wert) From Werte")
NextDatabaseRow(DB)
Debug GetDatabaseLong(DB, 0) ; <- Min
Debug GetDatabaseLong(DB, 1) ; <- Max

(ich bekomme gleich bestimmt wieder Haue von STARGÅTE )

Grüße ... Kiffi

[Kaeru Gaman]

für die mitlesenden Anfänger, hier die klassische zu-Fuß-Lösung:

Code: Alles auswählen

Dim Arry.l(199)

For n=0 To 199
  Arry(n) = Random( 99999 )
Next

; Vorbereitung

Min =  2147483647
Max = -2147483648
Debug Min
Debug Max

; Ermittlung

For n=0 To 19
  Out$ = ""
  For t=0 To 9
    Wert = Arry(n*10+t)
    Out$ + RSet(Str( Wert ), 5 ) + ", "

  ;******************
    ; Minimum
    If Wert < Min
      Min = Wert
    EndIf
  ;******************
    ; Maximum
    If Wert > Max
      Max = Wert
    EndIf
  ;******************

  Next
  Debug Out$
Next
Debug "Minimum: " + Str(Min)
Debug "Maximum: " + Str(Max)