VPF::Колво знаков после запятой - Форум программистов

kosta

Дата 12.8.2005, 02:17 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 86
Регистрация: 19.3.2005

Репутация: нет
Всего: нет

как собственно это регулировать?
Добавлено @ 02:18
регулировать нада при выводе куда либо

Vit

Дата 12.8.2005, 03:05 (ссылка)

(нет голосов)

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207

Команда Format - читать что сказано в помощи про параметер маски f до полного просветления

--------------------

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

Grig

Дата 12.8.2005, 03:59 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 809
Регистрация: 29.4.2005
Где: Иркутск

Репутация: нет
Всего: 16

Vit,

а я вот так делаю.
Допустим число надо округлить до двух знаков после запятой.

Код


var n,m:real;
Function RoundMax(Num:real):real;
begin
  result:=round(num*100)/100;
end;
begin
m:=2.454567431;
n:=RoundMax(m); //n=2.45
end;

Хотя примерчик, по-поему из DRKB взял

--------------------

Song

Дата 12.8.2005, 07:27 (ссылка)

(нет голосов)

Загрузка ...

Sysman.ru

Профиль
Группа: Участник
Сообщений: 1095
Регистрация: 2.6.2002

Репутация: 2
Всего: 4

RoundTo()
SimpleRoundTo()

Unit Math

--------------------

Прежде чем сказать "Невозможно", подумай, прав ли ты

Alex

Дата 12.8.2005, 08:20 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 80
Всего: 162

http://forum.vingrad.ru/index.php?act=ST&f=84&t=4357&st=0
http://vingrad.ru/DELPHI-DLP-000225
http://vingrad.ru/DELPHI-DLP-002940

--------------------

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

mvdr

Дата 15.8.2005, 07:12 (ссылка)

(нет голосов)

Загрузка ...

физик

Профиль
Группа: Участник
Сообщений: 1349
Регистрация: 31.12.2004
Где: Волгоград, Россия

Репутация: 1
Всего: 42

Цитата(Grig @ 12.8.2005, 04:59)

а я вот так делаю.

это не совсем округление, а скорее обрезание числа. К примеру: 3,9887 должно округлиться до 3,99 но если делать как ты делал - то будет 3,98.
Если точность не важна, то как ты делаешь - делать можно. А если важна?

--------------------

Появляюсь редко, но часто метко

Изображать идиота сложнее, чем изображать умного: полезнее и не каждому дано

PIF

Дата 16.8.2005, 15:48 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 68
Регистрация: 27.1.2005

Репутация: нет
Всего: нет

Недавно для своих целий писал библиотеку котораю округляет число до заданного количества значащих цифр после запятой:

Код


library RND;
uses MAth;
var 
s:string;
rerror:real;
count,count1,count2,count3,rond,sumr,a:integer;
function errorg( error:real;round:integer):string;stdcall;
begin
count:=0;
repeat
error:=error*10;
count:=count+1;
until error>1;
rond:=round-1;
error:=roundto(error,-rond);
count1:=0;
repeat
count1:=count1+1;
error:=error/10;
until
count1=count;
sumr:=count+rond;
error:=Roundto(error,-sumr-1);
str(error:sumr:sumr,s);
result:=s;
end;
exports
errorg;
begin
end.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »