Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Уменожение и деление

StiTch © (2008-05-20 14:02:00)
Добрый день.Помогите пожалуста.
При нажатии на кнопку надо умножить эдит1 на эдит2 на эдит3 и разделить на эдит4 и результат вывести в эдит5...заренее благодарен

(2008-05-20 21:42:00) [1]
Удалено модератором

Anatoly Podgoretsky (2008-05-20 15:09:00) [2]
> StiTch (20.05.2008 14:09:07) [7]

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

StiTch (2008-05-20 14:18:00) [3]
Большое спасибо))))

Юрий Зотов (2008-05-20 14:16:00) [4]
> StiTch © (20.05.08 14:09) [7]

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

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

Palladin (2008-05-20 14:14:00) [5]

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

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

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

StiTch (2008-05-20 14:13:00) [6]
edit5.text := floattostr( strtoint(edit1.text)*strtoint(edit2.text)*strtoint (edit3.text)/strtoint(edit4.text) )

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

Reindeer Moss Eater (2008-05-20 14:12:00) [7]
посчитал,но не правильно

Вот скотина.

{RASkov} (2008-05-20 14:11:00) [8]
> [7] StiTch © (20.05.08 14:09)
> а как сделать правильно???

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

StiTch (2008-05-20 14:11:00) [9]

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

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

Gydvin (2008-05-20 14:10:00) [10]

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

смотри [5]

StiTch (2008-05-20 14:09:00) [11]
а как сделать правильно???
т.е. Есть формула a+b+c/d...вот надо ещё посчитать при нажатии на кнопку...и вывести ответ

{RASkov} (2008-05-20 14:07:00) [12]
> [2] Reindeer Moss Eater © (20.05.08 14:06)

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

Palladin (2008-05-20 14:07:00) [13]

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

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

:)

Gydvin (2008-05-20 14:07:00) [14]
S:=Inttostr(Strtoint(e1)*.../...)

{RASkov} (2008-05-20 14:07:00) [15]
Эдиты не могут учавствовать в мат. операциях...)

Palladin (2008-05-20 14:06:00) [16]
получится эдит1.5

Reindeer Moss Eater (2008-05-20 14:06:00) [17]
Edit5.text := IntToStr(Integer(Edit1) * Integer(Edit2) * Integer(Edit3) / Integer(Edit4));

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »