Sâmbătă, 20.04.2024, 16:17
Bine aţi venit Vizitator

Bine ai venit

Acasă | Repeat | Înregistrare | Autentificare | RSS
Meniu site
Sondajul nostru
Evaluează site-ul meu
Rezultate | Arhiva sondajelor
Total răspunsuri: 17
Statistici
Total online: 1
Vizitatori: 1
Utilizatori: 0
Instrucţiunea REPEAT este un ciclu cu test final care indică repetarea unei secvenţe de instrucţiuni în funcţie de valoarea unei expresii booleene.

Instrucţiunea repeat are forma:                         
 
REPEAT
      secvenţă
  UNTIL condiţie;
unde secvenţă reprezintă instrucţiunile din corpul instrucţiunii REPEAT, trebuie să fie de tip boolean şi se evaluează după fiecare iteraţie. 
Atenţie: spre deosebire de While, ieşirea din această instrucţiune se face atunci cînd valoarea condiţiei este True. 
  Pentru o instrucţiune infinită se va folosi:
  Repeat
      Instrucţiune;
  until False;
Principiul de execuţie:
  • se execută secvenţa de instrucţiuni;
  • se evaluează expresia logică;
  • dacă rezultatul evaluării este FALSE atunci se execută din nou secvenţa de instrucţiuni, în caz contrar se trece mai departe;
  • secvenţa de instrucţiuni se execută cel putin o dată, după care se pune problema reluării sau nu a execuţiei, după evaluarea expresiei logice.

 

                       Exemplu de program:
1.

Program p5;
  var cnt : integer;
begin
  cnt := 1;
  Repeat
    WriteLn(cnt);
    cnt:=cnt + 1;
  Until cnt > 20;
  ReadLn;
end.

După ce cnt are valoarea 20 şi este afişat, va fi crescut cu 1 (devenind 21), caz în care condiţia devine adevărată (cnt > 20), motiv pentru care se iese din instrucţiune. 
Autentificare
Căutare