установка real

← →
man © (2003-12-01 10:53) [0]

Привет всем! Такой вопрос: нужна ф-я,чтобы установить для перем. типа real целую часть = integer1,дробную - integer2. Заранее всем большое спасибо!

← →
Романов Р.В. © (2003-12-01 10:58) [1]

Такой функции нет придется писать самому

← →
Silver Alex © (2003-12-01 10:59) [2]

Trunc и Frac

← →
Digitman © (2003-12-01 11:00) [3]

т.е. если, к примеру, Integer2 = 672, то это значение с т.з. результата следует рассматривать как "шестьсот семьдесят две тысячных" ? так что ли ?

← →
Anatoly Podgoretsky © (2003-12-01 11:06) [4]

00672 :-)

← →
man © (2003-12-01 11:12) [5]

Всё верно.
А если в общем случае. Формат хранения real не подскажите?

← →
Anatoly Podgoretsky © (2003-12-01 11:13) [6]

Что верно?

← →
REA © (2003-12-01 11:19) [7]

StrToFloat(IntToStr(IntPart)+DecimalSeparator+IntToStr(FracPart))

← →
Anatoly Podgoretsky © (2003-12-01 11:26) [8]

Хранение дробной части 0.6 и 0.06 будет одинаковым - 6

← →
Digitman © (2003-12-01 11:29) [9]

> man

не получится.
см.

> Anatoly Podgoretsky © (01.12.03 11:06) [4]

без 3-го параметра Integer3, отражающего кол-во результирующих значащих разрядов в дробной части будущего real-значения, преобразование не может быть осуществлено однозначно

и действительно - то ли это будет .672, то ли .0672, то ли .00672 ... совершенно ж разные результаты !

← →
man © (2003-12-01 11:37) [10]

>Digitman
Согласен,пусть будет 3 параметра.

← →
TUser © (2003-12-01 11:45) [11]

r:=int1+int2/(length(inttostr(int2))*10)

i1:= 33;
i2:=672;
i3:=5;
s:= format("%d.%." + IntToStr(i3) + "d" , [i1, i2]);
showmessage(s);

Так что с форматом хранения,
чтоб не делать доп.преобр.,а напрямую конвертировать

+

r := strtofloat(s);

А тебе зачем? В ini файл небось записать?

> а напрямую конвертировать

не занимайся ерундой
пусть за тебя этим занимается FPU - он это сделает гораздо быстрей и эффективней

function Convert(IntPart, FracPart, Prec: Integer): Real;
begin
Result := IntPart + FracPart/Power(10, Prec);
end;

установка real Найти похожие ветки