CLASA 9 INSTRUCȚIUNI

ÎNCERCUIȚI COMANDA DE CONDIȚIE FORMA COMPLECTĂ:

• IF a>10 else x:=25 then x:=6;
• IF a>10 then x:=25 else x:=6;
• IF a>10 then x:=25 then x:=6;

ÎNCERCUIȚI COMANDA DE CONDIȚIE FORMA NECOMPLECTĂ:

• IF a>10 else x:=25 then x:=6;
• IF a>10 else x:=25 
• IF a>10 THEN x:=25 

CE VA AFIȘA PROGRAMUL DE MAI JOS.
Program p5;
var x,y:integer;
begin
x:=3;
if x<=5 then y:=10 div 3 else y:=10 mod 4;
writeln (y);
end.

• 4
• 3
• 2

Ce valori va avea
variabil n după execuția următorului fragment de program dacă n=0 și x=3.
REPEAT
X:=X DIV 2;
N:=N+1;
UNTIL X=0;

• 3
• 2
• 1

DE CÂTE ORI SE VA REPETA CICLUL DE MAI JOS:
for i:=10 to 14 do a:=a+4;

• 4
• 3
• 5

DE CÂTE ORI SE VA REPETA CICLUL DE MAI JOS:
for i:=12 downto 14 do a:=a+4;

• 2
• 0
• 3

SELECTAȚI REZULTATUL CORECT PENTRU PROGRAMUL DAT:
program p7;
var i,x:integer;
begin
i:=5;
case i of
1..3: x:=i+10;
2..7: x:=i*i;
6..10: x:=i*i*i;
end;
writeln (x);end.

• 15
• 25
• 5

CU CE VA FI EGAL g DACĂ a:=15,b:=-12;p:=true.
IF P and (a<b) then g:=19 else g:=78;

• 19
• 29
• 78

CE VA AFIȘA PROGRAMUL URMĂTOR, DACĂ DE LA TASTATURĂ SE ÎNTRODUC ÎN ORDINE NUMERELE 5,6 și 8.
program p9;
var x,y,z,m:integer;
begin
readln (x,y,z);
m:=(x+y+z) div 3;
case m of
1..4: writeln ('Corigent');
5..7:writeln ('Mediocru');
8..9: writeln ('Satisfacator');
10 : writeln ('Foarte bine') else
writeln ('Eroare') ;end;end.

• Corigent
• Satisfacator
• Mediocru
• Foarte bine

CÂND CORPUL CICLULUI ESTE ALCĂTUIT DIN MAI MULTE INSTRUCȚIUNI SE FOLOSEȘTE URMĂTOAREA FORMĂ A INSTRUCȚIUNII WHILE:

• WHILE CONDIȚIE DO UNTIL
• WHILE CONDIȚIE DO BEGIN 
  INST.1
  INST.2
  INST.N 
  END;
• WHILE CONDIȚIE REPEAT DO