Object-oriented Software in Ada 95

Appendix D 407
with Ada.Text_Io, Ada.Integer_Text_Io;
use Ada.Text_Io, Ada.Integer_Text_Io;
procedure Main is
Name_Length : constant Positive := 20;
type Name_Range is range 1 .. Name_Length;
Ch : Character;
Mark: Integer;
begin
while not End_Of_File loop
for I in Name_Range loop
Get(Ch); Put(Ch);
end loop;
Get( Mark );
case Mark is
when 0 .. 39 => Put("F");
when 40 .. 49 => Put("D");
when 50 .. 59 => Put("C");
when 60 .. 69 => Put("B");
when 70 ..100 => Put("A");
when others => Put("Invalid data");
end case;
Skip_Line; New_Line;
end loop;
end Main;
From chapter 4
A program to print statistics on the number of different types of character in a file.
with Ada.Text_Io, Ada.Integer_Text_Io;
use Ada.Text_Io, Ada.Integer_Text_Io;
procedure Main is
type Char is ( Digit, Punctuation, Letter, Other_Ch );
function What_Is_Char( Ch:in Character ) return Char is
begin
case Ch is
when 'a' .. 'z' | 'A' .. 'Z' => return Letter;
when '0' .. '9' => return Digit;
when ',' | '.' | ';' | ':' => return Punctuation;
when others => return Other_Ch;
end case;
end What_Is_Char;
No_Letters : Natural := 0;
No_Digits : Natural := 0;
No_Punct_Chs : Natural := 0;
No_Other_Chs : Natural := 0;
Ch : Character;
begin
© M A Smith - May not be reproduced without permission