Object-oriented Software in Ada 95

Appendix D 405
with Ada.Text_Io;
use Ada.Text_Io;
procedure Main is
begin
for I in 32 .. 127 loop
Put( "Character " ); Put( Character'Val(I) );
Put( " is represented by code " ); Put( Integer'Image(I) );
New_Line;
end loop;
end Main;
From chapter 3
A program to print an arbitrary time table in the range 1 .. 20.
with Ada.Text_Io, Ada.Integer_Text_Io;
use Ada.Text_Io, Ada.Integer_Text_Io;
procedure Main is
subtype Valid_Times_Table is Integer range 1 .. 20;
Table, Last : Integer;
begin
if Argument_Count >= 1 then
Get( Argument(1), Table, Last );
if Table in Valid_Times_Table then
Put("The "); Put( Table, Width=>2 );
Put(" times table is"); New_Line;
for I in 1 .. 12 loop
Put( Table, Width=>2 ); Put( " * " );
Put( I, Width=>2 ); Put(" = ");
Put( I*Table, Width=>3 ); New_Line;
end loop;
else
Put("Number not valid"); New_Line;
end if;
else
Put("No argument specified"); New_Line;
end if;
end Main;
A program to determine if a number is prime or not.
© M A Smith - May not be reproduced without permission