Print PI

3.14159

Print int(pi);".";str$((pi-int(pi))*1000000)

3.141593

x = 999999 + 999999

IF x < 1000000 THEN
PRINT x
ELSE
PRINT x \ 1000000;
PRINT STR$(x - (x \ 1000000) * 1000000 )
ENDIF

1999998

Print int(pi)"."str$((pi-int(pi))*1000000)

'=========================================================
'
' Function which extends the functionality of the native
' STR$() function
'
' If Number < 1,000,000 then 6 digit precision using native STR$()
' If 999,999 < Number < 9,999,998 then 7 digit precision result
' If 9,999,998 < Number < 100,000,00 then 7 digit precision result with 1 Zero appended
' If 99,999,999 < Number < 999,999,968 then 7 digit precision with 2 zeroes appended
' If 999,999,967 < Number then 6 digit precision using native STR$()
'
'
FUNCTION StrEx$(Number,M,N,C$)

'Is Number small enough to use normal STR$ ?
IF Number < 1000000 THEN
StrEx$=STR$(Number,M,N,C$)
EXIT FUNCTION
ENDIF

'We have a big enough number such that 7 digit precion is useful

IF C$="" THEN C$="0"
IF M<1 THEN M=6
IF N<1 THEN N=0
Exponent=VAL(RIGHT$(STR$(Number),2))

IF Number<9999999 THEN
StrEx$=MID$(STR$((Number)\1e6)+STR$(Number-((Number)\1e6)*1e 6,6,N,C$),1,7)
EXIT FUNCTION
ENDIF

IF Number<100000000 THEN '99999999 THEN
StrEx$=MID$(STR$((Number+5)\1e6)+STR$(Number+5-((Number+5)\1 e6)*1e6,M,N,C$),1,7)+STRING$(Exponent-6,"0")
EXIT FUNCTION
ENDIF

'It should be 1000,000,000 but MMBasic errors out with "Number is too large"
IF Number<999999968 THEN
StrEx$=MID$(STR$((Number+50)\1e6)+STR$(Number+50-((Number+50 )\1e6)*1e6,M,N,C$),1,7)+STRING$(Exponent-6,"0")
EXIT FUNCTION
ENDIF

'Just return it in exponent form
StrEx$=STR$(Number)

END FUNCTION

print PI
print str$(PI, 2,4)
print str$(PI, 2,5)
print str$(PI, 2,6)
print str$(PI, 2,7);" We have gone over the true precision level of 32bit here"

PRINT MM.DEVICE$
IF MM.DEVICE$="Micromite" THEN
PRINT PI
PRINT STR$(PI, 2,4)
PRINT STR$(PI, 2,5)
PRINT STR$(PI, 2,6)
PRINT STR$(PI, 2,7)
PRINT
PRINT 3.1415926
PRINT STR$(3.1415926, 2,4)
PRINT STR$(3.1415926, 2,5)
PRINT STR$(3.1415926, 2,6)
PRINT STR$(3.1415926, 2,7)
PRINT
PRINT 3.14159265358979
PRINT STR$(3.14159265358979, 2,4)
PRINT STR$(3.14159265358979, 2,5)
PRINT STR$(3.14159265358979, 2,6)
PRINT STR$(3.14159265358979, 2,7)
PRINT
PRINT 3.14159265358979323846
PRINT STR$(3.14159265358979323846, 2,4)
PRINT STR$(3.14159265358979323846, 2,5)
PRINT STR$(3.14159265358979323846, 2,6)
PRINT STR$(3.14159265358979323846, 2,7)
ELSE
PRINT PI
PRINT FORMAT$(PI, "%7.4f")
PRINT FORMAT$(PI, "%8.5f")
PRINT FORMAT$(PI, "%9.6f")
PRINT FORMAT$(PI, "%10.7f")
PRINT
PRINT 3.1415926
PRINT FORMAT$(3.1415926, "%7.4f")
PRINT FORMAT$(3.1415926, "%8.5f")
PRINT FORMAT$(3.1415926, "%9.6f")
PRINT FORMAT$(3.1415926, "%10.7f")
PRINT
PRINT 3.14159265358979
PRINT FORMAT$(3.14159265358979, "%7.4f")
PRINT FORMAT$(3.14159265358979, "%8.5f")
PRINT FORMAT$(3.14159265358979, "%9.6f")
PRINT FORMAT$(3.14159265358979, "%10.7f")
PRINT
PRINT 3.14159265358979323846
PRINT FORMAT$(3.14159265358979323846, "%7.4f")
PRINT FORMAT$(3.14159265358979323846, "%8.5f")
PRINT FORMAT$(3.14159265358979323846, "%9.6f")
PRINT FORMAT$(3.14159265358979323846, "%10.7f")
ENDIF

'MicroMite:
'
'// Return the value of Pi. Thanks to Alan Williams for the contribution
'void fun_pi(void) {
' fret = (float)3.1415926;
'}
'
'Maximite:
'
'// Return the value of Pi. Thanks to Alan Williams for the contribution
'void fun_pi(void) {
' fret = (float)3.14159265358979323846;
'}
'