while_with_if_program.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_with_if_program is
Price_Per_Kilo : Float; --Price of apples
Kilos_Of_Apples: Float; --Apples required
   Cost : Float; --Cost of apples
   lines_output : Integer :=0;
   count : integer :=10;
begin
   Price_Per_Kilo := 1.20;
 --  put(integer'image(count)); -- delivers count as a character string.
   new_line;
 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
   lines_output :=lines_output+1;
   delay 1.0; -- wait for 1 second
   if lines_output >=4 then
      new_line;
      lines_output :=0;
      end if;
end loop;
end;