PureBoard

Hallo also hier ist der Code. Wie gesagt, bin Anfänger.


Dim x.d(1000)
Dim y.d(1000)
Global Merker1.d
Global Merker2.d
Define test.d
Global k.i


Procedure.f Funktion(x.f)
Define x.f
Define y.f

;hier die Formel eintragen zum Beispiel y=x*x-4.0

y=x*x-4
;y=x*x-3
;y=-1.5-Log10(x)
;Ende Formel ...

tag$ = Str(Day(Date()))
monat$ = Str(Month(Date()))
jahr$ = Str(Year(Date()))
stunde$ = Str(Hour(Date()))
minute$ = (FormatDate("%ii", Date()))
sekunde$ = (FormatDate("%ss", Date()))

Debug sekunde$
Debug minute$
Debug stunde$
Debug jahr$
Debug monat$
Debug tag$

Du musst dann nur die Sachen ...

Also das mit dem Intger und mit 10 multiplizieren klingt interessant.
Ich habe aber wirklich keine Ahnung wie man das durchführen kann.
Ich werde mal die Debugs aus dem Code entfernen und dann hier posten.
Vielleicht siehst Du dann was mein Problem ist.
Oder ich seh den Wald vor lauter Bäumen nicht ...

Ich möchte eine Gleichung mit Hilfe der Intervallschachtelung lösen.
Deshalb mit Float oder Double. Mein "Programm" hatte nicht so richtig funktioniert. Beim Fehlersuchen bin ich dann - durch ausprobieren- auf den Punkt gekommen den ich nicht so ganz verstanden hatte.

Ich werde mit den gemachten ...

Vielen Dank,

ich denke , dass ich die Nachkommastellen dann ignorieren kann.

Heiko

Hallo,

ich habe folgenden Code

Define d.f
d=30/100
Debug d

Ausgegben wird
0.30000001192093

Jetzt möchte ich mit dem Wert aber weiterrechnen, und dann wird es falsch.
Habe ich irgendwelche Einstellungen nicht richtig gemacht ?

Vielen Dank für die Hilfe

Heiko