Listbox Zahlen erhöhen

[TarantelFaser47]

Ähm ja, und?

[günni0]

Tolle Einstellung.

[TarantelFaser47]

Zitat von günni0:

inc(summe[w1+w2]); Da hast du doch dein Histogram.

Ich weis ehrlichgesagt nicht was ich damit anfangen soll ..

[hoika]

Hallo,

w1 := Random(6)+1;
1. Würfel (w1), Random(6) ergibt einen Wert von 0 bis 5,
das +1 ergibt also eine Würfelzahl von 1 bis 6

w2 := Random(6)+1;
2. Würfel (w2), dito


inc(summe[w1+w2]);
w1+w2 ergibt die Würfelzahl von Würfel1 und Würfel2, also 2 bis 12
inc(summe[w1+w2]); ist das gleiche wie summe[w1+w2]:= summe[w1+w2]+1;

Bsp:
w1=1,w2=2 -> summe[1+2]:= summe[1+2]+1; oder summe[3]:= summe[3]+1;
w1=2,w2=6 -> summe[2+6]:= summe[2+6]+1; oder summe[8]:= summe[8]+1

Es wird also immer der korrekte Array-Index benutzt und damit die richtige Würfelsumme um 1 erhöht.

Man hätte es auch noch anders schreiben können:
wuerfelsumme:= w1+w2;
summe[wuerfelsumme]:= summe[wuerfelsumme]+1;


Jetzt das ganze noch in eine Schleife (k=Anzahl der Würfe).

[TarantelFaser47]

Danke für die Tips, aber irgendwie glaub ich immer noch dass ich scheiße im erklären bin ... so sollte es sein:


Hier ein Link zu meinem Programm in Dropbox...
https://www.dropbox.com/s/ikhi9fl52g...ation.zip?dl=0

[p80286]

NaJa, wenn das eine Musterlösung ist, die Form ist doch leicht verbesserungswürdig.
Wo fehlt denn da noch etwas?

Gruß
K-H

[TarantelFaser47]

So sollte es in etwa sein.
Rechts daneben soll später noch ein Diagramm hin, welches die Würfe grafisch Anzeigt (in PaintBox bzw. Bitmap).