Object-oriented Software in Ada 95

16 Introduction to programming
which when compiled with additional statements would produce output of the form shown below:
Cost of apples per kilo : 1.20
Kilo's Cost
0.0 0.00
0.1 0.12
0.2 0.24
0.3 0.36
0.4 0.48
0.5 0.60
0.6 0.72
0.7 0.84
0.8 0.96
0.9 1.08
1.0 1.20
1.1 1.32
1.2 1.44
1.3 1.56
1.4 1.68
etc.
Note:
1.15 Self-assessment
Using Put(Price_Per_Kilo), Put(Kilos_Of_Apples) and Put(Price) will cause the
value to be output in scientific notation. To get the effect of the format shown above the Put statements
would need to be changed to:
Put(Price_Per_Kilo) -> Put(Price_Per_Kilo,Exp=>0,Aft=>2)
Put(Kilos_Of_Apples) -> Put(Kilos_Of_Apples,Exp=>0,Aft=>2)
Put(Cost) -> Put(Cost,Exp=>0,Aft=>2).
This is fully explained in Section 4.6.1.
• What is a computer programming language?
• What do the following fragments of Ada 95 code do?
declare
I : Integer;
begin
I := 10;
while I > 0 loop
Put( I );
I := I - 1;
end loop;
New_Line;
end;
declare
Temperature : Integer;
begin
Temperature := 10;
if Temperature > 20 then
Put( "It's Hot!" );
end if;
if Temperature