|
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: 1030 (0x406)
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 Text_Io;
with Histogrammes;
procedure Exo2 is
subtype Alphabet is Character range 'a' .. 'z';
package Chaine is new Histogrammes (Alphabet);
O : Chaine.Objet;
F : Text_Io.File_Type;
Car : Character;
Table : array ('A' .. 'Z') of Character :=
('a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j', 'k', 'l', 'm',
'n', 'o', 'p', 'q', 'r', 's', 't', 'u', 'v', 'w', 'x', 'y', 'z');
begin
Chaine.Initialiser_Objet (O);
Text_Io.Open (F, Text_Io.In_File, "!USERS.PETROVIC.COLLE_ADA_GL.LETTRES");
while not Text_Io.End_Of_File (F) loop
while not Text_Io.End_Of_Line (F) loop
Text_Io.Get (F, Car);
if Car in 'A' .. 'Z' or Car in 'a' .. 'z' then
if Car in 'A' .. 'Z' then
Car := Table (Car);
end if;
Chaine.Ajouter_Une_Quantite (O, Car);
end if;
end loop;
Text_Io.Skip_Line (F);
end loop;
Text_Io.Close (F);
Chaine.Put_Histo (O);
end Exo2;