Uses Crt;
Type
Harf = 'a'..'z';
sayid = array [harf] of integer;
buld = array [harf] of boolean;
Var
hs : sayid;
hb : buld;
ch : char;
 
begin
clrscr;
for ch:= 'a' to 'z' do
begin
hs[ch]:= 0;
hb[ch]:= false;
end;
 
writeln ('Cumlenizi yaziniz..:');
while not eoln do
begin
read (ch);
if ch in ['a' ..'z'] then
begin
hs[ch]:= hs[ch] + 1;
hb[ch]:= true;
end;
end;
 
writeln ('Harf tekrar sayilari..:');
for ch:='a' to 'z' do
begin
if hb[ch] then writeln('Karakter: ',ch,' sayisi: ',hs[ch]);
end;
 
readln;
readln;
end.
 
5.17. Bir cümledeki kelime sayısını bulan program
Uses Crt;
Var
cumle:string;
uzunluk,i,kelimesayi:integer;
begin
clrscr;
write('Cumleyi giriniz :');
readln(cumle);
uzunluk:=length(cumle);
for i:=1 to uzunluk do
if (cumle[i]=' ')and(cumle[i+1]<>' ') then
kelimesayi:=kelimesayi+1;
write('Cumledeki kelime sayisi :',kelimesayi+1);
readln;
end.