[megaprogrammer]

Всем привет. Хочу сделать калькулятор, который позволит решать строковым методом (т.е. записал полностью пример и тебе решили). Есть два способа: с кнопками, при каждом нажатии цифры она переносится в текстовый файл, когда нажимаешь знак он заносится в другой текстовый файл, после с помощью команды Read (a,b,c...) все объединяется через Write (a+b+c...) и результат записывается, допустим в Label. И оба файла уничтожаются. Второй способ: работа со строками. Допустим, 2+2, знак + заменяется пробелом и выносится также в текстовый файл то же самое с цифрами (2 2). Подскажите плиз какой способ лучше и помогите реализовать хотя бы 2+2.

[megaprogrammer]

Кто может знает получше идеи. Только попрошу пожалуйста не предлагать польские записи.

[icsander]

Посмотри как это реализовано в модуле rxParsing.pas из RxLib.

[Bargest]

По поводу "write(a+b+c)" - имена переменных после компиляции не существуют, и эта запись будет бессмысленной, нужно сначала распихать нужные числа по переменным. К тому же скобки и другие знаки (кроме +) такой подход не переварит. Так что если планируется использование только +, то достаточно идти по строке и все числа сразу прибавлять к первому.
Если нужен полноценный калькулятор, то либо польская нотация, либо другие подобные методы. Кстати второй предложенный алгоритм уже близок к польской нотации, только без поддержки приоритетов (поэтому опять же не работающий со скобками и часто неверно переваривающий * и /, например в выражении 1+2*3) и с жестоким обращением с HDD.

[megaprogrammer]

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

Посмотри как это реализовано в модуле rxParsing.pas из RxLib.

Я начинающий, что это вообще.

[Pyro]

http://www.koders.com/delphi/fidA6A4...A9BE9818E.aspx

калькулятор для обучения делается, или для использования?

[M.A.D.M.A.N.]

Ужас какой, такой индусской фантазии ниогда не видел. Читаем, что такое польская обратная нотация.
Чем тебе польская запись не нравится? С помощью неё кулькулятор делается как два пальца об сфальт.

[NumLock]

велосипед давно изобретен:

Код:

var
  ScriptControl: IScriptControl;
begin
  ScriptControl:=CreateComObject(CLASS_ScriptControl) as IScriptControl;
  ScriptControl.Language:='javascript';
  Memo1.Lines.Add(ScriptControl.Eval('(2*5+90+Math.abs(-900))/10'));
end;

[megaprogrammer]

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

http://www.koders.com/delphi/fidA6A4...A9BE9818E.aspx

калькулятор для обучения делается, или для использования?

Для саморазвития. Вообще писал на научную конференцию школьников. Как этим пользоваться? Просвятите нуба пож.

[megaprogrammer]

Сообщение от M.A.D.M.A.N.

Ужас какой, такой индусской фантазии ниогда не видел. Читаем, что такое польская обратная нотация.
Чем тебе польская запись не нравится? С помощью неё кулькулятор делается как два пальца об сфальт.

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

[megaprogrammer]

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

велосипед давно изобретен:

Код:

var
  ScriptControl: IScriptControl;
begin
  ScriptControl:=CreateComObject(CLASS_ScriptControl) as IScriptControl;
  ScriptControl.Language:='javascript';
  Memo1.Lines.Add(ScriptControl.Eval('(2*5+90+Math.abs(-900))/10'));
end;

Что это такое?

[M.A.D.M.A.N.]

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

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

Значит плохо работал. Просто когда берешь ветку, распарсиваешь значение в скобках, ставишь признак "Це_Синус" и все.
Здесь, на этом сайте, в разделе исходники, как минимум 4 таких калькулятора есть (с синусами, секансами, экспонентами), один даже паскаль подобные макросы интерпретирует.

[Bargest]

Польская нотация - это просто когда сначала операнды, потом знак. Что мешает сделать так же, сначала операнд, потом знак синуса?
Я делал построитель графиков через польскую нотацию. Никаких проблем с функциями от 1 и 2 аргументов не возникало. От 3х и более не пробовал.