Algoritma ve programlamaya Giriş

Örnek : Dışardan okunan 10 tane rastgele sayıyı toplayıp bunların ortalamasını
hesaplayarak sonuçları ekrana yazan programı yazınız.
Var
begin
end.
6.4 While-Do
x,i:integer;
top:longint;
ort:real;
top:=0;
i:=0;
repeat
i:=i+1;
write(i,'. Sayiyi girin');
readln(x);
top:=top+x
until i=10;
ort:=top/i;
writeln(i,' adet sayinin toplami',top);
writeln(i,' adet sayinin ortalamasi',ort:5:2);
readln;
Bir program bloğunun belli bir şart sağlandığı sürece üst üste icrasını sağlayan WHILE
deyiminin genel yazılış şekli aşağıdadır.
While Do
BLOK {Yapılacak işlemler}
Do kelimesini takip eden blok WHILE deyimi tarafından döngüye sokulacak komut cümlelerini
kapsar. Komut cümlesi sayısı birden fazla ise, bu bloğun BEGIN...END deyimleri arasına
alınması zorunludur.
WHILE ile REPEAT arasındaki fark; Repeat döngüsü şart cümlesi yanlış olduğu sürece, While
döngüsü ise şart cümlesi doğru olduğu sürece devam etmesidir.
REPEAT döngüsünde şart sonda kontrol edildiği için doğruda olsa yanlışta olsa en az bir defa
işlem yapılır. WHILE da ise şart döngüye girmeden kontrol edildiği için yanlışsa hiç işlem
yapılmaz.
Örnek : Đsminizi dışardan okunan bir sayı kadar yazdıran programı yazınız.
Var
x,i:integer;
begin
write('Sayi girin');
readln(x);
Algoritma ve Programlamaya Giriş 50 Öğr. Gör. Mustafa AKSU