simple_cat.adb

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

with Ada.Text_IO; use Ada.Text_IO;
procedure Simple_Cat is
   name : String (1 .. 20); --Current character
   last : Natural; -- can only contain natural integers
begin
   while not End_Of_File loop --For each Line
      while not End_Of_Line loop --For each character
         --Get (Ch);
         --Put_line(Ch); --Read / Write character

         Get_Line (name, last);
         Put_Line (name (1 .. last));
      end loop;
      Skip_Line;
      New_Line; --Next line / new line
   end loop;
end Simple_Cat;