|
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 - metrics - downloadIndex: T
Length: 971 (0x3cb)
Types: TextFile
Names: »TEST_PILE«
└─⟦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;\r
procedure Test_Pile is\r
type Mes_Chiffres is delta 0.01 range -1.0E+6..1.0E+6;\r
package Pile_Car is new Pile(5,Mes_Chiffres);\r
package Chiffres_ES is new Text_IO.Fixed_IO(Mes_Chiffres);\r
c: character; i : Mes_Chiffres;\r
\r
begin\r
--while c /= 'q' loop\r
loop\r
begin\r
Text_IO.New_Line;\r
Text_IO.Put_Line("entrer un chiffre => (e)");\r
Text_IO.Put_Line("sortir un chiffre => (s)");\r
Text_IO.Put_Line("quitter => (q)");\r
Text_IO.Get(c);\r
Text_IO.New_Line;\r
case c is\r
when 'e' => Text_IO.Put("chiffre : ");\r
Chiffres_ES.Get(i);\r
Pile_Car.Empiler(i);\r
when 's' => i := Pile_Car.Depiler;\r
Chiffres_ES.Put(i);\r
Text_IO.New_Line;\r
when 'q' => exit;\r
when others => null;\r
end case;\r
exception\r
when Pile_Car.Underflow => Text_IO.Put_Line("File vide !!");\r
when Pile_Car.Overflow => Text_IO.Put_Line("File Pleine !!");\r
end;\r
end loop;\r
end Test_Pile;\r