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

⟦911e461a4⟧ TextFile

    Length: 591 (0x24f)
    Types: TextFile
    Names: »B«

Derivation

└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦this⟧ 
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─ ⟦d65440be7⟧ »DATA« 
        └─⟦this⟧ 

TextFile

with Text_Io;
procedure Lecture_Clavier is
    Dividende, Diviseur, Reste : Integer;
    package Integer_Io is new Text_Io.Integer_Io (Integer);
    use Text_Io, Integer_Io;

begin
    Put_Line ("entrer 2 nombres entiers");
    Get (Dividende);
    Get (Diviseur);
    Put ("les nombres lus sont :");
    Put (Dividende, Width => 3);
    Put ("  et");
    Put (Diviseur, Width => 3);
    New_Line;
    Reste := Dividende rem Diviseur;
    Put ("le reste de la division de");
    Put (Dividende, Width => 3);
    Put (" est :");
    Put (Reste, Width => 3);
    New_Line;
end Lecture_Clavier;