Pascal Programlama Dili

Bir de tek bir sayfada bütün çarpım tablosunu yazalım.

Program Carpim_Tablosu;
uses wincrt;
var
x,y:byte;
begin clrscr;
gotoxy(27,1);write('Ç A R P I M T A B L O S U');
x:=0;
repeat
x:=x+1;
y:=0;
repeat
y:=y+1;
if x<=5 then gotoxy(x*16-15,y+2) else gotoxy((x-5)*16-15,y+13);
write(x:2,' x ',y:2,' = ',(x*y):3);
until y=10;
until x=10;
readln;
end.

While .. Do Döngüsü
Repeat..until döngüsünde bir şart oluncaya kadar yap diyorduk while..do döngüsünde ise bir şart olduğu sürece yap diyoruz. Kullanımı if'in kullanımına benzer:
While sart ya da sartlar do
begin
islemler
end;

Şimdi while..do döngüsüyle 100 e kadarki sayıları yazan bir program yapalım;

Program deneme3;
uses wincrt;
var
sayi:integer;
begin
clrscr;
sayi:=1;
while (sayi<=100) do {sayi 100 den küçük olduğu sürece aşağıdaki işlemi yap}
begin
writeln(sayi);{sayi yi yaz}
sayi:=sayi+1; {sayinin üstüne bir ekle ve yeni değeri sayi olarak ata}
end;
end.

For - to [downto] - do Döngüsü

Kullanımı while..do ya benzer ama bu döngüde bir değerden başka bir değere kadar ilk değerin birer birer arttırılması ve her arttırılmada bir işlem yapılması sağlanır. Komutun kullanımı açıklamasından daha basit:

For x:=ilk_deger to son_deger do
begin
islemler
end;

Daha demin while..do ile 100 e kadar olan sayıları ekrana yazdırmıştık şimdi aynı şeyi for..to..do ile yapalım.

Program yuzekadar;
uses wincrt;
var
x:integer;
begin
clrscr;
for x:=1 to 100 do
writeln(x);
readln;
end.

Aynı while.doo ile yaptığımız işlemi çok daha kısa kodlarla hallettik. Döngülerin avantajlarını görüyoruz. Bir örnek daha yapalım anlamak için:

Program yuzekadarkare;
uses wincrt;
var
x,kare:integer;
begin clrscr;
for x:=1 to 100 do
begin
kare:=x*x;
writeln(x,' karesi: ',kare);
end;
end.

to ile birer birer arttırır downto ile birer birer azaltırız yani;

Program yuzekadarkare;
uses wincrt;
var
x,kare:integer;
begin clrscr;
for x:=100 downto 1 do
begin
kare:=x*x;
writeln(x,' karesi: ',kare);
end;
end.

yukardaki ile aynı işlemi yapar.Sadece tersten gider.

Bu döküman ZoRKaYa tarafından Tahribat.Com için yazılmıştır.