asdf

--  ---------------------------------------------------------------------------
--  @Main: aufgabe_1c
--
--  @Project: Aufgabenblatt 4
--  @Version: 0.1
--  @Created: 11/16/2011
--  @Author:  Kasjan Chilarski
--
--  @Description: Record fuer Student oder Mitarbeiter Daten, mit folgenden
--                Werten befuellt: g) Studen_oder_Mitarbeiter_Daten:
--                Stach, Christoph, AS
--  ---------------------------------------------------------------------------

with Ada.Text_IO, Ada.Strings.Unbounded;
use Ada.Text_IO, Ada.Strings.Unbounded;

with Ada.Strings.Unbounded.Text_IO;
use Ada.Strings.Unbounded.Text_IO;


procedure aufgabe_1c is
   type Person is (Student, Mitarbeiter);
   type Studenten_oder_Mitarbeiter_Daten ( Typ : Person) is record
--      Wahl : Boolean;
  --  Typ : Person;
      Name : Unbounded_String;
      Vorname : Unbounded_String;
--      Abteilung : Unbounded_String;
      case Typ is
         when Mitarbeiter => Abteilung : Unbounded_String;
         when Student => Matrikel_Nummer : Integer;
      end case;
   end record;
   -- Wichtig! den gewuenschten Persontyp uebergeben
   Person1 : Studenten_oder_Mitarbeiter_Daten(Mitarbeiter);
begin
   --  Ausgabe soll sein: Studenten oder Mitarbeiter Daten: Stach,
   --  Christoph, Abteilung: AS
   Put_Line ("Mitarbeiter Daten");
--   Person1.Typ := Student;
   Person1.Name := To_Unbounded_String ("Stach");
   Person1.Vorname := To_Unbounded_String ("Christoph");
   Person1.Abteilung := To_Unbounded_String ("AS");
   Put ("Name: ");
   --  Ausgabe
   Put_Line (Person1.Vorname & " " & Person1.Name);
   Put ("Abteilung: ");
   Put (Person1.Abteilung);
end aufgabe_1c;