Object-oriented Software in Ada 95

Appendix D: Answers to selected exercises
From chapter 2
A program to print the first 20 numbers.
with Ada.Text_Io;
use Ada.Text_Io;
procedure Main is
begin
for I in 1 .. 20 loop
Put( Integer'Image( I ) ); New_Line;
end loop;
end Main;
A program to print the 8 times table.
with Ada.Text_Io;
use Ada.Text_Io;
procedure Main is
begin
for I in 1 .. 12 loop
Put( " 8 * " ); Put( Integer'Image(I) ); Put(" = ");
Put( Integer'Image( I*8 ) ); New_Line;
end loop;
end Main;
A program to print numbers in the Fibonacci series.
with Ada.Text_Io;
use Ada.Text_Io;
procedure Main is
First, Second, Next : Integer;
begin
First := 0;
Second := 1;
Put( Integer'Image(1) ); New_Line;
while Second < 10000 loop
Put( Integer'Image( Second ) ); New_Line;
Next := First + Second;
First := Second;
Second := Next;
end loop;
end Main;
A program to print a character table.
© M A Smith - May not be reproduced without permission