Seite 1 von 1

Round up

Verfasst: 15.02.2010 23:17
von Kallewirsch
Hallo zusammen,

ich schon wieder...... :oops:

wie kann ich mit "round up" den Mittelwert aufrunden?
z1 = ValF(InputRequester("Zahl 1","Gib Wert 1 ein:",""))
z2 = ValF(InputRequester("Zahl 2","Gib Wert 2 ein:",""))
z3 = ValF(InputRequester("Zahl 3","Gib Wert 3 ein:",""))
z4 = ValF(InputRequester("Zahl 4","Gib Wert 4 ein:",""))
Mittelw.d = (z1 + z2 + z3 + z4) / 4
MessageRequester("Inf","Mittelwert von Wert 1 bis Wert 4: "+StrF(Mittelw))
Danke für die Hilfe

Gruß
Kalle

Re: Round up

Verfasst: 15.02.2010 23:25
von ts-soft
Das sollte man der Hilfe entnehmen können :wink:

Code: Alles auswählen

z1 = Round(z1, #PB_Round_Up)

Re: Round up

Verfasst: 16.02.2010 00:10
von hjbremer
etwas ausführlicher

Code: Alles auswählen

max = 4
summe.d = 0

For j = 1 To max
   ipr$ = InputRequester("Zahl " + Str(j), "Gib Zahl ein:","")
   ReplaceString(ipr$, ",", ".", #PB_String_InPlace )
   summe + ValD(ipr$)
Next

mw = Round(summe / max, #PB_Round_Nearest)

MessageRequester("Inf","Mittelwert: " + Str(mw))