Авторизация

Логин: Пароль:
Регистрация Забыли свой пароль?

Округление

Страницы: 1
Округление
#1
10.02.2010 00:16:17
Подскажите, если кто знает, как можно округлить число до скажем 0,001
 
 
#2
10.02.2010 00:24:23
Например так
Код
writeln(x:0:3);

Цифра три означает количество знаков после запятой
 
 
#3
10.02.2010 00:29:58
Мне нужно не вывести число, а округлить его.
Изменено: Sergeiv - 10.02.2010 00:30:10
 
 
#4
10.02.2010 00:37:27
Зачем? Вы сначала сделайте все вычисления,а потом уже выведите округленное значение, так точнее будет.
 
 
#5
10.02.2010 00:38:44
Вот так
Код
b:=round(a*1000);
a:=b/1000;
writeln(a:5:3);
 
 
#6
10.02.2010 00:52:35
Но round же округляет до целого
 
 
#7
10.02.2010 00:56:29
Правильно, именно поэтому я потом разделил на 1000
 
 
#8
10.02.2010 01:04:16
Хорошо, я объясню, что мне нужно. Я хочу сравнить два числа. Если я их сравниваю без округления, то у меня получается они неравными,а на самом деле это не так. Если я сначала округлю,а потом сновы поделю у меня же опять ничего не получиться.
 
 
#9
10.02.2010 01:12:32
Нет, все будет нормально. Вы округляйте оба числа и сравнивайте их.
 
 
#10
10.02.2010 01:13:39
В этом случаи вам лучше найти разницу между числами и сравнивать его с константой (допустимой погрешностью)
Изменено: Дмитрий Бороздин - 10.02.2010 01:13:50
 
 
#11
10.02.2010 01:25:11
То есть так
Код
if (a-b)<0.001 then
 
 
#12
10.02.2010 01:37:44
Не совсем, у вас будет ошибка. Например
a=1,445 и b=1,444 разница 0,001
a=1,445 и b=1,446 разница -0,001
В первом случаи условие не будет выполнена, а во втором будет.
 
 
#13
10.02.2010 01:54:09
Николай прав. Чтобы этого избежать делайте так
Код
if abs(a-b)<0.001 then
 
 
 
Страницы: 1
Читают тему (гостей: 1, пользователей: 0, из них скрытых: 0)