petle.doc

Pętle, pętle wielokrotne

W Pascalu mamy kilka rodzajów pętli. Zacznijmy alfabetycznie.

Pętla FOR

Są dwie odmiany pętla idąca w górę i w dół.

Składnie odpowiednio wyglądają:

FOR licznik:=wartosc1 TO wartosc2 DO instrukcje;

{ dla wartosc1 < wartosc2, pętla rosnąca }

FOR licznik:=wartosc1 DOWNTO wartosc2 DO instrukcje;

{ dla wartosc1 > wartosc2, pętla malejąca }

Uwagi: licznik jest typu całkowitego, zmienna licznik zmienia się o 1, nie można wykonywać skoków.

I przykład:

program trojkat;

var a,b: integer;

begin

   for b:= 1 to 5

      do

      begin {zaczyna rysowac trojkat}

          write('*':15-b);

          for a:=1 to 2*b-2

          do

          write('*');

          writeln;

      end;

readln; {czeka na nacisniecie klawisza enter, pozniej konczy program}

end.

Pętla REPEAT UNTIL

Pętla jest tak długo wykonywana dopóki warunek wyjścia nie jest prawdziwy.

REPEAT

        wypisz(tekst,ile);

UNTILL keypressed;

Jeśli ktoś naciśnie klawisz, warunek będzie prawdziwy i iteracja zostanie przerwana.

Pętla WHILE

While różni się tylko tym od Repeat, że fałsz jest warunkiem wyjścia z pętli. Składnia wygląda tak:

WHILE warunek DO instrukcje;

Przykłady użycia while:

PROGRAM Suma;

CONST   N = 1000 ;

VAR     K,SUM,X : Integer ;

BEGIN

Writeln('Wykonanie programu kończy się po wprowadzeniu');

Writeln('1000 liczb. To nie jest zabawa ani gra.') ;

K   := 1 ;

SUM := 0 ;

WHILE K <= N

DO BEGIN  {Początek treści pętli}

Write('Wprowadź liczbę typu Integer:') ;

Read(X)        ;

Writeln        ;

SUM := SUM + X ;

Writeln('Suma częściowa;',SUM:6) ;

K   := K + 1

END ;  {Koniec treści pętli}

Writeln ;

Writeln('Suma N=',N,' liczb wynosi:',SUM:6);

END.

Pętle wielokrotne (zagnieżdżone)

Pierwszy programik spowoduje wyświetlenie trzykrotnie ciągu liter od 'a' do 'z', każdy ciąg w nowej linii.

uses crt;

var k: integer;

    litera: char;

begin

clrscr;

for k := 1 to 3 do { petla zewnetrzna }

        begin   

                for litera := 'a' to 'z' { petla wewnetrzna }

                        do  write(litera:2);

        writeln;

end;

readln;

end.

Przykład pętli wielokrotnej umieściłem także przy okazji omawiania pętli FOR - program rysujący piramidę (trójkąt).