fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Würfelauswertung

Uploader:	Sebastian
Datum/Zeit:	25.12.2008 15:36:51

'Beispielprogramm zum Thread

' http://forum.qbasic.at/viewtopic.php?t=6172

DIM AS INTEGER W, Anz, i, Z(1 To 6)



RANDOMIZE TIMER

PRINT "Wuerfelprogramm"

PRINT

INPUT "Wie oft soll gewuerfelt werden? ", Anz

PRINT

PRINT "Ergebnisse:"

IF Anz < 1 Then End

For i = 1 To Anz

    W = INT(RND*6)+1

    PRINT W;

    Z(W) += 1

Next i

PRINT

PRINT

PRINT "Wurfbilanz nach Augenzahl:"

FOR i = 1 TO 6

    PRINT " " & i & " - " & Z(i) & "x"

NEXT i

PRINT

PRINT "Druecken Sie eine beliebige Taste zum Beenden."

SLEEP

END

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.