Double + Double = Double

← →
Wiz@rd (2004-07-25 14:11) [0]

Нужно сделать Double взяв целую часть из одного Double и дробную из другого. Как это сделать красиво без использования string

← →
R © (2004-07-25 14:19) [1]

div mod +

← →
Красный молоток (2004-07-25 14:27) [2]

var
a,b,c: double;
begin
a:=123.456;
b:=456.189;
c:=Trunc(a)+abs(Round(b)-b);
ShowMessage(floattostr(c));
end;

← →
MU (2004-07-25 14:28) [3]

D3 := Int(D1) + Frac(D2);

← →
VMcL © (2004-07-25 14:29) [4]

>>Wiz@rd (25.07.04 14:11)

var A, B, C: Double; // ... A := Int(B) + Frac(C);

>>R © (25.07.04 14:19) [1]

Иногда лучше жевать...

← →
MU (2004-07-25 14:31) [5]

>> Красный молоток
молотком по пальцам!!!

var
a,b,c: double;
begin
a:=123.456;
b:=456.999;
c:=Trunc(a)+abs(Round(b)-b);
ShowMessage(floattostr(c));
end;

← →
Wiz@rd (2004-07-25 14:37) [6]

var
A, B, C: Double;
// ...
A := Int(B) + Frac(C);

Вот я тормоз :)
30 сек на эти функции пялился и недогнал, да нелётная сегодня погода...

← →
Wiz@rd (2004-07-25 14:38) [7]

MU а в чём разнца между твоим постом и молотком? o0

← →
Wiz@rd (2004-07-25 14:41) [8]

По-моему оба гоните - вроде так работать не будет...

>>Wiz@rd (25.07.04 14:38) [7]

Он выделил ошибки.

← →
Красный молоток (2004-07-25 14:46) [10]

Упс, ступил
var
a,b,c: double;
begin
a:=123.456;
b:=456.999;
c:=Trunc(a)+abs(b-trunc(b));

← →
Wiz@rd (2004-07-25 14:49) [11]

Вот это другое дело, тока с фрак и инт покрасивше немного...

var
a,b: double;
begin
a:= 123.456;
b:= 456.999;
ReplaceTime(TDateTime(a), b);
ShowMessage(floattostr(a));

;о)

Double + Double = Double Найти похожие ветки