Умножение и деление - Общие вопросы Delphi

Shouldercannon · 26.12.2017, 20:41

Раньше не доводилось производить какие-то математические вычисления и теперь столкнулся с данной задачей.
Нужно сделать следующее: A = (B * C * D) / (E * F)
Реализация

Код:


EA.Text := FloatToStr((StrToInt(EB.Text) * StrToInt(EC.Text) * StrToInt(ED.Text)) / (StrToInt(EE.Text) * StrToInt(EF.Text)));

По идее правильно, но мучают сомнения.

Аватар · 26.12.2017, 20:46

Ну правильно мучают. Где-то не сможет в integer преобразовать - получишь исключение. Или на 0 разделишь. Прикольные имена эдитов. Ваще-то еще один из возможных источников ошибок ))

Shouldercannon · 26.12.2017, 20:56

Так уже бомбит Integer

из-за огромного числа. Нужен Int64. Имена Edit-ов так для примера, чтобы совпадение по буквам формулы было.

Аватар · 26.12.2017, 21:03

StrToInt64

Shouldercannon · 26.12.2017, 21:31

Запоролся на числах с запятой, во что их помещать для вычислений?
A = (458 * 17 * 1000) / (167,587 * 12)

Аватар · 26.12.2017, 21:49

Не в Integer же. Там куча типов с плавающей точкой и StrToFloat. Если decimalseparator запятая, то съест

26.12.2017, 20:41	#1
Shouldercannon Профессионал Регистрация: 26.01.2008 Адрес: Пенза Сообщений: 1,757 Репутация: 226 icq: 473732523	Умножение и деление Раньше не доводилось производить какие-то математические вычисления и теперь столкнулся с данной задачей. Нужно сделать следующее: A = (B * C * D) / (E * F) Реализация Код: `EA.Text := FloatToStr((StrToInt(EB.Text) * StrToInt(EC.Text) * StrToInt(ED.Text)) / (StrToInt(EE.Text) * StrToInt(EF.Text)));` По идее правильно, но мучают сомнения.

26.12.2017, 20:46	#2
Аватар Модератор Заслуженный модератор Регистрация: 17.11.2010 Адрес: Северодонецк.ua Сообщений: 17,683 Репутация: 6211	Ну правильно мучают. Где-то не сможет в integer преобразовать - получишь исключение. Или на 0 разделишь. Прикольные имена эдитов. Ваще-то еще один из возможных источников ошибок )) __________________ Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию

26.12.2017, 21:03	#4
Аватар Модератор Заслуженный модератор Регистрация: 17.11.2010 Адрес: Северодонецк.ua Сообщений: 17,683 Репутация: 6211	StrToInt64 __________________ Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию

26.12.2017, 21:49	#6
Аватар Модератор Заслуженный модератор Регистрация: 17.11.2010 Адрес: Северодонецк.ua Сообщений: 17,683 Репутация: 6211	Не в Integer же. Там куча типов с плавающей точкой и StrToFloat. Если decimalseparator запятая, то съест __________________ Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию Последний раз редактировалось Аватар; 26.12.2017 в 22:07.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Деление, умножение, суммирование	OldStile	Помощь студентам	0	22.03.2015 01:05
Умножение и деление	danil123	Общие вопросы Delphi	7	03.02.2013 13:41
Переменные и массивы; умножение и деление	kjrjgsnjd	Assembler	0	22.10.2012 21:32
ВЫчитание, умножение и деление массивов на С++	Flood	Помощь студентам	2	15.05.2010 16:54
Умножение и деление	StiTch_Parazit	Помощь студентам	10	20.05.2008 14:32

26.12.2017, 20:56	#3
Shouldercannon Профессионал Регистрация: 26.01.2008 Адрес: Пенза Сообщений: 1,757 Репутация: 226 icq: 473732523	Так уже бомбит Integer из-за огромного числа. Нужен Int64. Имена Edit-ов так для примера, чтобы совпадение по буквам формулы было.

26.12.2017, 21:31	#5
Shouldercannon Профессионал Регистрация: 26.01.2008 Адрес: Пенза Сообщений: 1,757 Репутация: 226 icq: 473732523	Запоролся на числах с запятой, во что их помещать для вычислений? A = (458 * 17 * 1000) / (167,587 * 12)

Опции темы
Версия для печати Отправить по электронной почте