Berechnungen mir var#

Übersicht

BlitzBasic

Allgemein

	Dirk Knoop Betreff: Berechnungen mir var#	Fr, Mai 21, 2010 22:00 Antworten mit Zitat
Hallo, folgender Code: Code: [AUSKLAPPEN] [EINKLAPPEN] For a=1 To 500000 zufall_raute#=rand(1,8) zufall_raute2#=zufall_raute#/10 zu=rand(1,2) If zu=1 Then merke#=merke#+zufall_raute2# If zu=2 Then merke#=merke#-zufall_raute2# Next Print merke# Heraus kommen Werte wie 300,807. Das dürfte ja eigentlich nicht sein, es dürfte ja höchstens eine Dezimalstelle herauskommen. Was kann man da machen ? Dir kKnoop
www.kostenloser-fussballmanager.de www.discaim.de - weil Spaß kein Zufall ist www.torchance.de - ein etwas anderer Fußball-Manager

Dirk Knoop

Betreff: Berechnungen mir var#

Fr, Mai 21, 2010 22:00
Antworten mit Zitat

Hallo,

folgender Code:

Code: [AUSKLAPPEN]

For a=1 To 500000
zufall_raute#=rand(1,8)
zufall_raute2#=zufall_raute#/10

zu=rand(1,2)
If zu=1 Then merke#=merke#+zufall_raute2#
If zu=2 Then merke#=merke#-zufall_raute2#

Next

Print merke#

Heraus kommen Werte wie 300,807.

Das dürfte ja eigentlich nicht sein, es dürfte ja höchstens eine Dezimalstelle herauskommen.

Was kann man da machen ?

Dir kKnoop

www.kostenloser-fussballmanager.de
www.discaim.de - weil Spaß kein Zufall ist
www.torchance.de - ein etwas anderer Fußball-Manager

	Xeres Moderator	Fr, Mai 21, 2010 22:05 Antworten mit Zitat
Erst mit ints rechnen und nach Abschluss der Rechnungen in eine Kommazahl wandeln: Code: [AUSKLAPPEN] [EINKLAPPEN] For a=1 To 500000 zufall_raute%=Rand(1,8) zu=Rand(1,2) If zu=1 Then merke=merke+zufall_raute If zu=2 Then merke=merke-zufall_raute Next Print merke/10.0 WaitKey => 300.8
Win10 Prof.(x64)/Ubuntu 16.04\|CPU 4x3Ghz (Intel i5-4590S)\|RAM 8 GB\|GeForce GTX 960 Wie man Fragen richtig stellt \|\| "Es geht nicht" \|\| Video-Tutorial: Sinus & Cosinus THERE IS NO FAIR. THERE IS NO JUSTICE. THERE IS JUST ME. (Death, Discworld)

Xeres

Moderator

Fr, Mai 21, 2010 22:05
Antworten mit Zitat

Erst mit ints rechnen und nach Abschluss der Rechnungen in eine Kommazahl wandeln:
Code: [AUSKLAPPEN]

For a=1 To 500000
zufall_raute%=Rand(1,8)

zu=Rand(1,2)
If zu=1 Then merke=merke+zufall_raute
If zu=2 Then merke=merke-zufall_raute

Next

Print merke/10.0
WaitKey

=> 300.8

Win10 Prof.(x64)/Ubuntu 16.04|CPU 4x3Ghz (Intel i5-4590S)|RAM 8 GB|GeForce GTX 960
Wie man Fragen richtig stellt || "Es geht nicht" || Video-Tutorial: Sinus & Cosinus
THERE IS NO FAIR. THERE IS NO JUSTICE. THERE IS JUST ME. (Death, Discworld)

	SpionAtom	Fr, Mai 21, 2010 22:27 Antworten mit Zitat
Oder wenn die Schleife nicht verändert werden soll, am Ende so runden: Code: [AUSKLAPPEN] [EINKLAPPEN] Print merke# Print Floor(merke) Print (Floor(merke * 10) Mod 10) / 10. Print Floor(merke) + (Floor(merke * 10) Mod 10) / 10.
os: Windows 10 Home cpu: Intel Core i7 6700K 4.00Ghz gpu: NVIDIA GeForce GTX 1080

SpionAtom

Fr, Mai 21, 2010 22:27
Antworten mit Zitat

Oder wenn die Schleife nicht verändert werden soll, am Ende so runden:
Code: [AUSKLAPPEN]

Print merke#
Print Floor(merke)
Print (Floor(merke * 10) Mod 10) / 10.
Print Floor(merke) + (Floor(merke * 10) Mod 10) / 10.

os: Windows 10 Home cpu: Intel Core i7 6700K 4.00Ghz gpu: NVIDIA GeForce GTX 1080