Скачать: CL | DM;

Как откинуть часть числа?   Найти похожие ветки 

← →
Вера   (2003-11-10 12:07) [0]

Как откинуть часть числа?

например есть 1,3458687 а надо вывести на экран 1,345

---

← →
Ломброзо ©   (2003-11-10 12:13) [1]

Writeln(Format("%.3f", 1.3458687));

---

← →
Ru ©   (2003-11-10 12:16) [2]

один из вариантов (всё равно выводить в строковом формате) это:
var
a:real;//это наше число
tmp:string;//строка результат
i:integer;//понадобится

tmp:=floattostr(a);
i:=pos(",",tmp);
Edit1.Text:=copy(tmp,0,i+3);

если не ошибся. мы скопируем из строки tmp начиная с нуля (может надо поставить 1) i+3 символов, что должно соответствовать необходимому представлению числа

---

← →
Ломброзо ©   (2003-11-10 12:19) [3]

> Ru © (10.11.03 12:16) [2]
Дадад. Один мой поциент любил у себя в региональных настройках разделителем символ # выставлять...

---

← →
MalkoLinge ©   (2003-11-10 12:23) [4]

Category

string formatting routines

function Format(const Format: string; const Args: array of const): string;

---

← →
mfender ©   (2003-11-10 12:27) [5]

Тогда и так можно:
FloatToStr(Round(1.3458687*1000)/1000)
только в данном случае получится, если я не ошибаюсь 1.346 в результате...

---

← →
Anatoly Podgoretsky ©   (2003-11-10 12:30) [6]

Возможно будет удобнее FormatFloat

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.044 c