Bla! Prozeduren sind nice!
2008-11-09 02:48:09

with Ada.Text_IO, Ada.Integer_Text_IO;
use  Ada.Text_IO, Ada.Integer_Text_IO;

procedure Bla
is
   
   type Array_Datentyp is array (1 .. 5) of Integer;
   Array_Mene_Muh : Array_Datentyp;   
   Ansammlung_Von_Character : String (1 .. 4) := "leer";
   
   procedure Befuelle (X : out Array_Datentyp; Y : out String)
   is   
   begin
      for I in X'Range loop
         X (I) := I;
      end loop;
      Y := "test";
   end Befuelle;
      

begin

   Befuelle (Array_Mene_Muh, Ansammlung_Von_Character);   
   for I in Array_Mene_Muh'Range loop
      Put (Array_Mene_Muh (I), 0);
      New_Line;
   end loop;
      Put (Ansammlung_Von_Character);

end Bla;