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