home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 86xx / 8605.d64 / zeichen < prev    next >
Text File  |  1995-03-30  |  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.