home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1986 May / 64er_Magazin_86-05_1986_Markt__Technik_de.d64 / zeichen < prev    next >
Text File  |  2022-10-26  |  945b  |  47 lines
  1. PROGRAM ZEICHEN;
  2. (* LIEST ZEICHEN VON DER TASTATUR UND ZAEHLT DIE
  3.   VORGEFUNDENEN ZEICHEN NACH KATEGORIEN *)
  4. VAR GROSS, KLEIN, ZIFFER, SONDERZEICHEN: SET OF CHAR;
  5.     G,K,Z,S:INTEGER;
  6.     ZEICHEN: CHAR;
  7. (* *)
  8. BEGIN
  9. (* INITIALISIEREN *)
  10. GROSS:=['a'..'z'];
  11. KLEIN:=['A'..'Z'];
  12. ZIFFER:=['0'..'9'];
  13. G:=0;
  14. K:=0;
  15. Z:=0;
  16. S:=0;
  17. ZEICHEN:=' ';
  18. (*
  19.    TEST UEBERNEHMEN UND AUSWERTEN
  20. *)
  21. WRITELN('GEBEN SIE DEN TEXT EIN:');
  22. READ(ZEICHEN);
  23. WHILE ZEICHEN <> '#' DO
  24.   BEGIN
  25.     REPEAT
  26.         IF ZEICHEN IN GROSS THEN G:=SUCC(G)
  27.         ELSE
  28.         IF ZEICHEN IN KLEIN THEN K:=SUCC(K)
  29.         ELSE
  30.         IF ZEICHEN IN ZIFFER THEN Z:=SUCC(Z)
  31.         ELSE S:=SUCC(S);
  32.     READ(ZEICHEN);
  33.     UNTIL EOLN;
  34.    READLN
  35. END;
  36. (*
  37.    ERGEBNIS AUSDRUCKEN
  38. *)
  39. WRITELN;
  40. WRITELN('GEFUNDEN WURDEN');
  41. WRITELN(G:5,' GROSSBUCHSTABEN');
  42. WRITELN(K:5,' KLEINBUCHSTABEN');
  43. WRITELN(Z:5,' ZIFFERN');
  44. WRITELN(S:5,' SONDERZEICHEN');
  45. WRITELN(G+K+Z+S:5,' ZEICHEN INSGESAMT')
  46. END. (*ZEICHEN*)
  47.