Funcții și Proceduri

1.

1 point

7. Funcțiile sunt subprograme care calculează și returnează o valoare.

True

False

2.

1 point

Se consideră programul de mai jos. Ce valori vor fi afișate după executarea acestuia?

Program P10;
var x:integer;
Function Joc(x,y:integer):byte;
begin
write(x,' ');
if (x<=3) then
begin
write(y,' ');
inc(y); joc:=joc(x+1,y)+1;
end
else joc:=0;
end;
Begin
x:=1;
write(joc(2,x));
End.

2 1 3 2 4 2

2 1 3 1 4 2

2 1 3 2 4

1 1 1 2 1 2

3.

1 point

Se consideră programul de mai jos. Ce valoare va fi afișată pentru setul de date de intrare x=32, y=14?

Program P1;
var x,y:integer;
Function F(a,b:integer):integer;
begin
if a<>b then
if a>b then f:=f(a-b,b)
else f:=f(a,b-a)
else f:=x*y div a;
end;
Begin
readln(x,y);
write(F(x,y));
End.

2

256

200

224

14

4.

1 point

3. Ce se va afișa în urma executării programului următor?

Program P3;
var x:integer;
Procedure P1(y:integer);
var x:integer;
begin
x:=y; x:=2; write(x,' '); y:=x;
end;
Procedure P2(var y:integer);
begin
x:=y; x:=3; write(x,' '); y:=x;
end;
Begin
x:=1;
p1(x); write(x,' ');
p2(x); writeln(x);
End.

2 2 3 3

2 2 3 2

2 1 3 3

2 1 3 2

5.

2 points

5. Indicați care dintre următoarele antete de funcții sunt corecte:

Function F1(z:integer);

Function F2(x,y):real;

Function F12(c:char):real;

Function F3(y:integer):text;

Function F4(y:byte; z:real):real;

6.

1 point

4. Ce se va afișa în urma executării programului următor?

Procedure P(x:integer; var y:integer);
begin
y:=y*x; x:=x+y;
write(x,' ',y,' ');
end;
Begin
a:=11;
P(a,a);
writeln(a);
End.

11 121 11

132 121 121

242 242 242

11 121 121

7.

1 point

6. Ce se va afișa în urma rulării programului de mai jos?

Program P6;
var x:byte;
Function F(x:byte; b:byte):byte;
begin
if b<>0 then begin
x:=x+b mod 10;
F:=F(x,b div 10)+x;
end
else F:=0;
end;
Begin
x:=0;
write(f(x,123),' ');
write(F(x,123));
end.

14 14

18 18

0 0

18 36

8.

1 point

2. Ce se va afișa în urma executării programului următor?

Program P2;
var x,y,z:integer;
Procedure P(a,b:integer; var c:integer);
var aux:integer;
begin
aux:=a; a:=b-a;
c:=c-aux; b:=aux;
end;
Begin
x:=10; y:=100; z:=200;
p(x,y,z);
write(x,' ',y,' ',z,' ');
p(x,y,z);
write(x,' ',y,' ',z);
End.

90 10 190 176 90 100

10 10 190 10 10 180

10 100 190 10 100 190

10 100 190 10 100 180

9.

1 point

9. Fie dată structura următoare de program:

Program P9;
var a:real;
Procedure P1(b:real);
var c:real;
Procedure Test(x:char);
begin
x:=char(89);
writeln(x);
end;
begin
c:=b+1;
writeln('c=',c);
Test('A');
end;
Function F(x:real):real;
begin
f:=x/2;
end;
Begin
a:=F(5);
writeln('a=',a);
P1(a);
End.

Scrieți în caseta de mai jos de ce nivel este considerat subprogramul Test.

10.

1 point

8. Parametrii formali introduși în listă prin declarații de forma:
var x1,x2,..xn:tp;
se numesc?