check.adb

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

with Text_IO;           use Text_IO;
with Ada.Float_Text_IO; use Ada.Float_Text_IO;

procedure check 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; --Set cost