Turkhackteam.net/org - Turkish Hacking & Security Platform...  
Geri git   Turkhackteam.net/org - Turkish Hacking & Security Platform... >
Programlama
> Delphi




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

Delphi

Yeni Konu aç Cevapla
 
Seçenekler
Alt 07-12-2017   #1
  • Offline
  • Stajyer Asistan Sorumlusu
  • Genel Bilgiler
Üyelik tarihi
Apr 2016
Nereden
Teşkilat
Mesajlar
Konular


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



Delphi de for döngüsünün kullanimi
For döngüsüyle baslagiç ve bitis degerine kadar olan program bloglarinin ç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.
    


__________________



𝓢𝒶𝒹𝑒𝒸𝑒 𝔩. 𝓣𝓤𝓡𝓚

Offline
 
Alıntı ile Cevapla
Cevapla

Bookmarks

Seçenekler


Bilgilendirme Turkhackteam.net/org
Sitemizde yer alan konular üyelerimiz tarafından açılmaktadır.
Bu konular yönetimimiz tarafından takip edilsede gözden kaçabilen telif hakkı olan veya mahkeme kararı çıkmış konular sitemizde bulunabilir. Bu tür konuları bize turkhackteamiletisim [at] gmail.com adresine mail atarak bildirdiğiniz takdirde en kısa sürede konular hakkında gerekli işlemler yapılacaktır.
Please Report Abuse, DMCA, Harassment, Scamming, Warez, Crack, Divx, Mp3 or any Illegal Activity to turkhackteamiletisim [at] gmail.com


Türkhackteam saldırı timleri Türk sitelerine hiçbir zararlı faaliyette bulunmaz.
Turkhackteam üyelerinin yaptığı bireysel hack faaliyetlerinden Turkhackteam sorumlu değildir. Sitelerinize Turkhackteam ismi kullanılarak hack faaliyetinde bulunulursa, site-sunucu erişim loglarından bu faaliyeti gerçekleştiren ip adresini tespit edip diğer kanıtlarla birlikte savcılığa suç duyurusunda bulununuz.



         

Powered by vBulletin® Copyright ©2000 - 2018

TSK Mehmetçik Vakfı

Türk Polis Teşkilatını Güçlendirme Vakfı



Google Links

wau

Search Engine Friendly URLs by vBSEO 3.6.0 ©2011, Crawlability, Inc.