while_program_2.adb.npp

This contains the following topics and more ADA versus C and Cplus plus Ada_training ADA 2005 for

with text_io; use text_io;
with Ada.Float_text_io; use Ada.Float_text_io;
procedure while_program_2 is
Price_Per_Kilo : Float; --Price of apples
Kilos_Of_Apples: Float; --Apples required
Cost : Float; --Cost of apples
begin
Price_Per_Kilo := 1.20;
 Put( "Cost of apples per kilo : " );
   Put( Price_Per_Kilo ); New_Line;
   Put( "   Kilo's           Cost" ); New_Line;
   Kilos_Of_Apples := 1.0;
while Kilos_Of_Apples <= 10.0 loop --While lines to print
Cost := Price_Per_Kilo * Kilos_Of_Apples; --Calculate cost
Put( Kilos_Of_Apples ); --Print results
Put( "    " );
Put( Cost );
New_Line;
Kilos_Of_Apples := Kilos_Of_Apples + 1.0; --Next value
end loop;
end;