home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / qpdemo / beispiel / liste.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-08-24  |  859 b   |  32 lines
  1.  
  2. PROGRAM Liste;
  3.  
  4. TYPE Zeiger  = ^Element;
  5.  
  6.     Element = RECORD
  7.          Naechster : Zeiger;
  8.          Inhalt    : Integer
  9.         END;
  10.  
  11. VAR Wurzel, z : Zeiger;
  12.  
  13. BEGIN
  14.  Writeln ('Erstellen der Liste.');
  15.  Writeln ('Geben Sie Zahlen ein (Ende mit Null:');
  16.  Wurzel := Nil;                 { Erdung der Liste }
  17.  REPEAT
  18.   New (z);                       { neues Element schaffen }
  19.   Readln (z^.Inhalt);           { Dateninhalt einlesen   }
  20.   z^.Naechster := Wurzel;       { mit nächstem El. verbinden }
  21.   Wurzel := z                   { Wurzel aktualisieren }
  22.  UNTIL z^.Inhalt = 0;
  23.  
  24.  Writeln ('Ausgabe der Liste: ');
  25.  z := Wurzel;                   { Laufzeiger auf Wurzel setzen }
  26.  WHILE z <> Nil DO BEGIN
  27.   Writeln (z^.Inhalt);          { Lese Element unter Laufzeiger }
  28.   z := z^.Naechster             { Laufzeiger weiterrücken }
  29.  END
  30. END.
  31.  
  32.