Автор Актушад Нукац задал вопрос в разделе Другие языки и технологии
Не работает деление в Delphi и получил лучший ответ
Ответ от Антипов Дмитрий[гуру]
div - целочисленное деление. Чтобы делить с учетом дробной части, вместо StrToInt надо использовать StrToFloat, тогда можно будет обычным делением / пользоваться. На всякий случай не забывай округлять до какого-нибудь конечного числа знаков после запятой, чтобы случайно глюка не возникло. Ведь, если 2 разделить на 3, то получим бесконечную дробь.. .
if ListBox1.ItemIndex = 3 then begin
Memo1.Lines.Strings[0] := 'Результат: ' + FloatToStr(StrToFloat(radiogroup1.Items.Strings[radiogroup1.ItemIndex]) / StrToFloat(radiogroup2.Items.Strings[radiogroup2.ItemIndex]));
Ответ от Бугаев Сергей Дмитриевич[гуру]
Почему деление то не работает я не пойму? Как ты определила, что оно не работает? Выдаёт ошибку или считает не правильно? Пробовала div заменить на / ?
Почему деление то не работает я не пойму? Как ты определила, что оно не работает? Выдаёт ошибку или считает не правильно? Пробовала div заменить на / ?
Ответ от Sm[гуру]
Не выдумывай небылиц - деление в Делфи расчудесно работает, хоть с остатком хоть без остатка
Не выдумывай небылиц - деление в Делфи расчудесно работает, хоть с остатком хоть без остатка
Ответ от Smex[гуру]
Все работает и работает правильно. Читайте теорию (:
Все работает и работает правильно. Читайте теорию (:
Ответ от Mb78[гуру]
Попробуйте вместо div StrToInt написать *(1 / StrToInt)
Попробуйте вместо div StrToInt написать *(1 / StrToInt)
Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с похожими вопросами и ответами на Ваш вопрос: Не работает деление в Delphi