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:

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

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

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.

Yazan :

Başlık :

Tarih :

Sorununuz :

Güvenlik Kodu :