Бөлім 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п алыңдар.