sw/src/pascal/BUCHST.PS

   1 PROGRAM BUCHSTABENHAEUFIGKEIT(INPUT,OUTPUT);
   2     VAR BUCHST: CHAR;
   3         ZAEHLER: ARRAY["A".."Z"] OF INTEGER;
   4 BEGIN
   5   FOR BUCHST := "A" TO "Z"  DO ZAEHLER[BUCHST] := 0;
   6   WHILE NOT EOF DO
   7     BEGIN
   8       WHILE NOT EOLN DO
   9         BEGIN
  10           READ(BUCHST); WRITE(BUCHST);
  11           IF ("A"<=BUCHST) AND (BUCHST<="Z") THEN
  12                 ZAEHLER[BUCHST] := ZAEHLER[BUCHST] + 1
  13         END;
  14       READLN; WRITELN
  15     END;
  16   FOR BUCHST := "A" TO "Z" DO WRITELN(BUCHST:10,ZAEHLER[BUCHST])
  17 END.