Advertisement
Guest User

asdf

a guest
Nov 17th, 2011
611
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Ada 1.67 KB | None | 0 0
  1. --  ---------------------------------------------------------------------------
  2. --  @Main: aufgabe_1c
  3. --
  4. --  @Project: Aufgabenblatt 4
  5. --  @Version: 0.1
  6. --  @Created: 11/16/2011
  7. --  @Author:  Kasjan Chilarski
  8. --
  9. --  @Description: Record fuer Student oder Mitarbeiter Daten, mit folgenden
  10. --                Werten befuellt: g) Studen_oder_Mitarbeiter_Daten:
  11. --                Stach, Christoph, AS
  12. --  ---------------------------------------------------------------------------
  13.  
  14. with Ada.Text_IO, Ada.Strings.Unbounded;
  15. use Ada.Text_IO, Ada.Strings.Unbounded;
  16.  
  17. with Ada.Strings.Unbounded.Text_IO;
  18. use Ada.Strings.Unbounded.Text_IO;
  19.  
  20.  
  21. procedure aufgabe_1c is
  22.    type Person is (Student, Mitarbeiter);
  23.    type Studenten_oder_Mitarbeiter_Daten ( Typ : Person) is record
  24. --      Wahl : Boolean;
  25.   --  Typ : Person;
  26.       Name : Unbounded_String;
  27.       Vorname : Unbounded_String;
  28. --      Abteilung : Unbounded_String;
  29.       case Typ is
  30.          when Mitarbeiter => Abteilung : Unbounded_String;
  31.          when Student => Matrikel_Nummer : Integer;
  32.       end case;
  33.    end record;
  34.    -- Wichtig! den gewuenschten Persontyp uebergeben
  35.    Person1 : Studenten_oder_Mitarbeiter_Daten(Mitarbeiter);
  36. begin
  37.    --  Ausgabe soll sein: Studenten oder Mitarbeiter Daten: Stach,
  38.    --  Christoph, Abteilung: AS
  39.    Put_Line ("Mitarbeiter Daten");
  40. --   Person1.Typ := Student;
  41.    Person1.Name := To_Unbounded_String ("Stach");
  42.    Person1.Vorname := To_Unbounded_String ("Christoph");
  43.    Person1.Abteilung := To_Unbounded_String ("AS");
  44.    Put ("Name: ");
  45.    --  Ausgabe
  46.    Put_Line (Person1.Vorname & " " & Person1.Name);
  47.    Put ("Abteilung: ");
  48.    Put (Person1.Abteilung);
  49. end aufgabe_1c;
  50.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement