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

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]

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

---

← →
VMcL ©   (2004-07-25 14:42) [9]

>>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]

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

---

← →
sniknik ©   (2004-07-25 14:59) [12]

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

;о)

---

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

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



Память: 0.47 MB
Время: 0.02 c