Pascal programlama dilinde yazılmış bu programda kullanıcıdan alınan bir cümle içindeki her harfin kaç defa geçtiği sonuç olarak geri döndürülmüştür. Başka bir deyişle cümle içindeki karakterlerin tekrar sayılarını gösteren programdır.
Program Kodu:
Kod: Kodu kopyalamak için üzerine çift tıklayın!
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.