Перевод строки в функцию

[кетчуп]

Задание: решение уравнений различными методами.
Необходимо: команда которая преобразует строку(вводимую с клавиатуры) в функцию.
Я слышал, что такая есть.

Помогите, пожалуйста, иначе отчисление!

[FaTaL]

Сообщение от кетчуп

Задание: решение уравнений различными методами.
Необходимо: команда которая преобразует строку(вводимую с клавиатуры) в функцию.
Я слышал, что такая есть.

Помогите, пожалуйста, иначе отчисление!

В какую функцию то?

[D-mon]

http://www.noil.pri.ee/?mod=art/art&id=123
http://www.delphikingdom.com/asp/vie...catalogid=1019
- посмотри тут. Вроде бы то что те надо.

[кетчуп]

Сообщение от FaTaL

В какую функцию то?

Которая переводит строку в уровнение.

[кетчуп]

Сообщение от D-mon

- посмотри тут. Вроде бы то что те надо.

Спасибо вроде то, что надо!

[Sibedir]

Делал я как-то дипломчик одному хорошему человеку. Ну и перестарался. Задача была такая. Нужна была программа по расчету болтовых соединений. Выбераешь тип соединения, вводишь исходные данные, а она тебе выдает несущую способность соединения. Все бы ничего, да вот типов болтовых соединений бесконечное множество. Можно было просто вбить несколько из них и по case выбирать вариант расчета. Но я решил пойти дальше. Написал математический язык типа Lisp'а . И каждому соединению поставил в соответствие файл с формулами расчета. Нужно тебе новое соединение - написал файл, добавил в программку и все ништяк.
Язык получился хороший (я так думаю на твердую четверку). Ну там математические операции типа +, -, *, /, min, max и т. д. Логические: >, <, =, >=, <=, if, case. Выборка из DBF таблицы: select. И многе другое.
Правда, за 2 года так им и не воспользовался. Эх, добрая я душа , выкладываю пример программы использующей этот язык с исходниками. Че ему пылиться. Может кому и сгодится.
SibedirMath.zip

Только не взыщите, коментариев почти нет и все переменные глобальные . Чтобы разобраться с синтаксисом посмотрите немногочисленные коментарии в функции DoFunc модуля Sibedir_Raschet.

[bill]

Модуль math вам в помощь.
А вообще здесь можно использовать рекурсию. Думаю, она должна получиться примерно такой(чего нет доработаете):

type tinfo=record
f:string;
k:byte; // индикатор- сначала передается 0, потом увел-ся.
a:array[1..6] of string;// -набор функций- x^2,sin ит.д.
n:extended;
f:boolean;// строка- функция,число-передаваемое значение, булева переменная- индиктор ошибок, обнуления строки и пр.
end;
...
function getresult(f:info):info;
var b:array[1..6] of byte; g:byte;i:integer;w:array[1..2] of byte;z:string;
begin
if f.s<>'' then begin
try
z:='';
f.k:=f.k+1;// может использоваться для того чтобы посмотреть на какой стадии произошла ошибка
for i:=1 to 6 do // конечно кол-во функций больше
b[i]:=pos(a[i],f.f);
for i:=max(b) to length(s) do;// функция max возвращает макс. элемент массива- это надо писать самому
if f.s[i]='(' then w[1]:=i else if f.s[i]=')' then w[2]:=i;
for i:=(w[1]+1) to (w[2]-1) do
z:=z+f.s[i];
n:=strtoint(z);
// здесь идет выбор функции которая была  ближе к концу-т.е. самая первая внутренняя функция- if f.a[max(b)]= sin then n:=sin(n);
 //ну а далее просто сокращаешь строку, вырезая функцию - было sin(ln(x))- станет sin.
getresult(f);// рекурсивный вызов. 
except
result.f:=true;
end;
end;
end;

if getresult(f).f then showmessage('Произошла ошибка, проверьте правильность формулы');