Składnia języka » Pętle

Continue

  • 2010-10-31 18:27
  • 0 komentarzy
  • 874 odsłony
  • Oceń ten tekst jako pierwszy
Continue
Moduł: System

procedure Continue;

Polecenie (procedura) Continue może być używane tylko wraz z pętlami. Powoduje ono przejście do następnego wywołania pętli bez wykonywania dalszych instrukcji.

Oczywiście najlepiej istotę działania procedury (polecenia Continue poznamy na przykładzie. Załóżmy, że mamy pętlę for, która zostanie wykonana 10 razy. Za każdym razem program losuje liczbę z przedziału od 1 do 3 i na podstawie tej wylosowanej liczby wyświetla jakiś tekst. Dzięki poleceniu Continue można sprawić, aby w przypadku, gdy wylosowaną liczbą będzie 1, ominąć wyświetlenie tekstu i przejść do następnej iteracji.

program LoopContinue;
 
{$APPTYPE CONSOLE}
 
var
  I, Number : Integer; // deklaracja zmiennej
 
begin
  Randomize;
 
  for I := 1 to 10 do
  begin
 
    Number := Random(3)+1;
    if Number = 1 then Continue;
 
    case Number of
      1: Writeln('Uuu, wylosowałeś 1');
      2: Writeln('No, dwa... jeszcze może być');
      3: Writeln('Dobrze');
    end;
  end;
 
  Readln;
end.


Interesujący nas warunek znajduje się w następującym miejscu:
if Number = 1 then Continue;
. Kompilator odczytuje to tak: jeżeli zmienna Number zawiera wartość 1, pomiń wykonywanie dalszych instrukcji i przejdź od razu do kolejnej iteracji.

Zobacz też: