Ein kleines Adreßbuch

[Vorheriges Kapitel] [Vorherige Seite] [Inhaltsverzeichnis] [Nächste Seite] [Nächstes Kapitel]

*Zu implementieren ist ein kleines Adreßbuch fester Größe mit 16 Einträgen, in die jeweils Namen und Ortschaften eingetragen werden können.
 
*Adressen sollen interaktiv eingegeben, aufgelistet und gelöscht werden können.
 
*So könnte die Datenstruktur dafür aussehen:
 
AddressBook.om
CONST
   maxentries = 16;
      (* maximal number of entries in an address book *)
TYPE
   Name = ARRAY 80 OF CHAR;
   Entry =
      RECORD
         used: BOOLEAN; (* is this entry in use? *)
         name: Name;
         city: Name;
      END;
   AddressBook = ARRAY maxentries OF Entry;
VAR
   addressBook: AddressBook;
   index: INTEGER; (* of addressBook *)
   command: ARRAY 16 OF CHAR; (* command read from input *)
   entry: Entry; (* a new entry; used by ``new'' *)
   name: Name; (* used as arg for ``search'' or ``delete'' *)

[Vorheriges Kapitel] [Vorherige Seite] [Inhaltsverzeichnis] [Nächste Seite] [Nächstes Kapitel]
Copyright © 2004, 2005 Andreas Borchert, in HTML konvertiert am 18.02.2005