tutorial/group1/14.bas

   1 CLS\r
   2 \r
   3 FOR a = 1 TO 20\r
   4   \r
   5   n1 = RND * 100\r
   6 \r
   7   n2 = INT(n1)          ' Rounds numbers towards a smaller value.\r
   8 \r
   9   n3 = n1 \ 1           ' Mathematically correct rounding.\r
  10 \r
  11   PRINT n1, n2, n3\r
  12 \r
  13 NEXT a\r
  14 \r