IRC ve mIRC Kullanıcılarının Buluşma Noktası
  Mobil Sohbet, Sohbet ve Sohbet Odaları




Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 11 Temmuz 2014, 11:12   #1
Çevrimdışı
Bir Cümle İçinde Geçen Her Karakterin Tekrar Sayısını Bulan Program


-- Sponsor Baglantı --


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:

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
Uses Crt; Type Harf = 'a'..'z'; sayid = array [harf] of integer; buld = array [harf] of boolean; Var hs : sayid; hb : buld; ch : char; begin clrscr; for ch:= 'a' to 'z' do begin hs[ch]:= 0; hb[ch]:= false; end; writeln ('Cumlenizi yaziniz..:'); while not eoln do begin read (ch); if ch in ['a' ..'z'] then begin hs[ch]:= hs[ch] + 1; hb[ch]:= true; end; end; writeln ('Harf tekrar sayilari..:'); for ch:='a' to 'z' do begin if hb[ch] then writeln('Karakter: ',ch,' sayisi: ',hs[ch]); end; readln; readln; end. 5.17. Bir cümledeki kelime sayısını bulan program 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.

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:

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
Uses Crt; Type Harf = 'a'..'z'; sayid = array [harf] of integer; buld = array [harf] of boolean; Var hs : sayid; hb : buld; ch : char; begin clrscr; for ch:= 'a' to 'z' do begin hs[ch]:= 0; hb[ch]:= false; end; writeln ('Cumlenizi yaziniz..:'); while not eoln do begin read (ch); if ch in ['a' ..'z'] then begin hs[ch]:= hs[ch] + 1; hb[ch]:= true; end; end; writeln ('Harf tekrar sayilari..:'); for ch:='a' to 'z' do begin if hb[ch] then writeln('Karakter: ',ch,' sayisi: ',hs[ch]); end; readln; readln; end. 5.17. Bir cümledeki kelime sayısını bulan program 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.

__________________
şah hatayi'm muhabbete bakarım
ben doluyum ben dolana akarım


Maya
Kullanıcı imzalarındaki bağlantı ve resimleri görebilmek için en az 20 mesaja sahip olmanız gerekir ya da üye girişi yapmanız gerekir.
  Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
radyo44.com.tr
Cevapla

Etiketler
bîr, bulan, cümle, gecen, karakterin, program, sayısını, tekrar, İçinde

Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Küfür ve Argo Cümle İçinde Cihandar mIRC Scripting Sorunları 17 18 Eylül 2014 21:30
Cümledeki Kelime Sayısını Bulan Program Swat Programlama 0 11 Temmuz 2014 11:10
Harf notlarının sayısını bulan program aSi C ve C++ 0 17 Şubat 2012 23:56
Yumurtanın İçinde Yumurta Bulan Çiftçi Süslü Esrarengiz Olaylar 3 23 Mart 2010 13:45