Калькулятор

[odd]

OP1 := FormAddString(''+Summa);

А вот поля ввода это не кнопки Command. Нужно ещё добавить кнопку типа "Посчитать".

[anton_obuhov]

begin
      showForm;      
      textField_id := formAddTextField('Введите число', '', 20, TF_NUMERIC);
      Grad := formAddTextField('Введите градусы','',20, TF_NUMERIC);
      Min := formAddTextField('Введите минуты','',20 , TF_Numeric);
      Sec := formAddTextField('Введите секунды','',20, TF_Numeric);
      Addcommand (cmdNext);
      repeat until GetClickedCommand = cmdNext;
      ShowCanvas;
      Dmin:=StringtoInteger(FormGetText(Min));
      Min:=Dmin/60;
      Dsec:=StringtoInteger(FormGetText(Sec));
      Sec:=DSec/60;
      Sgrad:=StringTointeger(FormGetTExt(Grad));
      Grad:=Sgrad+((Dmin/100)+(Dsec/10000)); 


Вот кусочек кода надо вывести Grad помогите пожалуйста (я не стал выкладывать полностью исходник программы )

[Phantom]

Потом пробегаешься по массиву и ищешь и вычисляешь все деления, потом сложения и вычитания. В итоге у тебя и получится 6.

Деление нужно выполнять до умножения =)

3*10/5*2 --> 30/10 --> 3
Но ведь 3*10/5*2 не равно 3

3*10/5*2 --> 3*2*2 --> 12
Вот так верно.

[Romanzes]

С какой это радости деление до умножения? Деление и умножение имеют одинаковый приоритет.
PS: если кто не знает, вот порядок вычислений в выражениях:
1. Степени и корни.
2. Умножение и деление.
3. Сложение и вычитание.
PPS: 3*10/5*2 = 30/5*2 = 6*2 = 12

[Phantom]

Многоуважаемый Romanzes, я однажды в школе допустил такую ошибку и теперь запомнил на всю жизнь, что деление выполняется до умножения. Просто в описании Odd'а, если я всё правильно понял, сначала нужно выполнять ВСЕ умножения, затем ВСЕ деления и так далее. Я привёл выше пример, что если сначала выполнить умножения, то будет ошибка. Деление - это же дробь. На числитель можно умножать, а на знаменатель нельзя.

[Romanzes]

Уважаемый Phantom_wc, Деление - это не всегда дробь. Когда пишут дробь в виде одной строчки, числитель и знаменатель заключают в скобки (если в них есть знаки +,-,* и /).