DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

Index: ┃ B T ┃

⟦884c04486⟧ TextFile

    Length: 560 (0x230)
    Types: TextFile
    Names: »B«

Derivation

└─⟦f64eaa120⟧ Bits:30000752 8mm tape, Rational 1000, !projects 93 02 16
    └─ ⟦6f12a12be⟧ »DATA« 
        └─⟦this⟧

TextFile

with Text_Float, Text_Io, Slot;
procedure T2 is
    subtype Tf is Float;

begin
    Text_Io.Put_Line
       (" this is a float number :" &
        Text_Float
           (999999999999999999992.5559999999999999999999999999999999999999999999999999));
    Text_Io.Put_Line (" this number :" & Text_Float (2.5E302) & " is a float");
    Text_Io.Put_Line (" this number :" &
                      Slot.Image (Slot.Value (8.435E302)) & " is a float");
    Text_Io.Put_Line (Integer'Image (Float'Mantissa));
    Text_Io.Put_Line (Integer'Image (Float'Size));

end T2;