Abt. Wurf mit drei regulären Würfeln
=======================
Wie oben, aber mit 3 Würfeln (Augensumme zwischen 3 und 18)
Gruss
Code
WindowTitle "Augensummenwahrscheinlichkeit für Wurf mit 3 Würfeln"
Windowstyle 24:CLS:declare i&,j&,k&,sum&,gessum&,h&[18]:font 2
whileloop 6:i&=&Loop
whileloop 6:j&=&Loop
whileloop 6:k&=&Loop
sum&=i&+j&+k&
h&[sum&]=h&[sum&]+1
gessum&=gessum&+sum&
endwhile
endwhile
endwhile
set("decimals",17)
whileloop 3,18
print &Loop,h&[&loop],tab(8);"/",gessum&,"=",tab(17);h&[&loop]/gessum&
print mkstr$(chr$(154),h&[&Loop]*2)
endwhile
waitinput
end
Alles anzeigen