Continue

Continue
Fortran programlama dilinde olduğu gibi tekrarlama çevrimini yeniden başlatır. Programcı, bilgi girişlerinde kullanıcının sayısal olmayan bir giriş yapacağını varsayarak önlem almak amacıyla tekrarlama işlemlerini yeniden başlatmak için CONTINUE komutu kullanılır. Bu deyim PASCAL 7.0 ' da geçerlidir.
Program Continue_Kullanimi;Uses Crt; {Windows için Wincrt}Constn=5;varsayac,i:integer;rakam :Array [ 1..n] of Real;toplam:Real;beginclrscr;toplam:=0; sayac:=1;While sayac <>0 thenbeginWriteln('Rakam girmelisiniz');CONTINUE;end;sayac:=sayac+1end;For I:=1 to sayac dotoplam:=toplam+rakam[ i] ;Writeln('Toplam Sayı :',Toplam:7:2);end.
Örnek program çalıştırıldığında kullanıcının hatalı bir giriş yapması halinde Run Time Error hatası oluşacaktır. Bu hatalı durum IORESULT hata durumu fonksiyonu ile kontrol ettirilerek programın kırılması önlenir ve CONTINUE komutu tekrarlama çevrimini tekrar başlatır. Ancak hata yoklama rutinleri {$I-} ile pasif duruma düşürülmüştür. IORESULT fonksiyon değeri kontrolü yapabilmek için {$I-} derleme komutu verilerek Pascal hata yoklama rutinleri pasif duruma alınmalıdır. Ancak kontrol işlemi bittikten sonra hata yoklama rutinleri {$I+} ile tekrar aktif duruma getirilmelidir.
Break
Turbo Pascal 7.0 programlama dilinde bir döngüyü kırarak sona erdirmek amacıyla kullanılır. Program içinde BREAK deyimiyle karşılaşıldığında içinde bulunduğu döngüden sonraki program satırının işler hale getirir. BREAK komutu FOR-DO, REPEAT-UNTIL ve WHILE-DO döngülerinin içinde kullanılabilir.
Konunun daha iyi anlaşılabilmesi için aşağıdaki örneği inceleyiniz. Örnek Programda i ve j gibi iki sayının çarpımı yapılmaktadır. i=j olduğu durumda içteki döngü BREAK deyimi ile kırılmakta ve i 'nin değeri bir üst değere arttırılarak programın çalışmasına devam edilmektedir.
Program break_kullanimi;uses crt; {Windows için Wincrt}var i,j:integer;beginclrscr;for i:=1 to 10 dobeginWriteln(i,'. değeri ');for j:=1 to 10 dobeginif i=j then break; (* i=j olduğu takdirde içteki döngünün çalışması sona eriyor*)Writeln(i:3,' * ',j:3,'= ',i*j:3);end;Writeln('Devam Etmek için ENTER tuşuna Basınız');Readln;end;end.