ŞARTLI ÇALIŞTIRMA DEYİMLERİ

Programlar satır satır çalışırlar bilindiği gibi.İsteğe bağlı olarak belli şartlar aranarak programın bir kısmının çalıştırılması
veya çalıştırılmamasını sağlayabiliriz.Kısacası döngüler diyebiliriz bunlara.Birçok programlama dilinde bu bahsettiğim mevcuttur.
Sanırım programlama yapan ve if-case gibi döngüleri duymayanınız yoktur.Şimdi bunlar hakkında bilgi verelim isterseniz..[...]

İF DÖNGÜSÜ

Genel yapısına bakacak olursak ;

CODE:

If şart then

Komut;

Else

diğer komut;


Örnek verecek olursak

CODE:

Var

i:integer;

begin

i:=0;

i:=i+i;



If i=1 then begin

Label1.caption:='Yanlış!;

end;



end;



Case Döngüsü

Bir değişkenin aldığı bir çok değere göre ayrı komutların çalıştırılması gereken durumlarda Case döngüsü kullanılır.

Genel yapısına bakalım şimdi

CODE:

Case değişken of

durum1:komutlar;

durum2:komutlar;



..........



durum:komutlar;

Else komutlar

end;



Kodlara dikkat ederseniz eğer değişken durumlara göre değer aldığı zaman ilgili komutlar çalışacaktır.
Eğer değişkenin değeri hiç birine uymuyorsa Else dn sonraki komut çalışacaktır.

Örnek verelim hemen

CODE:

Case x of

1:label1.caption:='Merhaba';

2:label1caption:='TheCoders Uyeleri';

3:edit1.text:='Oguz-Coder'

else

edit1.text:='Görüşmek üzere';

end;

FOR DÖNGÜSÜ

For döngüsünün genel yapısına bir bakalım isterseniz.

CODE:

For i:= ilkdeger to sondeger do

begin

komut;

end;



Burada to kullanıldığı için i artarak değerler almaktadır.Down to kullanıldığı zaman değer i değerleri
azalarak gider.

CODE:

For i:=İlkdeger down to sondeger do



begin

komut;

end;



Hemen bir örnekle kullanımını açıklayalım isterseniz
CODE:

Var

i:array[1..20]of String;

,k:integer;

begin

for i:=1 to 20 do

i[k]:=InputBox ('i deger girişi,Inttostr(k)+'.nin adı',' ');

end;



WHİLE-DO DÖNGÜSÜ

Bir şart gerçekleştiği zaman çalışması gereken program bloklarında kullanılmaktadır.
Şimdi genel yapısına bir göz atalım.

CODE:

While şart do

Begin

Komutlar;

end;



Örnekle açıklayalım şimdide.

CODE:

Var

i:=0;

,while i<10 do

Begin

Label1.Caption:=inttostr(i);

i:=i+1;

end;



REPEAT-UNTİL DÖNGÜSÜ

Genel yapısını aşağıda vericem.Ne işe yaradığını söylemek gerekirse şart gerçekleşene kadar
çalışması gereken kısımlarda kullanılır.

CODE:

Repeat

Komut;

Until Şart;


Hemen bir örnek vererek açıklayalım.

CODE:

Var

i:integer;

begin

repeat

i:=50;

Until(i>0)and(i<50)

end;

Oguzz
oguz@thecoders.net
27 Temmuz 2007 18:21