RosettaCodeData/Task/Runtime-evaluation-In-an-environment/FreeBASIC/runtime-evaluation-in-an-environment.basic
2024-07-13 15:19:22 -07:00

10 lines
170 B
Text

#include "solver.bi"
Dim As String expression = "(x ^ 2 )-7"
setVar("x",1.2)
Print "one = ";Solver(expression)
setVar("x",3.4)
Print "two = ";Solver(expression)
Sleep