ack/lang/basic/test/test26.bas

18 lines
816 B
QBasic
Raw Permalink Normal View History

1985-01-24 11:27:36 +00:00
70 print "cint" cint(45.67), cint(-45.67)
80 print "fix" fix(58.75), fix(-58.75)
90 print "int" int(99.98), int(-12.11)
100 print "abs" abs(-1), abs(-3.14), abs(1), abs(1.0), abs(-0)
110 print "sgn" sgn(-1), sgn(-3.14), sgn(1), sgn(1.0), sgn(-0)
120 print "asc" asc("a"), asc("0")
130 print "atn" atn(0), atn(3.14/2), atn(3.14), atn(0.5)
140 print "chr" chr$(97), chr$(48)
150 print "cos" cos(0), cos(3.14/2), cos(3.14), cos(-1)
160 print "sin" sin(0), sin(3.14/2), sin(3.14), sin(-1)
170 print "exp" exp(0), exp(3.14/2), exp(3.14), exp(-1)
180 print "hex" hex(0), hex(16), hex(-1)
190 print "oct" oct(0), oct(16), oct(-1)
200 print "len" len(""), len("abc"), len("a")
270 print "tan" tan(0), tan(3.14/2), tan(3.14), tan(-1)
280 print "sqr" sqr(0), sqr(3.14/2), sqr(3.14)
290 print "log" log(3.14/2), log(3.14)