IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Cümledeki Kelime Sayısını Bulan Program

Pascal programlama dilinde yazılmış bu programda bir cümlede geçen kelime sayısını bulunmuştur. Bu programda kelime sayısını bulurken boşluk işaretine göre arama yapılmıştır, diğer (, . ! - vb) karakterler eklenerek program daha üstün bir hale getirebilir.

Program Kodu:

Kod:

 

 

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.