projects
/
qbasicapps.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
initial cammit
[qbasicapps.git]
/
math
/
logar.bas
1
DECLARE FUNCTION loga! (a!, b!)
\r
2
CLS
\r
3
\r
4
v = 10 ^ (2 * loga(10, 7) + loga(10, 2))
\r
5
\r
6
PRINT v
\r
7
\r
8
FUNCTION loga (a, b)
\r
9
loga = LOG(b) / LOG(a)
\r
10
END FUNCTION
\r
11
\r