Pascal Programlama - 5

Merhaba,

Bu yazımda Pascal Programlamada döngüler konusunu inceleyeceğiz.

Döngüler, diğer programlama dillerinde olduğu gibi Pascal içinde çok önemlidir. Döngüler sayesinde daha kapsamlı programlar yazmaya başlayacağız.

Program yazarken tekrarlanması gereken işlemler için döngüler kullanılmaktadır.

Üç adet döngü inceleyeceğiz. Bunlar; For, While ve Repeat döngüleri

For Döngüsü:

for dögü değişkeni:=başlangıç değeri to bitiş değeri do
    begin
        {kod satırları}
    end;

For döngüsü kullanımı yukarıda görüldüğü gibidir. Döngü değişkeni başlangıç değerinden bitiş değerine kadar artar ve her defasında istenilen işlemler yapılmaktadır. 

for dögü değişkeni:=başlangıç değeri downto bitiş değeri do
    begin
        {kod satırları}
    end;

Buradaki for kullanımda ise, başlangıç değeri bitiş değerine kadar azalır ve her defasında istenilen işlemler yapılmaktadır.

Repeat Döngüsü:

Aşağıda görüldüğü gibi istenilen şart sağlanana kadar işlemler devam eder.

repeat
    {kod satırları}
until (şart);

Repeat döngüsünde birden fazla satır için begin-end yazılmasına gerek yoktur. 

While Döngüsü:

Aşağıda görüldüğü gibi istenilen şart sağlanana kadar işlemler devam eder.

while (şart) do
    begin
        {kod satırları}
    end;

While Ve Repeat Döngüsü Arasındaki Farklar:

• Repeat döngüsünde şart yanlış olduğu sürece, While döngüsünde ise şart doğru olduğu sürece döngü devam etmektedir.
• Repeat döngüsünde şart sonda kontrol edilir. Bu yüzden şartın doğru ya da yanlışlığına bakılmaksızın bir defa işlem yapılır ve şart sağlanmış ise döngü bitirilir. While döngüsünde ise şart döngüden önce kontrol edildiği için şart sağlanmıyorsa işlem yapılmadan döngü bitirilir. 

Şimdi faktöriyel hesaplayan programın farklı döngü çeşitleri ile yapılış örneklerinin kodları paylaşacağım. 

Program, girilen sayının faktöriyelini hesaplayıp, repeat döngüsü yardımıyla kullanıcının cevabına göre programı devam ettirmektedir.

uses crt;
var
    fakto    :extended;
    i,num    :integer;
    x        :char;
begin
    repeat
        clrscr;
        write('Bir Sayi Girin:');
        readln(num);
        
        fakto:=1;
            for i:=2 to num do
                begin
                    fakto:=i*fakto;
                end;
        writeln(num,'!=',fakto);
        writeln('devam edeyim mi?(e/h)');
        readln(x);
    until ((x='h') or (x='H'));
end.

uses crt;
var
    fakto    :extended;
    i,num    :integer;
    x        :char;
begin
    repeat
        clrscr;
        write('Bir Sayi Girin:');
        readln(num);
        
        fakto:=1;
            for i:=num downto 2 do
                begin
                    fakto:=i*fakto;
                end;
        writeln(num,'!=',fakto);
        writeln('devam edeyim mi?(e/h)');
        readln(x);
    until ((x='h') or (x='H'));
end.

uses crt;
var
    fakto    :extended;
    i,num    :integer;
    x        :char;
begin
    repeat
        clrscr;
        write('Bir Sayi Girin:');
        readln(num);
        
        fakto:=1;
        i:=1;
            while (i<=num) do
                begin
                    fakto:=i*fakto;
                    i=i+1;
                end;
        writeln(num,'!=',fakto);
        writeln('devam edeyim mi?(e/h)');
        readln(x);
    until ((x='h') or (x='H'));
end.