Miercuri, 30.07.2025, 10:11
Bine aţi venit Vizitator

Bine ai venit

Sondajul nostru

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

Bine ai venit

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.

Exemplu de program:
1.

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