projects
/
qbasicapps.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
f42a3f19773001f3fd1986ff9f51ac066122c3d5
[qbasicapps.git]
/
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