kniffel - zahlenabfrage

[Klaus01]

Guten Abend,

ich würde Dir ein Array vorschlagen welches die Anzahl der 1er-6er aufnimmt.

Delphi-Quellcode:

var
  augen: Array[1..6] of Byte;

...

 inc(augen[w1]);  // erhöht den Wert im Augen Array des wurfes von Würfel_1 um 1

Wenn eine 3 gewürfelt wird, wird die Position 3 des Arrays um 1 erhöht.

Grüße
Klaus