Расчет формул

← →
Votmax (2011-03-24 21:42) [0]

Добрый день, необходимо рассчитывать формулы, вводимые пользователем типа y(x). Например sin(x)+cos(x)+x^2..

Подскажите простой компонент!!!
Спасибо!

← →
Игорь Шевченко © (2011-03-24 21:45) [1]

http://www.google.ru/search?q=%D0%BF%D0%B0%D1%80%D1%81%D0%B5%D1%80+%D0%BC%D0%B0%D1%82%D0%B5%D0%BC%D0%B0%D1%82%D0%B8%D1%87%D0%B5%D1%81%D0%BA%D0%B8%D1%85+%D0%B2%D1%8B%D1%80%D0%B0%D0%B6%D0%B5%D0%BD%D0%B8%D0%B9&hl=ru&source=hp&lr=&aq=1&aqi=g2&aql=&oq=%D0%BF%D0%B0%D1%80%D1%81%D0%B5%D1%80+%D0%BC%D0%B0%D1%82%D0%B5

← →
Amoeba_ (2011-03-25 09:31) [2]

Парсер комбинированных выражений:
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=517

← →
Сергей М. © (2011-03-25 10:16) [3]

> Подскажите простой компонент

Microsoft Script Control

← →
Сергей М. © (2011-03-25 10:27) [4]

> Votmax
Готовый куркулятор - куда уж проще)
var sc: Variant; begin sc := CreateOleObject("MSScriptControl.ScriptControl"); sc.Language := "VBScript"; sc.AddCode("x=3"); ShowMessage(sc.Eval("sin(x)+cos(x)+x^2")); end;

← →
Luarvic (2011-03-26 21:08) [5]

> var
> sc: Variant;
> begin
> sc := CreateOleObject("MSScriptControl.ScriptControl");
>
> sc.Language := "VBScript";
> sc.AddCode("x=3");
> ShowMessage(sc.Eval("sin(x)+cos(x)+x^2"));
> end;

Этот код поразил меня до глубины души... Так просто, без установки пакетов, компонентов!
А где можно почитать о возможностях "MSScriptControl.ScriptControl"?

← →
Сергей М. © (2011-03-26 22:59) [6]

http://www.podgoretsky.com/Redir.aspx?id=198&DownloadFile=~/ftp/Docs/Delphi/Tenser/7/ScriptControl.doc

← →
Palladin © (2011-03-27 04:38) [7]

где? у тебя весь интернет в компутере! или проблемы в гугле строчку "MSScriptControl.ScriptControl delphi" написать?

← →
oldman © (2011-03-28 18:35) [8]

Удалено модератором

← →
fox1k (2012-12-22 20:53) [9]

Подскажите а реально запихнуть нечто подобное в ScriptControl:
for (i=1;i>4;i++){
c=i;}
if (b>c)
{
a=b+b+b+b+b+b+c+c+c+c+c+c;
}
return a;
}
что бы работало нормально?
p.s. пишу дипломную(интерпритатор opengl es2.0) так как языки похожи хочу обмануть как говорится систему
заранее спасибо!

← →
Anatoly Podgoretsky © (2012-12-22 20:59) [10]

> Luarvic (26.03.2011 21:08:05) [5]

Как ни странно, но сайте мс

> fox1k (22.12.12 20:53) [9]

Вполне реально.

← →
fox1k (2012-12-23 03:13) [12]

ну подскажите как сделать что бы он все обрабатывал нормально?
а то на цикл он чего то ваще забивает.
и как впринципи загнать в него мини прогу?

← →
QAZ9 (2012-12-23 14:02) [13]

> fox1k (22.12.12 20:53) [9]

ты думаешь\уверен что препод настолько тупой?

> как сделать что бы он все обрабатывал нормально?

sc.Language := "JScript";
sc.AddCode("for (i=1;i<100;i++)");
ShowMessage(sc.Eval("i"));

Расчет формул Найти похожие ветки