Pascalio uždavinys

Gal kas galite padėti išspręsti :) ?

Pratimas 2.

Duota programa:

BEGIN
 INTEGER I; INTEGER ARRAY B[1,2];

   PROCEDURE Q(x); INTEGER x;
   BEGIN
     I:= 2; x:= x+6; B[i]:= 5;
     I:= 1; x:= x+7;
   END

 B[1]:= 3; B[2]:= 4; I:= 2;
 Q(B[i]);
END

Programa vykdoma 5 kartus, į procedurą Q(x) kreipiantis skirtingai:

1. pagal reikšmę

2. pagal nuorodą

3. pagal rezultatą

4. pagal reikšmę ir rezultatą

5. pagal vardą

Parasyti, kam bus lygus B[1], B[2] visais penkiais atvejais.

Gal kas galite padėti išspręsti :) ?

 

Pratimas 2.

Duota programa:

BEGIN
 INTEGER I; INTEGER ARRAY B[1,2];

   PROCEDURE Q(x); INTEGER x;
   BEGIN
     I:= 2; x:= x+6; B[i]:= 5;
     I:= 1; x:= x+7;
   END

 B[1]:= 3; B[2]:= 4; I:= 2;
 Q(B[i]);
END

Programa vykdoma 5 kartus, į procedurą Q(x) kreipiantis skirtingai:

1. pagal reikšmę

2. pagal nuorodą

3. pagal rezultatą

4. pagal reikšmę ir rezultatą

5. pagal vardą

Parasyti, kam bus lygus B[1], B[2] visais penkiais atvejais.

Pagal reikšmę:

B[1] - 10

B[2] - 1

Pagal nuorodą:

B[1] - 12

B[2] - 1

Pagal rezultatą:

B[1] - Neapibrėžiamas

B[2] - 1

Pagal reikšmę ir rezultatą:

B[1] - 5

B[2] - 1

Pagal vardą:

B[1] - 10

B[2] - 3

Pagal reikšmę:

B[1] - 10

B[2] - 1

Pagal nuorodą:

B[1] - 12

B[2] - 1

Pagal rezultatą:

B[1] - Neapibrėžiamas

B[2] - 1

Pagal reikšmę ir rezultatą:

B[1] - 5

B[2] - 1

Pagal vardą:

B[1] - 10

B[2] - 3

O gal dar gali trumpai pasakyti kaip čia skaičiavai :) ?

Sorry, tik atsakymus radau, sprendimo nežinau, teks pačiam pasikrapštyti :(