Bartosz Banasiewicz

Wydział Nawigacyjny

Kierunek Transport Morski

Pętla jest instrukcją , która zostanie wykonana przez program pod jakimś warunkiem. Pętla powtarza pewną czynność dopóki warunek nie zostanie spełniony. Używamy jej przy czynnościach, które wymagają wielokrotnego powtarzania do określonego momentu.

Program sprawdzający czy w komponencie memo1.lines występuje tekst `134'.

Var x: string; znaleziono: boolean;

Begin

For x in memo1.lines do

If x= `134' then

Znaleziono: true;

memo - Dla kazdego elementu x w zbiorze y wykonaj…

Pętla powtarza czynność, az do wyczerpania wszystkich elementow w zbiorze. Program przeszukuje dane w poszukiwaniu wskazanego element. Wyszukiwane są kolejne jego elementy. Wartosc poczatkowa to pierwszy element, natomiast wartość koncowa wystepuje jako element ostatni. Każdy element zbioru jest sprawdzany

Suma liczb podzielna przez 5 w przedziale [50-100].

Var Suma, x: integer;

Begin

Suma:= 0;

For x:=50 to 100 do

If x mod 5=0 then suma:= suma+x;

W drugim programie zajmowalismy sie użyciem pętli „FOR to DO”. Wykonuje ona zbior operacji dla poszczególnych wartości ograniczonych przedzialem.
Pierwsze słowo FOR to słowo kluczowe, że w tym miejscu będzie pętla. Po nim następuje od razu zmienna sterująca pętlą FOR.

Po wartości początkowej pętli wstawiamy słowo kluczowe „To” a po nim wartość końcową. Po ograniczniku stawiamy słowo kluczowe DO i następnie jedną instrukcję, która będzie wykonywana w pętli.

---