Форум на Исходниках.RU

Конечно, он работать не будет. Нужно будет заменить константы: 23 на 52, 8 на 11, 127 на 2047, 150 на 2099, а к $80000000 дописать еще 8 нулей (это для Double).
Аналогично замена производится для типов Real и Extended.

2 Mixxx: А зачем тебе нужен "самый софтварный метод", если не секрет, конечно? ]]> albom Pascal https://forum.sources.ru/index.php?showtopic=14377&view=findpost&p=121985 Fri, 22 Aug 2003 13:30:13 +0000 Как взять от вещественного числа его целую часть? https://forum.sources.ru/index.php?showtopic=14377&view=findpost&p=121985 tserega Pascal https://forum.sources.ru/index.php?showtopic=14377&view=findpost&p=121984 Fri, 22 Aug 2003 13:27:44 +0000 Как взять от вещественного числа его целую часть? https://forum.sources.ru/index.php?showtopic=14377&view=findpost&p=121984 Спасибо, мне понравилось решение из 7-ой мессаги.
Самый софтварный метод :)
Сам придумал?]]> Mixxx Pascal https://forum.sources.ru/index.php?showtopic=14377&view=findpost&p=121983 Fri, 22 Aug 2003 12:19:45 +0000 Как взять от вещественного числа его целую часть? https://forum.sources.ru/index.php?showtopic=14377&view=findpost&p=121983

function power2(s: Integer): Longint;

var r: Longint;

begin

if s < 0 then begin

power2 := 0; exit

end;

r := 1;

while s > 0 do begin

r := r*2;

dec(s);

end;

power2:=r;

end;

var

i: longint;

r: single;

e,m: longint;

s: boolean;

begin

r := -123.456;

m := longint(r) and ((1 shl 23) - 1);

e := (longint(r)shr 23) and (1 shl 8 - 1);

s := longint(r) and 000000 <> 0;

if e <> 0 then begin

if e - 150 < 0 then i := power2(e - 127) + m div power2(150 - e)

else i := (power2(e - 127) + m * power2(e - 150));

if s then i := -i;

end

else i := 0;

writeln(i); { В "i" находится целая часть }

end.

]]> albom Pascal https://forum.sources.ru/index.php?showtopic=14377&view=findpost&p=121982 Fri, 22 Aug 2003 11:49:17 +0000 Как взять от вещественного числа его целую часть? https://forum.sources.ru/index.php?showtopic=14377&view=findpost&p=121982

var

i: longint;

s: integer;

r: real;

setbit: boolean;

begin

r := 123.4567;

if r < 0 then begin

r := -r; setbit := true;

end

else setbit := false;

i := 0;

for s := 30 downto 0 do begin

i := i or (word(1) shl s);

if i > r then i := i and not(word(1) shl s);

end;

if setbit then i := -i;

writeln(i); { В "i" находится целая часть }

end.