Форум программистов, компьютерный форум, киберфорум
Delphi
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.75/32: Рейтинг темы: голосов - 32, средняя оценка - 4.75
0 / 0 / 0
Регистрация: 14.03.2012
Сообщений: 13

Как сделать округление до сотых?

28.06.2012, 17:21. Показов 5952. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Delphi
1
2
3
4
5
6
7
8
procedure TForm1.Button4Click(Sender: TObject);
var x,y,z: integer;
begin
x:=StrToInt(Edit1.text);
y:=StrToInt(Edit2.text);
z:=Round(x/y);
Memo1.Lines.Add(''+IntToStr(z));
end;
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
28.06.2012, 17:21
Ответы с готовыми решениями:

Округление до сотых
Помогите пожалуйста округлить "С" до сотых begin A := strtoint(Edit1.Text); C :=(A-32)*(5/9); Edit2.Text :=...

Округление числа до сотых
Здравствуйте! Помогите пожалуйста с округлением числа. Например у меня есть поле где мы вводим число(Десятичную дробь). Как мне его...

Вывод в рандоме отрицательных чисел и округление до сотых
есть программа, в ней нужно изменить вывод рандомных чисел (сейчас выводятся только положительные, а нужно чтобы были еще и отрицательные),...

3
Почетный модератор
 Аватар для Puporev
64315 / 47611 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
28.06.2012, 17:28
А при чем здесь сотые, если числа вообще целые?

Добавлено через 1 минуту
Delphi
1
2
3
4
5
6
7
8
9
procedure TForm1.Button4Click(Sender: TObject);
var x,y: integer;
     z:real;
begin
x:=StrToInt(Edit1.text);
y:=StrToInt(Edit2.text);
z:=Round(x/y);
Memo1.Lines.Add(''+FloatToStrF(z,ffFixed,6,2));
end;
1
0 / 0 / 0
Регистрация: 14.03.2012
Сообщений: 13
28.06.2012, 17:34  [ТС]
а как сделать что бы были дробные?
0
Почетный модератор
 Аватар для Puporev
64315 / 47611 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
28.06.2012, 17:48
Ну так я тебе написал как нужно, ты смотри хоть.

Добавлено через 1 минуту
Если все вещественные, то так.
Pascal
1
2
3
4
5
6
7
8
procedure TForm1.Button4Click(Sender: TObject);
var x,y, z:real;
begin
x:=StrToFloat(Edit1.text);
y:=StrToFlot(Edit2.text);
z:=x/y;
Memo1.Lines.Add(''+FloatToStrF(z,ffFixed,6,2));
end;
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
28.06.2012, 17:48
Помогаю со студенческими работами здесь

Округление до сотых
например есть запрос SELECT dParts * pPercent * dMoney / 100 ... dParts int default 0 dMoney decimal(10,2) default 0 pPercent...

Округление до сотых.
Два числа делятся друг на друга и надо вывести результат в Dynamic Text . Но в место этого он пишет NaN. Поделил на калькуляторе - много...

Округление до сотых
Всем привет , не могу понять как округлить до сотых, пробовала round но в итоге ничего не получается. Ниже скрин числа которое нужно...

Округление до сотых
Добрый день. Подскажите, что делаю не так. Есть переменные тип double: summa, price, addAmount. Значения: price 338,9 addAmount 1,15....

Округление до сотых
Помогите правильно округлить до сотых. Изначально выводит значение с четырьмя знаками после запятой. В интернете вычитал что надо умножить...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
Как я обхитрил таблицу Word
Alexander-7 21.03.2026
Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .
Krabik - рыболовный бот для WoW 3.3.5a
AmbA 21.03.2026
без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .
Программный отбор значений справочника
Maks 21.03.2026
Установка программного отбора значений справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит предопределенное значение перечислений. Процедура. . .
Переходник USB-CAN-GPIO
Eddy_Em 20.03.2026
Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .
Оттенки серого
Argus19 18.03.2026
Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .
SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++
8Observer8 17.03.2026
Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip
Символические и жёсткие ссылки в Linux.
algri14 15.03.2026
Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора
ФедосеевПавел 14.03.2026
Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru