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

Anasayfa Programlama Pascal Bir Cümle İçinde Geçen Her Karakterin Tekrar Sayısını Bulan Program


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 )  
backlinktr.biz | 521: Web server is down

Error 521 Ray ID: 4c9b8bdb5e02a7dc • 2019-04-19 02:46:07 UTC

Web server is down

You

Browser

Working
Istanbul

Cloudflare

Working
backlinktr.biz

Host

Error

What happened?

The web server is not returning a connection. As a result, the web page is not displaying.

What can I do?

If you are a visitor of this website:

Please try again in a few minutes.

If you are the owner of this website:

Contact your hosting provider letting them know your web server is not responding. Additional troubleshooting information.