Форум: "Основная";
Текущий архив: 2002.03.28;
Скачать: [xml.tar.bz2];
ВнизКак считать выражение с заданной точностью? Найти похожие ветки
← →
XOY (2002-03-11 20:00) [2]Ну можешь так попробовать:
function RealToString(p1: real; p2: byte): string;
var
cel: int64;
i: byte;
mn: integer;
dr: string;
begin
cel:= Trunc(p1);
mn:= 1;
for i:= 1 to p2 do mn:= mn*10;
dr:= inttostr(abs(round((p1 - cel)*mn)));
RealToString:= inttostr(cel) + "," + dr;
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.03.28;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.006 c