Object-oriented Software in Ada 95

408 Appendix D
while not End_Of_File loop
while not End_Of_Line loop
Get( Ch );
case What_Is_Char( Ch) is
when Letter => No_Letters := No_Letters + 1;
when Digit => No_Digits := No_Digits + 1;
when Punctuation => No_Punct_Chs := No_Punct_Chs + 1;
when Other_Ch => No_Other_Chs := No_Other_Chs + 1;
end case;
end loop;
Skip_Line;
end loop;
Put("Letters are "); Put( No_Letters ); New_Line;
Put("Digits are "); Put( No_Digits ); New_Line;
Put("Punctuation chs are "); Put( No_Punct_Chs ); New_Line;
Put("Other chs are "); Put( No_Punct_Chs ); New_Line;
end Main;
Note:
This only works for the English character set.
A program to print the average of three rainfall readings.
with Ada.Text_Io, Ada.Integer_Text_Io;
use Ada.Text_Io, Ada.Integer_Text_Io;
procedure Main is
procedure Order3( A,B,C:in out Float ) is
procedure Order2( F,S:in out Float ) is
Tmp : Float;
begin
if F > S then
Tmp := F; F := S; S := Tmp;
end if;
end Order2;
begin
Order2( A, B ); --S L ? (a, b, correct order)
Order2( B, C ); --? ? L ( c is largest)
Order2( A, B ); --S M L (a, b, c ordered )
end Order3;
First,Second,Third : Float;
begin
Put("Input 3 rainfall reading ");
Get( First ); Get( Second ); Get( Third ); --Data
Put("Rainfall average is : ");
Put( (First+Second+Third)/3.0, Exp=>0, Aft=>2 ); --Average
New_Line;
Order3( First, Second, Third ); --Order
Put("Data values (sorted) are : "); --List
Put( First, Exp=>0, Aft=>2 ); Put(" ");
Put( Second, Exp=>0, Aft=>2 ); Put(" ");
Put( Third, Exp=>0, Aft=>2 ); Put(" ");
New_Line;
end Main;
From chapter 5
A class Performance that represents the number of seats at a cinema performance.
© M A Smith - May not be reproduced without permission