while_program_2.adb

来自「This contains the following topics and m」· ADB 代码 · 共 24 行

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 while_program_2;