Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 11.09.2019, 21:03   #1
alex0097
Форумчанин
 
Аватар для alex0097
 
Регистрация: 06.07.2010
Сообщений: 123
По умолчанию Деление целых чисел на нецелое число

Всем привет. Подскажите как делить целое число на нецелое число.

Код:
procedure TForm1.Button1Click(Sender: TObject);
var a,b :integer;
c :Extended;
begin
a:=strtoint(edit1.Text);
b:=strtoint(edit2.Text);
c := a /b ;
ShowMessage(FloatToStr(c));
end;
Надо 1 разделить на 2,5 в edit1.Text написано 1, а в edit2.Text написано 2,5
alex0097 вне форума Ответить с цитированием
Старый 11.09.2019, 21:07   #2
Alex11223
Старожил
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 19,500
По умолчанию

Выведите а, b и посмотрите что в них.

int это целое.
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом.
Alex11223 вне форума Ответить с цитированием
Старый 11.09.2019, 21:25   #3
alex0097
Форумчанин
 
Аватар для alex0097
 
Регистрация: 06.07.2010
Сообщений: 123
По умолчанию

Цитата:
Сообщение от Alex11223 Посмотреть сообщение
Выведите а, b и посмотрите что в них.

int это целое.
не понял. можете пример в коде показать?
alex0097 вне форума Ответить с цитированием
Старый 11.09.2019, 21:29   #4
Alex11223
Старожил
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 19,500
По умолчанию

Я просто сказал в какую сторону копать.
Ну а первое предложение вообще подходит к любым ситуациям, когда что-то непонятно.

http://blog.algoprog.ru/how-to-debug-small-programs/
https://habrahabr.ru/post/339038/
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом.
Alex11223 вне форума Ответить с цитированием
Старый 11.09.2019, 21:35   #5
alex0097
Форумчанин
 
Аватар для alex0097
 
Регистрация: 06.07.2010
Сообщений: 123
По умолчанию

я уже сутки мучаюсь. гугл не помог. Видно и вы не поможете.
alex0097 вне форума Ответить с цитированием
Старый 11.09.2019, 21:39   #6
Alex11223
Старожил
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 19,500
По умолчанию

вы за сутки даже не попытались вывести входные данные?

в любой непонятной ситуации надо выводить всё (в консоль, в файл, в отладчик, куда угодно).
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом.
Alex11223 вне форума Ответить с цитированием
Старый 11.09.2019, 21:52   #7
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,536
По умолчанию

Ну раз Гуголь не помог, то и никто не поможет. Кроме старика Жеки.
Код:
var a :integer;
b,c :Extended;
................
b:=StrToFloat(edit2.Text);
Внучок ( или внучка? ), я сильно подозреваю, что о числах с плавающей точкой у тебя понятия чуть меньше, чем у моего кота Мурзика. Yes ?
digitalis вне форума Ответить с цитированием
Старый 11.09.2019, 21:55   #8
alex0097
Форумчанин
 
Аватар для alex0097
 
Регистрация: 06.07.2010
Сообщений: 123
По умолчанию

Жень Спасибо. но я допер чуть по другому
Код:
Label1.Caption:= FloatToStr((StrToFloat(Edit1.Text))/((StrToFLoat(Edit2.Text)));
alex0097 вне форума Ответить с цитированием
Старый 11.09.2019, 22:02   #9
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,536
По умолчанию

Чуть-чуть мимо. У тебя же по условию делимое целым должно быть. Но в данном случае - без разницы.
И сутки мучиться с таких пустяков? - сказали бы в Одессе.
digitalis вне форума Ответить с цитированием
Старый 11.09.2019, 22:17   #10
alex0097
Форумчанин
 
Аватар для alex0097
 
Регистрация: 06.07.2010
Сообщений: 123
По умолчанию

Цитата:
Сообщение от digitalis Посмотреть сообщение
Чуть-чуть мимо. У тебя же по условию делимое целым должно быть. Но в данном случае - без разницы.
И сутки мучиться с таких пустяков? - сказали бы в Одессе.
крайний вопрос. как округлить полученное число до целого
все решил сам

Код:


a:=strtoint(edit7.Text);
b:=StrToFloat(edit2.Text);
c := a /b *100;

ShowMessage(IntToStr(Round(c)));

Последний раз редактировалось alex0097; 11.09.2019 в 22:28.
alex0097 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Деление целых чисел до десятичных значений Capitoska Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 4 30.05.2018 08:40
Деление целых чисел без округления ОленькаП Microsoft Office Excel 0 27.10.2016 14:45
Прошу помощи. C++ Builder. Описать классы, обеспечивающие вычитание, деление и умножение целых чисел Kapelka Помощь студентам 7 24.02.2014 20:59
деление целых чисел в прямом коде diflesh2008 Помощь студентам 8 29.12.2010 21:43
Деление целых чисел(dw) через вычитание Alex1991 Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 7 12.11.2010 14:50