Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!fb:porticula NoPaste
Funktionsrechner
| Uploader: |  Siedlerchr |
| Datum/Zeit: | 17.08.2007 20:52:08 |
#INCLUDE "fbeval.bas" 'Eval Zubehör
#INCLUDE "stdeval.bas"
Color 2,0
Dim Result As Eval.Result
Dim i As Double,we As Double, f As String
Print "========================="
Print "Funktionsrechner: Setzt die Zahlen des Wertebereichs in die Funktion ein"
Print "-------------------------"
Print "EINGABEN:"
Input "Funktion";f 'Funktion: z.B x^4+6*x
Input"Wertebereich Anfang"; i 'Wird als x-Wert verwendet
Input "Wertebereich Ende";we
Print "========================="
'Berechnung
For i=i To we
'Eval Variable setzen und verarbeiten
Eval.SetVariable("x", i)
Result = Eval.Execute(f)
? "fuer: x= " & i & Chr(10) & f & "=" &Result.Value
Print "_____________" 'Sieht übersichtlicher aus
Print "_____________"
Next i
Print "========================="
Sleep
'Todo: Graphische Darstellung der Funktion
'Ausgabe in Datei?
'Hinweis: Muss im selben Verzeichnis von den SEE Dateien liegen
'Die Dateien sind die, die der Rechner benötigt:
'fbeval.bas
'stdeval.bas
'Die Dateien könnt ihr euch hier runterladen: (für 0.17 tauglich gemacht)
' http://jeak.de/Subpages/siedlerchr/downloads/see_ohne_call.zip