|
|
#1
|
|||
|
|||
calc
здравствуйте, кодеры!
я бы хотел узнать, у меня задание сделать калькулятор, НО необходимо сделать в нём СКОБКИ, не могли бы вы как то помочь, мне с этим. Заранее благодарю! |
#2
|
|||
|
|||
Что именно подразумевается под словом СКОБКИ?
|
#3
|
|||
|
|||
Цитата:
Как вариант парсить выражение и находить парные скобки. Вычислять их значение, складывать его куда-нибудь. Потом просто вычислять слева-направо, и дойдя до скобки брать ранее посчитанное и использовать |
#4
|
||||
|
||||
ИМХО самое простое решение - т.н. "Обратная польская нотация". Реализация есть в интернете.
jmp $ ; Happy End! The Cake Is A Lie. |
#5
|
||||
|
||||
легко считает даже функции "(Math.sqrt(9)+47)*100":
Код:
uses ComObj, type TForm1 = class(TForm) Button1: TButton; Edit: TEdit; procedure Button1Click(Sender: TObject); procedure TForm1.Button1Click(Sender: TObject); var WebBrowser: OleVariant; begin WebBrowser:=CreateOleObject('InternetExplorer.Application'); WebBrowser.Navigate('about:blank'); WebBrowser.Document.parentWindow.execScript('var r='+Edit.Text+'; document.write(r);', 'javascript'); ShowMessage(WebBrowser.Document.body.innerText); WebBrowser.Quit; end; Пишу программы за еду. __________________ |
#6
|
|||
|
|||
Благодарю всех за помощь!
|
#7
|
|||
|
|||
Цитата:
а зачем мне при этом веб браузер?) |
#8
|
||||
|
||||
Затем, что разбирает ваше выражение и считает именно он.
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#9
|
||||
|
||||
Цитата:
добавлено позже вот здесь можно посмотреть на все функции: http://www.delphisources.ru/forum/sh...3&postcount=23 Пишу программы за еду. __________________ Последний раз редактировалось NumLock, 05.12.2011 в 15:43. |