Бөлім 1

1. Конструкциялар p^[2], q^+[2] и r^^ мү мкін бе? Жауаптарың ды дә лелдең дер.
2. Сипатталу берілген:
type Ref = ^Integer;
var p, q: Ref;

Суретте кө рсетілгендей p жә не q айнымалыларының мә ні бар:

Келесі сқ рақ тарғ а жауап берің дер.
a) p айнымалысының мә нi не болып табылады: табандатқ ан тү рдiң (айнымалы) объектiсі ә лде ө зiнiң объектiсіне сiлтеме ме? p^ айнымалысы нені білдіреді: бү тiн санғ а табандатқ ан тү рдiң объектiсі, ө зiнiң объектiсіне ә лде 5 бү тін санына сiлтеме ме? p жә не p^ айнымалыларының типі қ андай?

b) Операторларды орындаудың нә тижесiнде не басып шығ арылады:
p^: =q^;
If p=q
then p: =Nil
else If p^=q^ then q: =p;
If p=q then q^: =4;
WriteLn (p^)

3. Айнымалылардың сипаттамасы берілген:
var p, q: ^Integer;
r: ^Char;
Келесi операторлардың қ айсысы дұ рыс емес жә не неліктен?

a) p: =q, b) q: =r, c) p: =Nil, d) r: =Nil, e) q: =p^, f) p^: =Nil.

4. Айнымалылардың сипаттаммасы берілген:
var p, q: ^Integer;
r: ^Char;

Келесi операторлардың қ айсысы дұ рыс емес жә не неліктен?
a) r^: =p^, d) If q> Nil then q^: =p^,
b) q^: =Ord (r^), e) If q=p then Write (q),
c) If r< > Nil then r^: =Nil^, f) If q< > r then Read (r^).

5. Сипаттама берілген:
type A = ^Char;
B = Record
f1: Char;
f2: A
end;
var p: ^B;
q: A;
P жә не q айнымалыларының мә ндерiнiң қ ұ рылымын келесi операторлардың орындауынан кейiн бейнелең дер:

New (q); q^: ='7'; New (p); p^.f1: =Succ (q^); p^.f2: =q;

6. Сипаттама берілген:

type D = Record a: Boolean; b, c: ^Real end; var r: ^D;

r айнымалысының мә ні суретте кө рсетілген. r айнымалысының мә нi операторлардың орындауынан кейiн нешеге тең:

If r^.b< > Nil then r^.c: =r^.b;
r^.b^: =r^.c^-1.4; r^.a: =r^.b=r^.c;

7. Тү рдің сипаттамасы берілген:
type Ref= ^Real;
Vector = Array [1..100] of Ref;

Барлық X векторының элементтері Nil элементерінен ө згеше, M_a_x(X) функциясын қ ұ растыру ү шін ең ү лкен санды табылуы Х элементтінің векторнына сілтелінеді.

8. Тү рдің сипатталуы берілген:
type Ref= ^Real;
Vector = Array [1..100] of Ref;

Барлық X векторының элементтері Nil элементерінен ө згеше, N_e_g_l (X) функциясын қ ұ рың дар, егер мұ ндай элементтер жоқ болса Х векторнының элементтерінің біріншісін қ айтаратын, теріс сандарғ а немесе Nil сiлтейтiн, егер мұ ндай элементтер жоқ болса.

9. Тү рдің сипатталуы берілген:
type Ref= ^Real;
Vector = Array [1..100] of Ref;

Барлық X векторының элементтері Nil элементерінен ө згеше, S_a_m_e (X) логикалық функциясын қ ұ растырың дар, Х векторнында ең болмаса екі бірдей сілтеме бар ма екенін тексереді.

10. Тү рдің сипатталуы берілген:
type Ref= ^Real;
Vector = Array [1..100] of Ref;
Барлық X векторының элементтері Nil элементерінен ө згеше, построить U_n_i_q_u_e (X) процедурасын, X векторнының барлық элементтері, тең сандарғ а сiлтейтiн, бiрiншi элементтiң мә нiне алмастырады.

11. Келесі программаны қ арастырайық:
PROGRAM D_y_n_a_m_i_c (Input, Output);
Var x: ^Boolean;
y: Boolean;
BEGIN
{A} New (x);
{B} x^: =TRUE; y: =NOT x^;
{C} Dispose (x);
{D} WriteLn (y)
END.

Сұ рақ тарғ а жауап берің дер: (a) A, B, C, D нү ктелерінің ә рқ айсысында қ андай айнымалылар бар жә не олардың мә ні осы уақ ытта қ андай? (b) х айнымалысының у айнымалысына сілтемесін беруге бола ма? Dispose процедурасы арқ ылы х жә не у айнымалысын жоюғ а бола ма?

12. Сипаттама берілген:

type Chain = ^elem;
Elem = Record
Data: Integer;
Link: Chain
end;
var p, q: Chain;

P айнымалы мә нiнiң қ ұ рылымын келесi операторлардың орындауынан кейiн суретiн салың дар:

a) New (p); p^.Data: =4; p^.Link: =Nil;
b) New (p); p^.Data: =7; p^.Link: =p;
c) New (q); q^.Data: =2; q^.Link: =Nil;
New (p); p^.Data: =1; p^.Link: =q;
d) New (p); p^.Data: =5; New (p^.Link); p^.Link^: =p^;

13. Р айнымалысын сипаттаң дар (жә не, егер қ осалқ ы айнымалы керек болса) жә не кө рcетiлген мә ндердi ол сiң iрушi операторларды кө шiрiп алың дар.

a)

b)