PureBoard

Verfasst: **20.02.2010 16:56**

hier noch 'ne Möglichkeit:

(Geschwindigkeitsfanatiker und Speicherextremisten jetzt
bitte mal wegschauen

)

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

Verfasst: **20.02.2010 19:02**

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)

PureBoard

Min - und Max - Funktion

Re: Min - und Max - Funktion

Re: Min - und Max - Funktion