Скачать: CL | DM;

Уменожение и деление   Найти похожие ветки 

← →
StiTch ©   (2008-05-20 14:02) [0]

Добрый день.Помогите пожалуста.
При нажатии на кнопку надо умножить эдит1 на эдит2 на эдит3 и разделить на эдит4 и результат вывести в эдит5...заренее благодарен

---

← →
Palladin ©   (2008-05-20 14:06) [1]

получится эдит1.5

---

← →
Reindeer Moss Eater ©   (2008-05-20 14:06) [2]

Edit5.text := IntToStr(Integer(Edit1) * Integer(Edit2) * Integer(Edit3) / Integer(Edit4));

---

← →
{RASkov} ©   (2008-05-20 14:07) [3]

Эдиты не могут учавствовать в мат. операциях...)

---

← →
Gydvin ©   (2008-05-20 14:07) [4]

S:=Inttostr(Strtoint(e1)*.../...)

---

← →
Palladin ©   (2008-05-20 14:07) [5]

> Reindeer Moss Eater ©   (20.05.08 14:06) [2]

Edit5.text := IntToStr(Integer(Edit1) * Integer(Edit2) * Round(Integer(Edit3) / Integer(Edit4)));

:)

---

← →
{RASkov} ©   (2008-05-20 14:07) [6]

> [2] Reindeer Moss Eater ©   (20.05.08 14:06)

:) Ну если только так ) Только результат будет не тот, что ожидает автор...

---

← →
StiTch ©   (2008-05-20 14:09) [7]

а как сделать правильно???
т.е. Есть формула a+b+c/d...вот надо ещё посчитать при нажатии на кнопку...и вывести ответ

---

← →
Gydvin ©   (2008-05-20 14:10) [8]

> StiTch ©   (20.05.08 14:09) [7]

смотри [5]

---

← →
{RASkov} ©   (2008-05-20 14:11) [9]

> [7] StiTch ©   (20.05.08 14:09)
> а как сделать правильно???

Даже если эту ветку внимательно прочитать и немного подумать, то можно выделить в ней ответ на твой вопрос...

---

← →
StiTch ©   (2008-05-20 14:11) [10]

> Edit5.text := IntToStr(Integer(Edit1) * Integer(Edit2) *
> Round(Integer(Edit3) / Integer(Edit4)));


посчитал,но не правильно

---

← →
Reindeer Moss Eater ©   (2008-05-20 14:12) [11]

посчитал,но не правильно

Вот скотина.

---

← →
StiTch ©   (2008-05-20 14:13) [12]

edit5.text := floattostr( strtoint(edit1.text)*strtoint(edit2.text)*strtoint (edit3.text)/strtoint(edit4.text) )

вот как правильно.но спасибо за участие!!!!вы лучшие!!!

---

← →
Palladin ©   (2008-05-20 14:14) [13]

> посчитал,но не правильно

не может быть! :) хотя...  я не правильно RME поправил, это не та формула получается, вот так попробуй

Edit5.text := FloatToStr(Integer(Edit1) * Integer(Edit2) * Integer(Edit3) / Integer(Edit4));

---

← →
Юрий Зотов ©   (2008-05-20 14:16) [14]

> StiTch ©   (20.05.08 14:09) [7]

Edit имеет свойство Text. Оно содержит строку. Строки нельзя умножать и делить. Умножать и делить можно числа. Значит, надо перевести строки в числа. Это делает StrToInt или StrToFloat. В итоге получим число. Число нельзя отобразить в Edit, там можно отобразить строку. Значит, надо перевести число в строку. Это делают IntToStr или FloatToStr.

Сказано все, что нужно. И еще у Вас есть справка. Этого достаточно, чтобы решить задачу самостоятельно. Иначе надо бросать программирование.

---

← →
StiTch ©   (2008-05-20 14:18) [15]

Большое спасибо))))

---

← →
Anatoly Podgoretsky ©   (2008-05-20 15:09) [16]

> StiTch  (20.05.2008 14:09:07)  [7]

Интересно, весьма интересно, это наверно новое слово в математике, замена сложения умножением.

---

← →
имя   (2008-05-20 21:42) [17]

Удалено модератором

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.009 c