Извините, ничего не найдено.

Sloth · 29.12.2010, 11:19

как округлить число до 0,1 ?
например: из 15,44444444444444 сделать 15,4

а еще в программе кнопку "далее" приходится нажимать 2 раза

JACUK · 29.12.2010, 12:18

Сам попробовать немогу, но может так DrawText(1,1,IntegerToString(15,44444):1:1) поексперментируйс :1:1, если это не ошибка. Или же Round(15,4444) или Trunc точно незнаю

Reks888 · 29.12.2010, 13:07

1. Переводим в текст
2. Берем всю целую часть + следующую цифру после запятой(например str=Copy(str,1,Instr(str,',')+1); где Copy копирует с первого символа до Instr(str,',')+1 которая вернет где находится запятая.
3. Переводим в число

baton4ik · 29.12.2010, 13:15

Рекс, знаешь, что такое "Округление"? Твоим алгоритмом из 1,29 выйдет 1,2 , а не 1,3 , как должно быть. Так что стоит проверять все цифры дробной части (может быть и 1,4444444445 , которая округляется до 1,5)

12121 · 29.12.2010, 15:20

Умножаем на 10, округляем, делим на 10.
Для округления добавляем к числу 0.5 а потом присваиваем целочисленой переменной.

Sloth · 29.12.2010, 15:29

не понял

Sloth · 29.12.2010, 15:32



i:=FormAddString('Погрешность,% =' + S);

надо округлить до 0,1
значит: S*10, trunc/10 как то так?

Phantom · 30.12.2010, 09:09

Сообщение от baton4ik

Рекс, знаешь, что такое "Округление"? Твоим алгоритмом из 1,29 выйдет 1,2 , а не 1,3 , как должно быть. Так что стоит проверять все цифры дробной части (может быть и 1,4444444445 , которая округляется до 1,5)

Ололо. Проверять нужно только одну следующую цифру после округляемого разряда, а не все.

Sloth · 30.12.2010, 13:05

да не важно как округлять, мне считать со всеми дробными надо, а выводить только округленные

baton4ik · 30.12.2010, 13:13

Сообщение от Phantom

Ололо. Проверять нужно только одну следующую цифру после округляемого разряда, а не все.

Ну да, я это и имел в виду

Sloth · 02.01.2011, 21:25

ну так как сделать то?

GRAY_WOLF · 02.01.2011, 22:32

Сообщение от Sloth

ну так как сделать то?

Так ты б сразу написал:
Люди добрые напишите мне пожалуйста прогу, а я вам за это не множко заплачу $$$...

JACUK · 02.01.2011, 23:43

Всё чаще вижу на вопрос о помощи ответ $$$! Где же те кто поднимал новичков, где те кто помогал мне без $? Обидно человек просит помощи, а с него денег сбит хотят! Простите за оффтоп.

baton4ik · 02.01.2011, 23:44

Ему помогли. А он, видимо не понял. Значит ему нужен готовый код, готовый код==деньги

Trazzy · 03.01.2011, 00:18

GRAY_WOLF, baton4ik - минусую!
он же написал "ну так как сделать то?", а не "ну так сделайте мне!"..