3.9*3.79-2.56*2.52-0.23*0.25

SELECT CAST((3.9*3.79-2.56*2.52-0.23*0.25) AS decimal(10, 2)) AS plosh

 SELECT CAST(explicatitems.fname AS DECIMAL(10, 2)) AS plosh

3.9*3.79-2.56*2.52-0.23*0.25

fetch cur into _id, _formula;
  SET @formula=_formula;
  SET @s = concat('select (',@formula,') into @result from explicatitems where num=',_id,';');

PROCEDURE explication.functoreal()
BEGIN
  DECLARE _id integer;
  DECLARE _formula char(100);
  DECLARE done integer DEFAULT 0;
  DECLARE CUR CURSOR FOR
  SELECT
    num,
    fname
  FROM explication.explicatitems;
  DECLARE CONTINUE HANDLER FOR SQLSTATE '02000' SET done = 1;
  OPEN cur;
  WHILE done = 0 DO
    FETCH cur INTO _id, _formula;
    SET @result = 0;
    IF _formula <> '' THEN
      SET @formula = _formula;
      SET @s = CONCAT('select (', @formula, ') into @result from explicatitems where num=', _id, ';');
      PREPARE stmt FROM @s;
      EXECUTE stmt;
      DEALLOCATE PREPARE stmt;
      UPDATE explication.explicatitems
      SET plosh = @result
      WHERE num = _id;
    END IF;
  END WHILE;
  CLOSE cur;
END

(* Получение приоритета *)
function GetPriority( c: char ): byte;
begin
   Result := 0;
   case c of
      '(': Result := 1;
      '+', '-': Result := 2;
      '*', '/': Result := 3;
      '^', '!': Result := 4;
      'c', 's', 'l', 'e': Result := 5;
      'n': Result := 6;
   end;
end;
 
(* Переводим строку с формулой в обратную польскую запись *)
procedure ParseString( s: AnsiString; var _Stack: TStringList );
var
  Ms: TMemoryStream;
  Temp: TStringList; // Временный стек для знаков и геометрических функций
  flag: boolean;
begin
   Temp := TStringList.Create;
   Ms := TMemoryStream.Create;
   Ms.WriteBuffer( s[1], Length( s ) );
   Ms.Position := 0;
   with TParser.Create( Ms ) do
   begin
      while Token <> toEof do
      begin
         // Если это число, помещаем его в выходной стек
         if ( TokenString[1] in ['0'..'9'] ) then
            if flag then
            begin
               _Stack[_Stack.Count-1] := _Stack[_Stack.Count-1] + TokenString;
               flag := false;
            end
            else
               _Stack.Add( TokenString );
         // Если это разделитель дробной части
         if ( TokenString[1] in [DecimalSeparator] ) then
         begin
            _Stack[_Stack.Count-1] := _Stack[_Stack.Count-1] + TokenString;
            flag := true;
         end;
         // Если это знак (или геометрическая функция), то...
         if ( TokenString[1] in ['+','-','/','*','^','!','c','s','l','n','e'] ) then
         begin
            // ...если стек пустой, помещаем знак в стек ...
            if Temp.Count = 0 then
               Temp.Add( TokenString )
            else
            begin
               // ... если приоритет текущей операции выше, чем приоритет
               // последней операции в стеке, помещаем знак в стек ...
               if GetPriority( TokenString[1] ) > GetPriority( Temp.Strings[Temp.Count-1][1] ) then
                  Temp.Add( TokenString )
               else
               begin
                  // ... иначе извлекаем из стека все операции, пока
                  // не встретим операцию с более высшим приоритетом
                  while true do
                  begin
                     _Stack.Add( Temp.Strings[Temp.Count-1] );
                     Temp.Delete( Temp.Count-1 );
                     if Temp.Count = 0 then Break;
                     if GetPriority( TokenString[1] ) > GetPriority( Temp.Strings[Temp.Count-1][1] ) then
                        Break;
                  end;
                  // Не забываем добавить в стек текущую операцию
                  Temp.Add( TokenString );
               end;
            end;
         end;
         // Если это открывающая скобка, помещаем ее в стек операций
         if ( TokenString[1] in ['('] ) then
            Temp.Add( TokenString );
         // Если это закрывающая скобка, извлекаем из стека операций в
         // выходной стек все операции, пока не встретим открывающую скобку.
         // Сами скобки при этом уничтожаются.
         if ( TokenString[1] in [')'] ) then
         while true do
         begin
            if Temp.Count = 0 then Break;
            if Temp.Strings[Temp.Count-1] = '(' then
            begin
               Temp.Delete( Temp.Count-1 );
               Break;
            end;
            _Stack.Add( Temp.Strings[Temp.Count-1] );
            Temp.Delete( Temp.Count-1 );
         end;
         NextToken;
      end;
   end;
   Ms.Free;
   // Если по окончании разбора строки с формулой, в стеке операций
   // еще чтото осталось, извлекаем все в выходной стек
   if Temp.Count <> 0 then
      while Temp.Count <> 0 do
      begin
         _Stack.Add( Temp.Strings[Temp.Count-1] );
         Temp.Delete( Temp.Count-1 );
      end;
   Temp.Free;
end;