[ALexandr555]

Решил спросить как можно соорудить калькулятор обрабатывающий задачу 3434+56-676*45 такого вида,
тобишь сразу строку даешь и подсчет, все исходники что видел типичные простые где вводишь по числу, а не ряд действий строкой.
Думал насчет просмотра сначала на наличие * и /. Вырезать числа рядом с этими знаками и выполнять.
Таким образом начиная от более приоритетных действий, только вопрос как можно вырезать числа рядом?

[Pilot_Red]

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

Решил спросить как можно соорудить калькулятор обрабатывающий задачу 3434+56-676*45 такого вида,
тобишь сразу строку даешь и подсчет, все исходники что видел типичные простые где вводишь по числу, а не ряд действий строкой.
Думал насчет просмотра сначала на наличие * и /. Вырезать числа рядом с этими знаками и выполнять.
Таким образом начиная от более приоритетных действий, только вопрос как можно вырезать числа рядом?

Чтобы это было в хорошем тоне, советую познакомиться с регулярными выражениями, синтаксическими анализаторами, с обратной польской записью и т.д.

[ALexandr555]

рег выражениями пользовался, но они не думаю что тут помогут

[Pilot_Red]

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

рег выражениями пользовался, но они не думаю что тут помогут

как понять пользовался рег. выражениями????

[v1s2222]

Поищи слово "МАТЕМАТИКА" на странице. Или даже тут.

[NumLock]

Код:

unit Unit1;

interface

uses
  MSHTML,
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  StdCtrls, ExtCtrls, OleCtrls, SHDocVw;

type
  TFormMain = class(TForm)
    WebBrowser: TWebBrowser;
    Panel: TPanel;
    Edit: TEdit;
    Button: TButton;
    Memo: TMemo;
    procedure ButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormMain: TFormMain;

implementation

{$R *.dfm}

procedure TFormMain.ButtonClick(Sender: TObject);
begin
  WebBrowser.Navigate('about:blank');
  while WebBrowser.ReadyState<READYSTATE_INTERACTIVE do
    Application.ProcessMessages;
  (WebBrowser.Document as IHTMLDocument2).body.innerText:='';
  (WebBrowser.Document as IHTMLDocument2).parentWindow.execScript('var r=3434+56-676*45; document.write(r);', 'javascript');
  Memo.Lines.Insert(0, (WebBrowser.Document as IHTMLDocument2).body.innerText);
end;

end.

естественно поддерживаются все математические функции.

[ALexandr555]

NumLock, интересное решение не подозревал о таком, спасибо сгодится, интересна лишь рациональность такого использования (через TWebBrowser)

[ALexandr555]

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

[code]unit Unit1;
естественно поддерживаются все математические функции.

Похоже не все к сожалению, только + - * / и ()

[NumLock]

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

Похоже не все к сожалению, только + - * / и ()

ну я не стал бы тогда об этом писать. пример:
Math.sqrt(9)+7 - (корень из 9) + 7

так же см.:

Справочник по JScript : Объекты JScript : Объект Math

Методы объекта

abs
acos
asin
atan
atan2
ceil
cos
exp
floor
log
max
min
pow
random
round
sin
sqrt
tan

[ALexandr555]

хм вон как, пробовал просто без приставки "Math."

[ALexandr555]

интересно почему они не добавили котангенс

[Konrad]

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

интересно почему они не добавили котангенс

ctg(x)=1/tg(x)

[off]
Куда мы катимся?)
[/off]

[ALexandr555]

Konrad, не соглашусь, с тем же успехом можно было бы и тангенс находить sin/cos, лишние действия же ни к чему)

[NumLock]

ALexandr55, данный "калькулятор" предоставляет тебе возможность использовать все конструкции, свойства, операторы, объекты, методы, функции и т.д. JavaScript, а ты про котангенсы...))) да на нем (калькуляторе) целые программы можно писать!

[Страдалецъ]

Да, решение остроумное. Зачет однозначно. Интересно сам догадался или где слямзил идею?