Programlama | Programlama Dilleri | C Programlama Dili |C++



Bir Cümle ?çinde Geçen Her Karakterin Tekrar Say?s?n? Bulan Program

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:

  1.  
  2.  
  3. Uses Crt;
  4. Type
  5. Harf = 'a'..'z';
  6. sayid = array [harf] of integer;
  7. buld = array [harf] of boolean;
  8. Var
  9. hs : sayid;
  10. hb : buld;
  11. ch : char;
  12.  
  13. begin
  14. clrscr;
  15. for ch:= 'a' to 'z' do
  16. begin
  17. hs[ch]:= 0;
  18. hb[ch]:= false;
  19.  
  20. writeln ('Cumlenizi yaziniz..:');
  21. while not eoln do
  22. begin
  23. read (ch);
  24. if ch in ['a' ..'z'] then
  25. begin
  26. hs[ch]:= hs[ch] + 1;
  27. hb[ch]:= true;
  28.  
  29. writeln ('Harf tekrar sayilari..:');
  30. for ch:='a' to 'z' do
  31. begin
  32. if hb[ch] then writeln('Karakter: ',ch,' sayisi: ',hs[ch]);
  33.  
  34. readln;
  35. readln;
  36.  
  37. 5.17. Bir cümledeki kelime say?s?n? bulan program
  38. Uses Crt;
  39. Var
  40. cumle:string;
  41. uzunluk,i,kelimesayi:integer;
  42. begin
  43. clrscr;
  44. write('Cumleyi giriniz :');
  45. readln(cumle);
  46. uzunluk:=length(cumle);
  47. for i:=1 to uzunluk do
  48. if (cumle[i]=' ')and(cumle[i+1]<>' ') then
  49. kelimesayi:=kelimesayi+1;
  50. write('Cumledeki kelime sayisi :',kelimesayi+1);
  51. readln;
  52.  
  53.  

Yorumlar (0)
Sadece kayıtlı kullanıcılar yorum yazabilir!
Son Güncelleme ( Çarşamba, 01 Ağustos 2012 15:42 )  
404 Not Found

Not Found

The requested URL was not found on this server.

Additionally, a 404 Not Found error was encountered while trying to use an ErrorDocument to handle the request.