• Hesap Oluştur
  • Oturum Aç

Delphi de for döngüsünün kullanımı

kara_kutu    0

    • avatar

    kara_kutu  07-07-2018, Saat: 16:45

    Kredi:
    #1
    Delphi de for döngüsünün kullanımı

    Delphi de for döngüsünün kullanimi

    For döngüsüyle başlangıç ve bitis degerine kadar olan programbloglarinin çalismasini saglar. Baslangiç Degeri, bitis Degeri den küçükse döngüye hiç girilmez. Sayaç’in artarak degil azalarak çalismasi için downto deyimi kullanilir. Baslangiç degeri, bitis degerinden büyükse döngüye hiç girilmez.Kullanimi: 


    Kod:
    For sayaç:=baslangiç degeri to bitis degeri do
       Begin
         Komutlar;
      End;


    içine yazilan bir sayinin asal olup olmadigini buton1.onclick gerçeklesince bulan ve bunu label1 içine yazan program: 

    Kod:
    procedure TForm1.Button1Click(Sender: TObject);
    var sayi,a,x:integer;
    begin
       sayi :=StrToInt(edit1.Text );
       a:=-1;
       for x:=2 to sayi-1 do
          begin
                if sayi mod x=0 then a:=+1 ;
          end;
       if a=1 then label1.Caption :='ASALDIR DEGILDIR'
       else label1.Caption:= 'ASALDIR';
    end;


    Degiskenlerimizi tanimladik. Baslangiç degerimizi x:=1 baslatik bitis degerimizi sayi-1 edit1 yazdigimiz degeri 1 azaltarak bitis degerimizi belirtik ve if ile x degiskenimiz sifir ise a degikenimizi 1 artirmasini saglanmis oldu. Diger if döngüsüylede a degikenimiz bir ise label1 "Asal degildir" degilse "asal" yazdirmasi saglamis olduk.
    VvXn7P.jpg
    Beğeni


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Delphi'de CPL Açmak kara_kutu 0 1,462 05-02-2016, Saat: 12:48
Son Yorum: kara_kutu
  Delphi'de Ekran Görüntüsü Almak kara_kutu 0 1,062 05-02-2016, Saat: 12:45
Son Yorum: kara_kutu
  DELPHI ÖĞRENIYORUM kara_kutu 0 1,687 06-01-2016, Saat: 17:35
Son Yorum: kara_kutu
  Delphi Nedir? Ne İşe Yarar? Tekno Destek Team 0 8,784 05-01-2016, Saat: 21:32
Son Yorum: Tekno Destek Team
Konuyu Okuyanlar: 1 Ziyaretçi

Hızlı Menü: