Информационный сервер для программистов: Исходники со всего света. Паскальные исходники со всего света
  Powered by Поисковый сервер Яndex: Найдется ВСЁ!
На Главную Pascal Форум Информер Страны мира
   Разбор и Анализ Строк    >>    pars
   
 
 Simple Calculator Function with Brackets   Alex Frounze 06.02.1999

Что-то типа калькулятора, который может вычислять выражения со скобками подобного рода: -(2.7^x - 5*x^2) / (3 + x%4). X - это действительный параметр, значение которого можно указывать.



2k 
 

Function Parse (S : String; Arg : Real; Var Result : Real) : Byte; (****************************************************) (* Examples: *) (* S = "4 * 60 + 10 * 9" => Result = 330.0 *) (* S = "1.5E2+2.3e-1" => Result = 150.23 *) (* S = "-(X-3)*(x+5)", Arg = 4.0 => Result = -9.0 *) (* S = "9.0^0.5" => Result = 3.0 *) (* S = "x%8", Arg = 15.0 => Result = 7 *) (****************************************************) (****************************************************) (* Return values: *) (* 0 - successfuly - no error *) (* 1 - error in numeric format like "1e" or "2.e3" *) (* 2 - unknown symbol in expression *) (* 3 - not balanced brakets i.e. "(x-1)*(x+2" *) (* 4 - positional error like in "4+x-" or ")2" *) (* 5 - expression is empty - nothing to compute *) (* 6 - math error such as division by zero etc. *) (****************************************************)