While döngüsünün amacı belirtilen şart veya şartlardaki işlemlerin durumuna göre blok içerisindeki işlemlerin yapılmasını sağlamaktır.

Temel kullanımı:

WHILE sart DO

BEGIN
END;

WHILE (sart) OR (baska_bir_sart) DO

BEGIN
END;

WHILE (sart) AND (ikinci_sart) DO

BEGIN
END;

Bu yapıda bazı kurallara dikkat etmeniz gerekli. Eğer döngüyü hiç bitmeyek bir şekle getirirseniz yazılımınızı zorla kapatmanız gerekecektir...

Bir örnek:

var

 n : integer;

begin

 n:=1;

 while n<10 do

 begin

   n := n + 1;

 end;

end;  

n değişkeni 1 den başladığı için while'ın begin end bloğu içinde toplam işlem miktarı 9 olacaktır.

For komutundan farklı olarak şartlar istenirse blok içerisinde değiştirilebildiğinden bu döngülerin sonlandırma şartlarını netleştirilmesi faydanıza olacaktır.

Bir başka örnek:

var

 n,z : integer;

begin

 z := 100;

 n := 1;

 while (n<10) and (z>20) do

 begin

   n := n + 1;

   z := z - 1;

 end;

end;

İşlem sonucu şöyledir:

n: 2  z: 99:

3: 98:

4: 97:

5: 96:

6: 95:

7: 94:

8: 93:

9: 92:

10: 91:

çünkü and şartı ile iki olayın da belirlenen sayılar içerisinde ise yapmasını istiyoruz.

Eğer OR şartı ile gerçekleştirseydik:

n=2 z=99

n=3 z=98

n=4 z=97

n=5 z=96

n=6 z=95

n=7 z=94

n=8 z=93

.

.

.   (Devam eden işlemler...)

.

.

n=76 z=25

n=77 z=24

n=78 z=23

n=79 z=22

n=80 z=21

n=81 z=20

Created with the Personal Edition of HelpNDoc: Full-featured EBook editor