Girilen bir dizi içinde kaç tane sesli harf olduğunu bulan ?

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
eleqance67
Üye
Mesajlar: 3
Kayıt: 10 Oca 2012 06:13

Girilen bir dizi içinde kaç tane sesli harf olduğunu bulan ?

Mesaj gönderen eleqance67 » 10 Oca 2012 06:15

Girilen bir dizi içinde kaç tane sesli harf olduğunu bulan program ? arkadaşlar çok acil bu programın kodlarını bulabilcek olan varmı yada yapabilen lütfen yardımcı olurmusunuz çok acil lütfen =(

eleqance67
Üye
Mesajlar: 3
Kayıt: 10 Oca 2012 06:13

Re: Girilen bir dizi içinde kaç tane sesli harf olduğunu bul

Mesaj gönderen eleqance67 » 10 Oca 2012 06:24

arkadaşlar lütfen yardım edin ya =(

secgin
Üye
Mesajlar: 30
Kayıt: 12 May 2009 04:01

Re: Girilen bir dizi içinde kaç tane sesli harf olduğunu bul

Mesaj gönderen secgin » 11 Oca 2012 01:49

"sesliharflersayisi" isminde sayısal bir değişken tanımla. Sesli harflerin olduğu bir dizi oluştur ve sesli harfleri bu diziye ata. Daha sonra tarama yapacağınız diziyi döngü içerisine al ve her eleman için sesli haflerin olduğu dizide arama yaptır varsa "sesliharflersayisi" değişkenini bir arttır. Bu şekilde kaç tane sesli harf olduğunu bursun.

Bu arada forumda çok aktif olan biri değilim belki bana düşmez ama bu şekilde kimsenin size yardımcı olacağını sanmıyorum.

İyi çalışmalar.

ikutluay
Üye
Mesajlar: 2341
Kayıt: 03 Tem 2007 09:13

Re: Girilen bir dizi içinde kaç tane sesli harf olduğunu bul

Mesaj gönderen ikutluay » 11 Oca 2012 10:18

güzel kardeşim bu kadar acilse 20-30 tl verip bir delphi kitabı alıp bu tip basitinde basiti şeyleri 2 dk da kendin yaparsın. Burası bir ödev sitesi değil. Buradabir çok insan kendi kafasını yara yara öğrendi herkesin kazanması gereken bir ekmeği var. o yüzden böyle hazır lokma ikramını sevmiyoruz.

istersen kızıp gücenebilirsin. ama deseydinki şuraya kadar geldim yada nasıl bir mantık kurmalıyım yol gösterirdik.

ben genede sana basitçe mantığını anlatacağım. diziyi filanda karıştırmadan

başla
sayi=0
0 dan girilen metnin uzunluğuna kadar
eğer karakterin x.inci harfi = a, e, vs ise sayiyi artir.
bitir;

yani hepsi bu
Kişi odur ki, koyar dünyada bir eser. Eseri olmayanın yerinde yeller eser./Muhammed Hadimi
http://www.ibrahimkutluay.net
http://www.ibrahimkutluay.net/blog

orhancc
Üye
Mesajlar: 585
Kayıt: 24 Ağu 2010 01:14
Konum: İstanbul / Kadıköy
İletişim:

Re: Girilen bir dizi içinde kaç tane sesli harf olduğunu bul

Mesaj gönderen orhancc » 11 Oca 2012 10:54

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
  s1: string;
  i: byte;
  SesliSayisi : Byte;
begin
  s1 := 'Delphi Türkiye Forum';
  SesliSayisi := 0;

  for i:=1 to length(s1) do
    begin
      if s1[i] in ['a','e','i','o','u','ü','ö','ı'] then
        Inc(SesliSayisi);
    end;

   Edit1.Text := Format('%d',[SesliSayisi]);
end;

Cevapla