Instrucțiuni repitative

Definiția instrucțiunei repeat.

• Este un ciclu cu test final care indică repetarea unei secvenţe de instrucţiuni în funcţie de valoarea unei expresii booleene.

• Instructiunea repetitiva cu test initial.

Ce se va afișa?

Program p1;

var a: integer;

begin

a := 1;

Repeat

a:=a + 1;

Until a < 20; WriteLn(a); readln; end.

• 21

• 20

• 1

• 2

Ce se va afișa?

Program p2;

var a ,b: integer;

begin

a := 1; b:=5;

Repeat

a:=a+1;

if a=b then b:=b+5;

Until b > 20; writeln(a); readln;end.

• 20

• 21

• 22

• 5

Care problemă e corectă?

• Var a:integer;

  Begin a:=5; repeat a:=a+5 until a>10 writeln(a);

  end.

• Var a:real;

  Begin a:=5; repeat a:=a+5 until a>10 writeln(a);

  end.

• Var a:integer;

  Begin a:=5; repeat a:=a+5 until a>10 writeln(n);

  readln; end.

• Var a:integer;

  Begin a:=5; repeat a:=a+5 until a>10 writeln(a);

  readln; end.

Alege variantele care caracterizează instrucțiunea repeat.

• 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;

• dacă rezultatul evaluării este TRUE atunci se execută din nou secvenţa de instrucţiuni, în caz contrar se trece mai departe;

Definiția instrucțiunei WHILE.

• Este ciclul cu test iniţial care conţine o expresie booleană care controlează execuţia repetată a altei instrucţiuni.

• Este o instrucţiune repetitivă care permite execuţia repetată a unei instrucţiuni în funcţie de valoarea unui contor.

Ce se va afișa?

Program P4;

var a : integer;

begin

a:= 1;

While a<= 20 Do a := a + 1;

writeln(a);

readln;

end.

• 21

• 20

• 19

• 1

Ce se va afișa?

Program P5;

var a : integer;

begin

a:= 1;

While a>20 Do a := a + 1;

writeln(a);

readln;

end.

• 21

• 22

• 20

• 1

Care din variante e corectă?

• var a : integer; begin a:= 1;

  While a>20 Do a := a + 1;

  writeln(a); end.

• var b : integer; begin a:= 1;

  While a>20 Do a := a + 1;

  writeln(a); readln; end.

• var a : integer; begin a:= 1;

  While a>20 Do a := b + 1;

  writeln(a); readln; end.

• var a : integer; begin a:= 1;

  While a>20 Do a := a + 1;

  writeln(a); readln; end.

Alege variantele care caracterizează instrucțiunea WHILE.

• dacă valoarea expresiei este False, se iese din instrucţiunea WHILE,dacă valoarea expresiei este True, se execută instrucţiunea,apoi se revine la1;

• De remarcat că ieşirea din instrucţiune se va face doar cînd condiţia va returna valoarea False.

• se evaluează expresia logică;

• se evaluează expresia de tip ordinal (integer, char, Boolean,byte,word,longint, sau definită de utilizator ca subdomeniu sau enumerare);