type_converstion_apples.adb

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

WITH TEXT_IO;USE TEXT_IO;
with ada.integer_text_io; use ada.integer_text_io;
procedure TYPE_CONVERSTION_APPLES is
begin
type Apples is range 0 .. 100;
type French_Apples is range 0 .. 100;
Number : Apples;
Number_From_France :French_Apples;
begin
Number := 10;
   Number_From_France := French_Apples( Number );
end;