home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / das_buch / einfuehr / textdat.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1993-06-07  |  1.4 KB  |  30 lines
  1. PROGRAM Textdatei; { liest einen Text, der nur Kleinbuchstaben enthält }
  2.                    { aus einer Datei und bestimmt die Häufigkeit eines }
  3.                                                    { jeden Buchstabens }
  4. CONST
  5.     Name = 'datei.pas';                                    { Dateiname }
  6. VAR
  7.     Zeile : STRING;
  8.     Datei : Text;                                   { Dateityp => Text }
  9.     i     : INTEGER;
  10.     x     : CHAR;
  11.     Zaehler : ARRAY['a'..'z'] OF INTEGER;   { Zaehler für Häufigkeiten }
  12.     Hiva : INTEGER;
  13. BEGIN
  14.      Assign (Datei, Name);   { Der Dateivariablen einen Namen zuweisen }
  15.      Reset (Datei);                            { bstehende Datei lesen }
  16.      WHILE NOT EoF (Datei) DO  { So lange Dateiende nicht erreicht ist }
  17.      BEGIN                                         { zeilenweise lesen }
  18.           ReadLn (Datei, Zeile);               { Zeile aus Datei lesen }
  19.           FOR i := 1 TO Length (Zeile) DO      { Zeile buchstabenweise }
  20.           BEGIN          { zerlegen und Buchstabenhäufigkeit bestimmen }
  21.               Zaehler[Zeile[i]] := Zaehler[Zeile[i]] + 1;
  22.           END;
  23.      END;
  24.      Close (Datei);                                  { Datei schließen }
  25.      FOR x := 'a' TO 'z' DO                      { Häufigkeit ausgeben }
  26.      BEGIN
  27.           WriteLn (x, ': kommt ', Zaehler[x], ' mal vor');
  28.      END;
  29. END.
  30.