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: Kodu kopyalamak için üzerine çift tıklayın!
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.