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

Hata
  • XML Parsing Error at 1:82. Error 9: Invalid character


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

404

Not Found

The resource requested could not be found on this server!


Proudly powered by LiteSpeed Web Server

Please be advised that LiteSpeed Technologies Inc. is not a web hosting company and, as such, has no control over content found on this site.