Listbox Zahlen erhöhen

[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).