home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1986 May
/
64er_Magazin_86-05_1986_Markt__Technik_de.d64
/
zeichen
< prev
next >
Wrap
Text File
|
2022-10-26
|
945b
|
47 lines
PROGRAM ZEICHEN;
(* LIEST ZEICHEN VON DER TASTATUR UND ZAEHLT DIE
VORGEFUNDENEN ZEICHEN NACH KATEGORIEN *)
VAR GROSS, KLEIN, ZIFFER, SONDERZEICHEN: SET OF CHAR;
G,K,Z,S:INTEGER;
ZEICHEN: CHAR;
(* *)
BEGIN
(* INITIALISIEREN *)
GROSS:=['a'..'z'];
KLEIN:=['A'..'Z'];
ZIFFER:=['0'..'9'];
G:=0;
K:=0;
Z:=0;
S:=0;
ZEICHEN:=' ';
(*
TEST UEBERNEHMEN UND AUSWERTEN
*)
WRITELN('GEBEN SIE DEN TEXT EIN:');
READ(ZEICHEN);
WHILE ZEICHEN <> '#' DO
BEGIN
REPEAT
IF ZEICHEN IN GROSS THEN G:=SUCC(G)
ELSE
IF ZEICHEN IN KLEIN THEN K:=SUCC(K)
ELSE
IF ZEICHEN IN ZIFFER THEN Z:=SUCC(Z)
ELSE S:=SUCC(S);
READ(ZEICHEN);
UNTIL EOLN;
READLN
END;
(*
ERGEBNIS AUSDRUCKEN
*)
WRITELN;
WRITELN('GEFUNDEN WURDEN');
WRITELN(G:5,' GROSSBUCHSTABEN');
WRITELN(K:5,' KLEINBUCHSTABEN');
WRITELN(Z:5,' ZIFFERN');
WRITELN(S:5,' SONDERZEICHEN');
WRITELN(G+K+Z+S:5,' ZEICHEN INSGESAMT')
END. (*ZEICHEN*)