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: --
-içine yazilan bir sayinin asal olup olmadigini buton1.onclick gerçeklesince bulan ve bunu label1 içine yazan program: ----
--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.------
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:
rocedure 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.------