[Swat]

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.