Ich habe das angehänge mit Double Zahlen ausprobiert. Es funktioniert perfekt
Man muß nur den Stack und drastisch erhöhen - sonst rechnet er falsch ;-(( (Beispiel Ausgabe der Zahl 10 )
Der Nachteile ist, dass beim einem ATMEGA8 das Flash zu 47% mit diesem kleinen Programm ausgefüllt wird.

Hier das Programm:
$regfile = "m8def.dat"
$crystal = 16000000
$baud = 1000000 '1000000
Dim A As Double , C As Double , X As Double , Y As Double , Z As Double
A = 1
C = 10
Y = 1000
X = 2000
Z = 10000

Print A
Print C
Print Y
Print X
Print Z
A = 1000
C = A / 3
Print C

A = 10
C = 0.3
Y = C * A
X = A / Y
Print A
Print C
Print X

X = Tan(x)
Print X

End



Hier die Antwort des Terminalprogramms:
1
10
1E3
2E3
10E3
333.333333333333
10
300E-3
3.33333333333333
194.1255059836E-3