Форум: "Основная";
Текущий архив: 2004.08.08;
Скачать: [xml.tar.bz2];
Вниз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 вся ветка
Форум: "Основная";
Текущий архив: 2004.08.08;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.034 c