While koşul(lar) do
Begin
...
işlemler;
...
End;
Örnek :
Var
I : Integer;
begin
I := 100;
while((I >= 0) and (I <= 9)) do
begin
Write('Bir sayı giriniz : ');
ReadLn(I);
end;
writeln(‘Sayı 0..9 arasındadir.’
;End.
While-Do Döngüsü
Whiledan sonraki koşul doğru olduğu sürece işlem(ler) tekrarlanır. Whiledaki koşul(lar) doğru olduğu anda döngüden çıkar.
While koşul(lar) do
Begin
...
işlemler;
...
End;
Örnek :
Var
I : Integer;
begin
I := 100;
while((I >= 0) and (I <= 9)) do
begin
Write('Bir sayı giriniz : ');
ReadLn(I);
end;
writeln(‘Sayı 0..9 arasındadir.’;
End.
![[Resim: www.zohreanaforum.com]](https://www.zohreanaforum.com/)
[COLOR=#c5003f]Repeat-Until Döngüsünden farklı olarak öncelikle koşual bakılır sonra döngü başlar.
[COLOR=#c5003f] 1-Döngüden çıkabilmek için mutlaka koşulun döngü içinde değişmesi gerektiğine dikkat edin.
[COLOR=#c5003f]2-Birden fazla koşul kullanacaksanız bu koşulların tümünü bir parantez içine alın.
While koşul(lar) do
Begin
...
işlemler;
...
End;
Örnek :
Var
I : Integer;
begin
I := 100;
while((I >= 0) and (I <= 9)) do
begin
Write('Bir sayı giriniz : ');
ReadLn(I);
end;
writeln(‘Sayı 0..9 arasındadir.’
;End.
![[Resim: 114ld.jpg]](http://b1112.hizliresim.com/s/c/114ld.jpg)
Ben göremem daha uzun boyunu
Ahret derler kısaltamam yolunu
Bugün Sahı Merdan sarsın oglunu
Yetis Ya Üseyin baban gidiyo