|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - downloadIndex: ┃ B T ┃
Length: 1261 (0x4ed)
Types: TextFile
Names: »B«
└─⟦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⟧
with Pile, Text_Io;
procedure Test_Pile is
type Mes_Chiffres is delta 0.01 range -1.0E+6 .. 1.0E+6;
package Pile_Car is new Pile (5, Mes_Chiffres);
package Chiffres_Es is new Text_Io.Fixed_Io (Mes_Chiffres);
C : Character;
I : Mes_Chiffres;
begin
loop
begin
Text_Io.New_Line;
Text_Io.Put_Line ("entrer un chiffre => (e)");
Text_Io.Put_Line ("sortir un chiffre => (s)");
Text_Io.Put_Line ("quitter => (q)");
Text_Io.Get (C);
Text_Io.New_Line;
case C is
when 'e' =>
Text_Io.Put ("chiffre : ");
Chiffres_Es.Get (I);
Pile_Car.Empiler (I);
when 's' =>
I := Pile_Car.Depiler;
Chiffres_Es.Put (I);
Text_Io.New_Line;
when 'q' =>
exit;
when others =>
null;
end case;
exception
when Pile_Car.Underflow =>
Text_Io.Put_Line ("File vide !!");
when Pile_Car.Overflow =>
Text_Io.Put_Line ("File Pleine !!");
end;
end loop;
end Test_Pile;