Dodał admin, 2007-08-05 Autor / Opracowanie: Marcin D.

Pętla jest to instrukcja lub zestaw instrukcji do wykonania przez program pod określonym warunkiem. Jak sama nazwa wskazuje powtarza pewną czynność określoną ilość razy, działa dopóki... (Marcin D.)

program petla2;
uses crt;
var a:byte;
begin
for a:=10 downto 1 do
begin
write('PETLA');
end;
end.

A teraz wyjaśnienie. Najpierw deklarujemy zmienną "a" jako liczbę z zakresu
0-255 (czyli byte). Teraz od zmiennej "a" równej 1 do liczby 10 program zrobi to co jest na dole po słowie BEGIN, czyli napisze słowo "PETLA" i powtórzy to 10 razy (bo taki był ustalony granicznik pętli), a następnie zakończy go.

Te dwa powyższe programy różnią się tym, że pierwszy wypisuje "PETLA"
od 1 do 10, a drugi od 10 do 1. W tym drugim licznik na początku przyjmuje wartość 10 i schodzi do 1, w pierwszym jest na odwrót, efekt jest taki sam.

3. Pętla While – Do
Budowa pętli WHILE – DO:

"WHILE (warunek) DO (instrukcja)" – (dopóki);

Po słowie WHILE wpisujemy warunek, który jest najczęściej jakimś wyrażeniem logicznym, czyli zwracającym jedną z dwóch wartości: prawda lub fałsz.
Po słowie kluczowym DO wstawiamy instrukcje. Gdy jednak chcemy zastosować więcej komend, trzeba zastosować instrukcje złożoną (grupującą). Pętla jest wykonywana tak długo, jak jest spełniony warunek wykonywania pętli.

program ile;
uses crt;
var a:byte;
begin
write('Ile to 2+2? ');
readln(a);
while a=4 do
begin
writeln('Dobrze');
end;
end.