Предыдущая тема :: Следующая тема |
Автор |
Сообщение |
Hellene
Зарегистрирован: 26.03.2007 Сообщения: 1
|
Добавлено: Пн Мар 26 2007 14:44 Заголовок сообщения: как расчитать коэффициент в Дельфи? |
|
|
Всем здравствуйте. У меня большая проблема. Есть три поля: Edit1-вес, Edit2-рост, Edit3-коэффициент, который расчитывается по формуле вес/sqr(рост). Поле Edit2 содержит десятичные числа. Пользователь сам вводит в поле вес и рост значения, а поле Коэффициент расчитывает. Помогите пожалуйста написать код к программе в Дельфи. |
|
Вернуться к началу |
|
![](templates/subSilver/images/spacer.gif) |
grf
Зарегистрирован: 05.04.2005 Сообщения: 1242 Откуда: Москва
|
Добавлено: Вт Мар 27 2007 14:44 Заголовок сообщения: |
|
|
Используй функцию StrToInt(s string) integer
и IntToStr(i integer) string
Например так
Код: |
var
rost,ves,parametr:integer;
Begin
rost:=StrToInt(Form1.Edit1.text);
ves:=StrToInt(Form1.Edit2.text);
parametr=rost/sqrt(ves);
Form1.edit3.text=IntToStr(parametr);
End;
|
Если числа не целые, а вещественные, т FloatToStr
![Wink](images/smiles/icon_wink.gif) _________________ Errare humanum est |
|
Вернуться к началу |
|
![](templates/subSilver/images/spacer.gif) |
|