| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как заставить Делфи выполнить мат. выражение ? [D5, Win95/98]
Termik © (2002-04-23 09:58:00)Дано: a:="5+3*8..." и т.д. Как заставить Делфи выполнить выражение, записанное в переменную ? В выражении также могут присутствовать скобки и функциии.
Заранее благодарен.
VictorT (2002-04-23 13:37:00) [1]
> Alx2 © (23.04.02 13:17)
> >VictorT © (23.04.02 12:56)
Нда... очетался (наверно таких словов (словей) вообще нет).
Alx2 (2002-04-23 13:17:00) [2]>VictorT © (23.04.02 12:56)
Нет. В той среде не вращался.
PS
Только Радионов. Такой вот казус :)
VictorT (2002-04-23 12:56:00) [3]
> Alx2 © (23.04.02 12:08)
А ты случайно не тот Родионов, что в среде Спектрумовцев в своё время известен был?
Alx2 (2002-04-23 12:08:00) [4]>VictorT © (23.04.02 12:05)
Формальные языки еще помню местами. :)
VictorT (2002-04-23 12:05:00) [5]
> Alx2 © (23.04.02 11:51)
Уважаю, если на скорую руку... Я вначале пару дней книжки читал, пока первую строчку не написал.
Alx2 (2002-04-23 12:05:00) [6]Да еще: надо подключить модуль math, чтобы tan считался.
Alx2 (2002-04-23 11:51:00) [7]Вот, "на скору руку" накидал. Мусора в строке быть не должно. Переменная k покажет место, где тормознули в случае ошибки.
Function EvalExpr(S: String): Double;
Type
TFuncNames = (fnone, fsin, fcos, ftan, farctan, fsqr, fsqrt);
Var K: Integer;
Function Expr: Double; Forward;
Function ReadFuncName: TFuncNames;
Var tmpStr: String;
Start: Integer;
Begin
Result := fnone;
Start := K;
While S[K] In ["a".."z", "A".."Z", "0".."9"] Do inc(K);
tmpStr := UpperCase(Copy(S, Start, K - Start));
If tmpStr = "SIN" Then Result := fsin Else
If tmpStr = "COS" Then Result := fcos Else
If tmpStr = "TAN" Then Result := ftan Else
If tmpStr = "ARCTAN" Then Result := farctan Else
If tmpStr = "SQR" Then Result := fsqr Else
If tmpStr = "SQRT" Then Result := fsqrt;
End;
Function ATOM: Double;
Var
tmp : Double;
tmpStr: String;
Code : Integer;
Begin
Result := 0;
If S[K] = "(" Then
Begin
inc(K);
Result := Expr;
inc(K);
End
Else
Begin
tmpStr := Copy(S, K, Length(S));
Val(tmpStr, tmp, Code);
If Code > 1 Then
Begin
K := K + Code - 1;
SetLength(tmpStr, Code - 1);
Val(tmpStr, tmp, Code);
If Code <> 0 Then exit;
Result := tmp;
End
Else
Begin
Case ReadFuncName Of
fsin: Result := sin(ATOM);
fcos: Result := cos(ATOM);
ftan: Result := tan(ATOM);
farctan: Result := arctan(ATOM);
fsqr: Result := sqr(ATOM);
fsqrt: Result := sqrt(ATOM);
End;
End;
End;
End;
Function Term: Double;
Var Ch: Char;
Begin
Result := ATOM;
Ch := S[K];
While Ch In ["*", "/"] Do
Begin
inc(K);
Case Ch Of
"*": Result := Result * ATOM;
"/": Result := Result / ATOM;
End;
Ch := S[K];
End;
End;
Function Expr: Double;
Var Ch: Char;
Begin
Result := Term;
Ch := S[K];
While Ch In ["+", "-"] Do
Begin
inc(K);
Case Ch Of
"+": Result := Result + Term;
"-": Result := Result - Term;
End;
Ch := S[K];
End;
End;
Begin
K := 1;
S := S + " ";
Result := Expr;
End;
// Пример использования:
Var S: String;
Begin
S := Edit2.Text;
Edit3.Text := FloatToStr(EvalExpr(S));
End;
Будут вопросы - задавай по мылу.
VictorT (2002-04-23 11:21:00) [8]
> IPisk © (23.04.02 10:47)
Вспомнил, в чём именно была проблема. Там вначале из выражения убирались все пробелы, а уже потом анализировалось выражение, и получалось, что заканывали числа с пробелами между цифрами, функции с пробелами и т.д. Сейчас специально глянул на исходник в версии 2.75, там вроде таких приколов не наблюдается.
Termik (2002-04-23 11:06:00) [9]Большое спасибо всем вам за то, что приняли участие в моей проблеме ! :))
IPisk (2002-04-23 10:47:00) [10]> VictorT ©
Ошибок с RX не наблюдалось (версия 2.75)
VictorT (2002-04-23 10:44:00) [11]
> IPisk © (23.04.02 10:40)
Когда-то смотрел этот парсер, нашёл там кое-какие глюки (вроде связанные с пробелами), хотя не помню какая версия RX, может уже и исправили.
VictorT (2002-04-23 10:40:00) [12]
> Termik © (23.04.02 10:11)
Залил.
IPisk (2002-04-23 10:40:00) [13]В библиотеке RX есть готовый парсер
function GetFormulaValue(const Formula: string): Extended;
Termik (2002-04-23 10:11:00) [14]2VictorT Мыло видишь ?
Заливай !
kronprince (2002-04-23 10:08:00) [15]Никак.:(
Для выполнения выражения описаного в строковой переменной нужно это выражение перевести в постфикспрефиксную форму, для чего существуют специальные библиотеки - можно хоть sin(),cos() вычислять.
Sorry, но у меня исходников не сохранилось.:(
VictorT (2002-04-23 10:06:00) [16]Вообще-то для этого надо писать так называемый парсер мат. выражений. У меня есть написанный мной парсер, правда на Билдере, который понимает 4 арифметических действия и булеву логику (функций нет), также в выражении могут быть переменные. Если хочешь, залью.
Alx2 (2002-04-23 10:05:00) [17]Сначала обрабатываем скобки, функции, потом высокоприоритетные операции ("*","/"), потом остальные.
короче говоря, пишется стандартный parser со стандартной разбивкой на лексемы.
| |
