paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-05 19:50:43 +01:00
Code Issues Packages Projects Releases Wiki Activity

* shouldn't have been added

Browse Source
This commit is contained in:
marco 2000-01-25 20:19:36 +00:00
parent ebb089a003
commit 9cfc7c1f53
1 changed files with 0 additions and 56 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

56
packages/numlib/ntest.pas
View File

@ -1,56 +0,0 @@
TYPE ArbFloat=extended; {Any float, sensible values are Real Or extended}
ArrayByte= ARRAY[0..SIZEOF(ArbFloat)-1] OF BYTE;
Float10Arb=ArrayByte;
PROCEDURE DisplayBinValue(Flt : ArbFloat);
VAR FltArr : ArrayByte;
I : LONGINT;
BEGIN
Writeln(Flt);
Move(Flt,FltArr,SIZEOF(ArbFloat));
FOR I:=0 TO SIZEOF(ArbFloat)-1 DO
BEGIN
Write(FltArr[I]);
IF I<> (SIZEOF(ArbFloat)-1 ) THEN
Write(', ');
END;
Writeln;
END;
FUNCTION CreateFloat(Sign:BOOLEAN;Mantissa1:comp;Exponent:LONGINT):ArbFloat;
VAR L : ArrayByte;
BEGIN
FillChar(L,8,#0);
IF Sign THEN
L[SIZEOF(ArbFloat)-1]:=128;
END;
CONST
ETC1 : Float10Arb = (0,0,$00,$00,$00,$00,0,128,192,63);
ETC2 : Float10Arb = ($FF,$FF,$FF,$FF,$FF,$FF,$FF,$D6,$FE,127);
ETC3 : Float10Arb = (1,0,0,0,0,0,0,0,0,0);
ETC4 : Float10Arb = (0,0,0,0,0,0,0,0,$F0,$7F);
ETC5 : Float10Arb = (0,0,0,0,0,0,0,$80,$F0,$7F);
VAR L:ArbFloat;
BEGIN
{ writeln(extended(ETC2));
L:=ln(extended(ETC2));
DisplayBinValue(L);
writeln(extended(ETC3));
L:=ln(extended(ETC3));
DisplayBinValue(L);}
L:=extended(ETC4);
writeln(L);
DisplayBinValue(L);
L:=extended(ETC5);
writeln(L);
DisplayBinValue(L);
END.