[TIB] Complete!

To: ti-basic@lists.ticalc.org
Subject: [TIB] Complete!
From: Tib <tib@tigerknight.org>
Date: Mon, 3 Feb 2003 23:37:07 -0800 (PST)
In-Reply-To: <Pine.LNX.4.44.0302032132260.13279-100000@altaica.tigerknight.org>
Reply-To: ti-basic@lists.ticalc.org

Here's my program. Thanks to the folks that gave me feedback! Indents here
are for readability, in the program everything is on the far left.

Mnemonics to help read it:
D = Dice
N = Needed for success
S = Successes

----------------

ClLCD
" "->ALL
Input "# of dice: ",D
Input "# to succeed: ",N
0->S

ClLCD
Disp "Results:"
For(R,1,D)
 RandInt(1,6)->ROLL
 If ROLL>=N
  Then
   S+1->S
 End
 ALL+" "+sub("123456",ROLL,1)->ALL
 If mod(R,10)==0
  Then
   Disp ALL
   " "->ALL
 End
End
Disp ALL
Disp "Successes: ",S

Follow-Ups:

[TIB] Re: Complete!

From: "Andrey" <ag_silver_83p@ameritech.net>

References:

[TIB] Re: remainder function

From: Tib <tib@tigerknight.org>

Prev: [TIB] Re: remainder function
Next: [TIB] Re: Complete!
Index(es):
- Main
- Thread