Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Double + Double = Double [D7, WinXP]

Wiz@rd © (2004-07-25 14:11:00)
Нужно сделать Double взяв целую часть из одного Double и дробную из другого. Как это сделать красиво без использования string

sniknik (2004-07-25 14:59:00) [1]
var
a,b: double;
begin
a:= 123.456;
b:= 456.999;
ReplaceTime(TDateTime(a), b);
ShowMessage(floattostr(a));

;о)

Wiz@rd (2004-07-25 14:49:00) [2]
Вот это другое дело, тока с фрак и инт покрасивше немного...

Красный молоток (2004-07-25 14:46:00) [3]
Упс, ступил
var
a,b,c: double;
begin
a:=123.456;
b:=456.999;
c:=Trunc(a)+abs( b-trunc(b));

VMcL (2004-07-25 14:42:00) [4]
>>Wiz@rd (25.07.04 14:38) [7]

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

Wiz@rd (2004-07-25 14:41:00) [5]
По-моему оба гоните - вроде так работать не будет...

Wiz@rd (2004-07-25 14:38:00) [6]
MU а в чём разнца между твоим постом и молотком? o0

Wiz@rd (2004-07-25 14:37:00) [7]
var
A, B, C: Double;
// ...
A := Int(B) + Frac(C);

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

MU (2004-07-25 14:31:00) [8]
>> Красный молоток
молотком по пальцам!!!

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

VMcL (2004-07-25 14:29:00) [9]
>> 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:28:00) [10]
D3 := Int(D1) + Frac(D2);

Красный молоток (2004-07-25 14:27:00) [11]
var
a,b,c: double;
begin
a:=123.456;
b:=456.189;
c:=Trunc(a)+abs(Round(b)-b);
ShowMessage(floattostr(c));
end;

R (2004-07-25 14:19:00) [12]
div mod +

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »