|
Pascal’da Döngüler:
1- For - do Döngüsü
2- Repat-Until Döngüsü
3- While - do Döngüsü
1- For - Do Döngüsü: Başlangıç ve bitiş değeri bilinen işlemlerde kullanılır.
For i:=[BaşlangıçDegeri] to [BitisDegeri] do
Begin
…….
…….
End;
2- Repeat-Until Döngüsü : Koşul işlem sonunda kontrol edileceğinden enaz bir defa komutlar çalıştırılır.
Repeat
…..
……
Until Koşul
3- While Döngüsü : Koşul öncelikle kontrol edildiğinden, koşula uygun işlemler sonra yapılır.
While koşul Do
Begin
….
….
End;
Örnekler :
Trunc : Sayının tam kısmını kullanır, Ondalık kısmını siler.
Sayi1:integer;
Sayi2:real;
Sayi2:=7/2; işlem sonucu=3.5 hesaplanır
Sayi1:=trunc(7/2); işlem sonucu= 3 hesaplanır.
Örnek : 50 ile 500 arasındaki çift sayıları ekrana yazdıran program hazırlayınız.
Repeat-Until ile Hazırlanışı:
program Cift_Sayilar_1;
uses crt;
Var
i:integer;
sayi:integer;
begin
clrscr;
i:=49;
repeat
i:=i+1;
sayi:=trunc(i/2);
if sayi=i/2 then
write (i, ' ');
until i=500;
readln;
end.
For – do ile hazırlanışı:
program Cift_Sayilar_2;
uses crt;
Var
i:integer;
sayi:integer;
begin
clrscr;
for i:=50 to 500 do
begin
sayi:=trunc(i/2);
if sayi=i/2 then
write(i,' ');
end;
readln;
While – Do ile Hazırlanışı:
program Cift_Sayilar_3;
uses crt;
Var
i:integer;
sayi:integer;
begin
clrscr;
i:=49;
while i<=500 do
begin
i:=i+1;
sayi:=trunc(i/2);
if sayi=i/2 then
write(i,' ');
end;
readln;
end.
end.
Örnek : Klavyeden girilen sayının tek veya çift olup olmadığını denetleyen program yazınız.
program cift_sayi_mi;
uses crt;
var
sayi :integer;
begin
clrscr;
write('Sayi Giriniz= ');readln(sayi);
if sayi/2=trunc(sayi/2) then
writeln(sayi, ' sayisi Cift Sayidir.')
else
Writeln(sayi,' Sayisi Tek Sayidir.');
readln;
end. > |