Hoşgeldin, Ziyaretçi:

l Üye Ol
Tarih: 23-10-2019, Saat: 14:15
  • Tekno Destek Team'e Hoşgeldiniz
  • Teknoloji, Mobil, Oyun, İnternet, Haber Platforumu
  • Tekno Destek Team ( TDT )
Tekno Destek Team - Teknoloji, Mobil, Oyun, İnternet, Haber Platforumu > Programlama > Delphi > Delphi de for döngüsünün kullanımı >

 Yorum: 0    Görüntülenme: 452
Konuyu Oyla:
  • Toplam: 0 Oy - Ortalama: 0
  • 1
  • 2
  • 3
  • 4
  • 5
 Delphi de for döngüsünün kullanımı
07-07-2018, Saat: 16:45,
Çevrimdışı
Süper Moderatör
Süper Moderatör Grubu
Üyelik Tarihi: 02-01-2016
Mesajlar : 456
Konular:
Rep Puanı: 1
#1
Delphi de for döngüsünün kullanımı

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.


kara_kutu nickli üyenin imzası
VvXn7P.jpg
07-07-2018, Saat: 16:45
Cevapla



« Önceki Konu | Sonraki Konu »
Konuyu Okuyanlar: 1 Ziyaretçi



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Delphi'de CPL Açmak kara_kutu 0 1,227 05-02-2016, Saat: 12:48
Son Yorum: kara_kutu
  Delphi'de Ekran Görüntüsü Almak kara_kutu 0 823 05-02-2016, Saat: 12:45
Son Yorum: kara_kutu
  DELPHI ÖĞRENIYORUM kara_kutu 0 1,445 06-01-2016, Saat: 17:35
Son Yorum: kara_kutu
  Delphi Nedir? Ne İşe Yarar? admin 0 7,341 05-01-2016, Saat: 21:32
Son Yorum: admin

Hızlı Menü:

Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB
© 2002-2019 MyBB Group.
Tasarım Tekno Destek Team © 2019