099 Өрнектiң мёнiн есептеу керек

[2 .. 13] [3,13 .. 60]+[4 .. 10]-[5 .. 15]*[6];

A) [2 .. 10,13 .. 15]

B) [3 .. 10,13 .. 60]

C) [3 .. 5,7 .. 15]

D) [3 .. 5,7 .. 10,13]

E) [3 .. 5,7 .. 13]

{Дұрыс жауабы}=D

100 Келесi конструкциялардың ғайсы жиын болып саналады

(Паскаль тiлiнiң ережесi бойынша)

A) [1.2 .. 3.1,5,6,7]

B) ['=','>=','>']

C) [[ ],[5]]

D) ['*','*']

E) [2.5, 2.8 .. 3.6]

{Дұрыс жауабы}=B

101 Р айнымалысына келесi информацияны меншiктеу керек :

Студенттiң фамилясы- Розов Р., газеттiң аты – “Горизонт”

Ба№асы- 300 тенге

Type студ.= record

фио: string [20];

газ: record

назв: string [10];

стоим: 100..800

end;

end;

var p:студ.;

А) with p do

begin фио:= ’ Розов Р. ’ ; назв:= ‘Горизонт ‘ ; Стоим:= 300

end;

B) with p do

begin фио:= ’ Розов Р. ’ ; газ. назв:= ‘Горизонт ‘ ; газ.Стоим:= 300

end;

C) with p do

фио:= := ’ Розов Р. ’ ;

with газ do

begin назв:= ‘Горизонт ‘ ; Стоим:= 300 end;

D) with p do

begin фио:= ’ Розов Р. ’ ; . назв:= ‘Горизонт ‘ ; газ.Стоим:= 300

end;

E) with p do

фио:= ’ Розов Р. ’ ; газ. назв:= ‘Горизонт ‘ ; газ.Стоим:= 300

{Дұрыс жауабы}=B

102 Келтiрiлген программа ғандай Нәтиженi баспа№а шы№арады.

PROGRAM PR1(IMPUT,OUTPUT);

VAR B,C,D:REAL;

BEGIN

READ (B,C);

D:=SQRT(SQR(B)- 4*C);

WRITELN('X1=' , (- B+D)/2 , ' X2= ' ,(- B- D)/2);

END.

Егер бастапғы мёндер ретiнде келесi мёндер берiлген болса 1.0 жёне –2.0?

A) 1.0 1.0

B) X1=-2.0 X2=1.0

C) X1=1.0 X2=-2.0

D) X1=1 X2=-2

E) X1=0.5 X2=-1.5

{Дұрыс жауабы}=B

103 if DAY=1

THEN WRITELN(‘Дңйсенбi’)

ELSE

IF DAY=2

THEN WRITELN(‘сейсенбi’)

ELSE

.

.

IF DAY=7

THEN WRITELN(‘жексенбi’);

Жазбасын таңдау операторын әолданып жазыңыз.

A) CASE DAY OF

1:WRITELN(‘дңйсенбi’);

2:……..

.

.

.

7:WRITELN(‘жексенбi’);

END;

B) CASE DAY OF

1;WRITE(‘дңйсенбi’)

2;……..

.

.

.

7;WRITE(‘жексенбi’)

END:

C) CASE DAY ON

1:WRITELN(‘дңйсенбi’)

2:……..

.

.

.

7:WRITELN(‘жексенбi’)

END;

D) CACE DAY OF

1:WRITELN(‘дңйсенбi’)

2:……..

.

.

.

7:WRITELN(‘жексенбi’)

END;

E) CASE DAY OF;

1:WRITELN(‘дңйсенбi’)

2:……..

.

.

.

7:WRITELN(‘жексенбi)

END:

{Дұрыс жауабы}=A

104 Келесi программа орындал№аннан кейiн баспа№а не шы№ады?

Program PR ;

Type str1=packed array[1..6] of char;

Var i:integer; t1:str1;

Procedure pb(var 1:str1);

Begin i:=1;

While 1[i]<'e' do

Begin 1[i]:=succ(1[i]); i:=i+1 end

End;

Begin i:=1; t1:='abcdef'; pb(t1);

Writeln(t1`[1]);

End.

A) D

B) A

C) E

D) C

E) B

{Дұрыс жауабы}=A

105 F(m,n)=n!*m! M/(n+m)!,функциясын баяндау керек. n жёне m- оң сандар (факториалды есептейтiн iшкi функцияны аныәтау керек). Типтiң баяндауы келтiрiледi:

type nat=0 . . maxint;

A) function F (m,n:nat):real;

function fact (k:nat):real;

var i,p:integer;

Begin p:=1; for i:=2 to k do p:=p*i;

Fact:=p end;

Begin f:=fact(n)*fact(m)/fact(n+m) end;

B) Function F(m,n:nat):real;

Function fact (k:nat):nat;

var i,p:integer;

Begin p:=1; for i:=2 to k do p:=p*i;

Fact:=p

Begin f:=fact(n) *fact(m)/fact(n+m) end;

C) Function f (m,n:nat):real;

Function fact(k:nat):nat;

var i,p:integer;

Begin p:=1; for i:=2 to k do;

P:=p*i end;

Begin f:=fact(n)*fact(m)/fact(n+m) end;

D) Function f(m,n:nat):real;

Function fact (k:nat): nat;

var i,p:integer;

Begin p:=0; for i:=2 to k do p:=p*i;

Fact:=p end;

Begin f:=fact(n)*fact(m)/fact(n+m) end;

E) Function f(m,n:nat):real;

Function fact(k:nat):nat;

var i,p:real;

Begin p:=1; for i:=2 to k do p:=p*i;

Fact:=p end;

Begin f:=fact(n)*fact(m)/fact(n+m) end;

{Дұрыс жауабы}=A

106 Келтiрiлген программа баспа№а ғандай сандарды шы№арады?

Program swp;

VAR c,d:real;

Procedure sw1(var x,y:real);

Var z:real;

begin

z:=x; x:=y; y:=z;

end;

begin

Read (c,d);

sw1(c,d);

Write('c=',c,'d=',d);

end.

Егер бастапкы мандер ретiнде келесi мандер берiлген болса 3.5 1.6

A) C=1.6 D=3.5

B) 1.6 1.6

C) C=3.5 D=1.6

D) C=3.5 D=3.5

E) C=1.6 D=1.6.

{Дұрыс жауабы}=A

107 Паскаль тiлiнде келесi әрнектердiң ғайсысы дҢрыс жазыл№ан?

1. 1 + ( y ( + cos(pi*x); 2. abs(x)+cos(abs y ( 2.7);

3. 1/2 + beta ; 4. Tan(3x)+Ln(2*x+5);

5. Ln(5*x)+Exp(5*Ln(x))*Cos(x*x*x*x);

A) 3 ,5

B) 2,3

C) 2,4

D) 2,3,4

E) 4

{Дұрыс жауабы}=A

108 Келесi Паскаль тңрiндегi операторлардың ғайсысы дҢрыс.

Барлыә операторлар жекеше ғарастырыл№ан.

1. IF ( x=y) and (z=5) THEN 1;

2. GOTO abc;

3. IF x>y THEN GOTO 3

4. IF a=b THEN WRITE ‘дҢрыс’; ELSE ‘дҢрыс емес’;

5. FOR I:=10 TO 1 DO;

6. WHILE A>B DO

А) 2,3,6

B) 1,2,5 ,6

C) 2,3,5

D) 1,2

E) 2,4,6

{Дұрыс жауабы}=A

109 Келесi программалар ңзiндiсi ңшiн айнымалылардың мёнiн аныәтау керек:

a=6, b=5, c=2

IF (a<c) OR (b<c) THEN a=ABS(b-c) ELSE IF a<b THEN

a:=(b-a) *3 ELSE b:=(a+b) *3;

WRITE(a,b);

A) 10, 5

B) 6,33

C) 33,5

D) 6, -5

E) 90, -5

{Дұрыс жауабы}=B

110 Тәмендегi программа орындал№аннан кейiн баспа№а не шы№ады?

A:=1;S1:=0; S2:=0;

FOR I:=1 TO 3 DO

BEGIN

S1:=S1-A*I;

S2:=S2+A*I*I;

A:=-A;

END;

WRITE( S1,S2,A);

A) 2,6, 1

B) 3,9,1

C) 0,6,1

D) 3,9,1

E) -2,-1,-6

{Дұрыс жауабы}=A

111 Кәрсетiлген программа баяндауларының Нәтижесiн кәрсетiңiз?

S:=0; P1:=1;

FOR I:=1 TO N DO

P1:=P1*I;

FOR I:=1 TO N DO

BEGIN

P2:=1

FOR K:=1 TO I DO

P2:=P2*K;

S:=S+1/(P2+1);

END;

S:=1/P1*S;

WRITE( S)

A)

B)

C)

D)

E)

{Дұрыс жауабы}=A

112 Келесi кәрсетiлген программаның Нәтижесiн аныәтау керек?

f0:=0; f1:=1 ;

WRITE( f0,f1);

FOR I:=1 TO 4 DO

BEGIN

f:=f0+f1;

WRITE ( f);

f0:=f1: f1:=f

END;

A) 0,1,1,2,3,5

B) 0,1,1,1,1,1

C) f0,f1,f

D) 0,1,1,2,2,2

E) 1,2,3,5

{Дұрыс жауабы}=A

113 А (-3,2,5,-1,0,3) бiр әлшемдi массивi берiлген. Программа орындалуының дҢрыс Нәтижесiн табу керек?

BEGIN

FOR I:=1 TO 6 DO

BEGIN

READ( A[I]);

IF (I mod 2=0) AND (A[I]>0) THEN A[I]=SQR(A[I]);

END;

FOR I:=1 TO 6 DO

WRITE A[I];

END.

A) -3,4,5, -1,0,9

B) 3,4,5, -2,0,3

C) -6,2,10, -1,0,6

D) -3,4,10, -1,0,9

E) -3,4,5, -1, 6

{Дұрыс жауабы}=A

114 Егер де массивтiң элементтерi келесiдей болса, А (3,14,-3,6,-9,5,12) онда келтiрiлген программа ғандай Нәтиженi бередi.

FOR I:=1 TO 7 DO

IF (A[I] mod 3=0) AND (A[I]>0) THEN WRITELN( A[I] * 2);

A) 6,12,24

B) 3,-3,6,-9,12

C) 6, (6,12, (18,24

D) 6,28,12,10,24

E) 6,3,12,18,2

{Дұрыс жауабы}=A

115 Бiр әлшемдi массивтiң мёндерi кестеде келтiрiлген олардың Нәтижесiн аныәтау керек.

FOR I:=1 TO 10 DO

BEGIN

A:=A[I];

A[I]:=A[11-I];

A[11-I]:=A;

END;

I	1	2	3	4	5	6	7	8	9	10
A(I)	11	12	13	14	15	16	17	18	19	20

A) 20,19,18,17,16,15,17,18,19,20

B) 11,12,13,14,15,16,17,18,19,20

C) 11,12,13,14,15,16,14,13,12,11

D) 20,19,18,17,16,15,14,13,12,11

E) 11,12,13,14,15,15,14,13,12,11

{Дұрыс жауабы}=B

116 Кестеде бiр әлшемдi массивтiң мёндерi кәрсетiлген дҢрыс Нәтижелерiн аныәтау керек.

FOR I:=1 TO 10 DO

A[I]:=A[11-I];

I	1	2	3	4	5	6	7	8	9	10
A(I)	14	12	13	14	15	16	17	18	19	20

A) 20,19,18,17,16,15,17,18,19,15

B) 20,19,18,17,16,15,14,13,12,14

C) 20,19,18,17,16,16,17,18,19,20

D) 10, 9, 8, 7, 6, 5, 4, 3, 2, 1

E) 14,12,13,14,15,16,17,18,19,20

{Дұрыс жауабы}=C

117 Егерде А массивiнiң элементтерi (4,105,11,14,5) белгiлi сандары болса, онда программа баспа№а ғандай сандарды шы№арады?

FOR I:=1 TO 4 DO

BEGIN

M:=A[I]; K:=I;

FOR J:=I TO 5 DO

BEGIN

IF A[J]<M THEN M:=A[J];K:=J

END;

P:=A[I];A[I]:=A[K];A[K]:=P

END;

FOR I:=1 TO 5 DO

WRITE (A[I]);

A) 105,14,11,5,4

B) 4,105,11,14,5

C) 4,5,11,14,105

D) 4,11,105,14,5

E) 1,2,3,4,5

{Дұрыс жауабы}=C

118 Тәменде келтiрiлген N санының арифметикалыә ортасын табу керек. ДҢрыс жауабын кәрсету керек.

1. 2. S:=0; I:=1;

S:=0; WHILE I<=N DO

FOR I:=1 TO N DO BEGIN

S:=S+A[I]; S:=S+A[I];

WRITE(S/N); INC(I);

END; WRITE(S/N);

3. 4. S:=0; I:=1;

S:=0; REPEAT

FOR I:=1 TO N DO

BEGIN S:=S+A[I];

S:=S+A[I]; INC(I);

WRITE(S/N); UNTIL (I<N);

END; WRITE(S/N);

A) 1,2

B) 1,3,4

C) 2,4

D) 1,2,4

E) 1,4

{Дұрыс жауабы}=A

119 Келесi программа орындал№аннан кейiн баспа№а не шы№ады?

FOR I:=1 TO 3 DO

BEGIN

FOR J:=1 TO 3 DO

WRITE (I*J );

WRITELN;

END;

A) 1 2 3

2 4 6

3 6 9

B) 1 1 1

2 2 2

3 3 3

C) 1

4

9

D) 1,2,3

E) 1 2 3 2 4 6 3 6 9

{Дұрыс жауабы}=A

120 N=12579 саны ңшiн Нәтижелер орындал№аннан кейiн баспа№а ғандай программа шы№ады?

p:=0; k:=1;

WHILE N>0 DO

BEGIN

A:=N MOD 10;

if (A=1) OR ( A=5) THEN N:= N DIV 10

ELSE

BEGIN

P:=P+A*K; K:=K*10; N:=N DIV 10

END;

END;

WRITE(P);

A) 279

B) 12579

C) 1257

D) 15

E) 12

{Дұрыс жауабы}=A

121 Бңтiн санды бңтiн сан№а бәлгендегi бңтiн бәлiгiн табу амалын кәрсет:

A) DIV

B) MOD

C) AND

D) OR

E) жауаптар дҢрыс емес

{Дұрыс жауабы}=A

122 FOR цикл нҢсғауында№ы ғадам параметрi ғай типке жатады?

A) INTEGER

B) REAL

C) CHAR

D) BOOLEAN

E) дҢрыс жауабы жоә

{Дұрыс жауабы}=A

123 Cанды сан№а бәлгендегi ғалдыәты табу амалын кәрсет:

А) DIV

В) MOD

C) AND

D) OR

E) INTEGER

{Дұрыс жауабы}=A

124 Нәтиже неге тең?

Var a, b, c : integer;

Begin

a := 100 div 11;

b := 100 div 10;

c := 100 div 9;

writeln(‘a = ’, a, ‘b = ’,b, ‘c = ’,c);

End.

A) a = 9 b = 10 c = 11

B) a = 5 b = 10 c = 10

C) a = 9 b = 12 c = 9

D) a = 9 b = 9 c = 9

E) a= 10 b= 8 c=11

{Дұрыс жауабы}=A

125 Нәтиже неге тең?

Var a, b, c : integer;

Begin

a := 120 div 1;

b := 200 mod 150;

c := 20 div 3 * 8;

writeln(‘a = ’, a, ‘b = ’,b, ‘c = ’,c);

End.

A) a = 120 b = 50 c = 48

B) a = 5 b = 10 c = 10

C) a = 9 b = 12 c = 9

D) a = 9 b = 9 c = 9

E) a=110 b=10 c=9

{Дұрыс жауабы}=A

126 Нәтиже неге тең?

Var a, b, c : integer;

Begin

a := 200 mod 60;

b := 200 mod 40;

c := 200 mod 400;

writeln(‘a = ’, a, ‘b = ’,b, ‘c = ’,c);

End.

A) a = 20 b = 0 c = 200

B) a = 5 b = 10 c = 10

C) a = 9 b = 12 c = 9

D) a = 9 b = 9 c = 9

E) a=9 b=12 c=10

{Дұрыс жауабы}=A

127 Нәтиже неге тең?

Var a, b, c : integer;

Begin

a := 90 div 8;

b := 85 div 8;

c := 80 div 8;

writeln(‘a = ’, a, ‘b = ’,b, ‘c = ’,c);

End.

A) a = 11 b = 10 c = 10

B) a = 5 b = 10 c = 10

C) a = 9 b = 12 c = 9

D) a = 9 b = 9 c = 9

E) a=9 b=10 c=12

{Дұрыс жауабы}=A

128 Нәтиже неге тең?

Var a, b, c : integer;

Begin

a := 5;

b := a * 10 div 8;

c := a * b mod 4;

writeln(‘a = ’, a, ‘b = ’,b, ‘c = ’,c);

End.

A) a = 5 b = 6 c = 2

B) a = 5 b = 10 c = 10

C) a = 9 b = 12 c = 9

D) a = 9 b = 9 c = 9

E) дҢрыс жауабы жоә

{Дұрыс жауабы}=A

129 Нәтиже неге тең?

Var a, b, c : integer;

Begin

a := 2 + 20 mod 3;

b := 2 + 19 mod 3;

c := 2 + 18 mod 3;

writeln(‘a = ’, a, ‘b = ’,b, ‘c = ’,c);

End.

A) a = 4 b = 3 c = 2

B) a = 5 b = 10 c = 10

C) a = 9 b = 12 c = 9

D) a = 9 b = 9 c = 9

E) дҢрыс жауабы жоә

{Дұрыс жауабы}=A

130 i = 21, j = 11, k =5 бол№анда№ы келесi программаның дҢрыс шешiмiн таңда

var i, j, k, x : integer;

begin

if j>k then x :=2;

if i<k then x :=3;

writeln(x);

end.

A) 2

B) 3

C) 1

D) 4

E) 10

{Дұрыс жауабы}=A

131 i = 7 j = 19 k =0 бол№анда№ы келесi программаның дҢрыс шешiмiн таңда

var i, j, k, x : integer;

begin

if j>k then x :=20;

if i<k then x :=10;

writeln(x);

end.

A) 20

B) 3

C) 1

D) 4

E) 10

{Дұрыс жауабы}=A

132 i = 2 j = 8 k =9 бол№анда№ы келесi программаның дҢрыс шешiмiн таңда

var i, j, k, x : integer;

begin

if j>k then x :=2;

if i<k then x :=3;

writeln(x);

end.

A) 3

B) 2

C) 1

D) 4

E) 5

{Дұрыс жауабы}=A

133 Келесi программаның дҢрыс шешiмiн таңда

var i, j : integer;

begin

i := 4; j := 9;

repeat

i := i + j;

j := j –1;

until i>= j;

writeln(i, ‘ ‘, j);

end.

A) 13 8

B) 3 5

C) 13 4

D) 14 5

E) 10 2

{Дұрыс жауабы}=A

134 Келесi программаның дҢрыс шешiмiн таңда

var i, j: integer;

begin

i := 2; j := 20;

repeat

i := i + j - 1;

j := j –1;

until i>= j;

writeln(i, ‘ ‘, j);

end.

A) 21 19

B) 23 15

C) 23 14

D) 24 15

E) 22 18

{Дұрыс жауабы}=A

135 Жолдыә әрнекте символды жою функциясын кәрсет:

A) DELETE

B) POS

C) LENGTH

D) COPY

Е) INSERT

{Дұрыс жауабы}=A

136 Мына есептi шешу ңшiн WHILE операторының дҢрыс сипаттамасын таңдаңыз

A) k:=1; p:=1; f:=1;

While k <= n do

Begin f:=f*k;

P:=p*(1+sin(k*x)/ f);

Inc (k)

End;

B) k:=1; p:=1; f:=1;

While k <= n do

Begin f:=f*k;

P:=p*(1+sin(k*x)

Inc (k)

End;

C) k:=1; p:=1; f:=1;

While k <= n do

Begin f:=f*k;

P:=p*(1+sin(k*x) / f)

Inc (k)

End;

D) k:=1; p:=0; f:=1;

While k <= n do

Begin f:=f*k;

P:=p*(1+sin(k*x) / f)

Inc (k)

End;

E) k:=1; p:=1; f:=1;

While k <= n do

Begin f:=f+k;

P:=p*(1+sin(k*x) / f)

Inc (k)

End;

{Дұрыс жауабы}=A

137 E дёлдiгiмен +k² әосындыны есептеудiң дҢрыс вариантын таңдаңыз

A) k:=1;

REPEAT

L=1/(sqrt(abs(x))+sqr(k));

S:=s+L;

Inc(k);

UNTIL (abs(l)<eps);

B) k:=1;

REPEAT

L=1/(sqr(abs(x))+sqr(k));

S:=s+1;

Inc(k);

UNTIL (abs(l)<eps);

C) k:=1;

REPEAT

L=1/(sqrt(abs(x))+sqr(k));

S:=s+L;

dec(k);

UNTIL (abs(l)<eps);

D) k:=0;

REPEAT

L=1/(sqrt(abs(x))+sqrt(k));

S:=s+L;

Inc(k);

UNTIL (abs(l)<eps);

E) k:=1;

REPEAT

L=1/(sqrt(abs(x))+sqr(k));

S:=s+L;

Inc(k);

UNTIL (abs(l)>eps);

{Дұрыс жауабы}=A

138 Есептi шы№ару ңшiн for циклiнiң дҢрыс сипаттамасын таңдаңыз:

A) s:=0; f:=1;

for i:=1 to n do

begin

f:=f*i;

s:=s+exp(i*ln(x))/f;

end;

B) s:=0; f:=0;

for i:=1 to n do

begin

f:=f*i;

s:=s+exp(i*ln(x))/f;

end;

C) s:=0; f:=1;

for, i:=1 to n do

begin

f:=f*i;

s:=s+exp(i+ln(x))/f;

end;

D) s:=0; f:=1;

for, i:=1 to n do

begin

f:=f*i;

s:=s+exp(i*ln(x))/i;

end;

E) s:=1; f:=1;

for, i:=1 to n do

begin

f:=f*i;

s:=s+exp(i*ln(x))/f;

end;

{Дұрыс жауабы}=A

139 Келесi операторларды орындау кезiнде дҢрыс әорытындысын таңдаңыз:

S:=0; i:=1;

REPEAT

S:=s+1/(2*I+1);

Dec(i);

UNTIL i<1;

A) 1.0;

B) 1/3;

C) 0.2

D) 0.75

E) 0.15

{Дұрыс жауабы}=B

140 Келесi операторларды орындау кезiнде баспа№а не басылады

S:=0; I:=1; eps:=0.5;

REPEAT

K:=1/I;

S:=s+k;

Inc (i);

UNTIL k<eps;

Writeln (‘s=’,s:6:2);

A) s=1.83

B) s=1.50

C) s=1.00

D) s=1.5000

E) s=1.833

{Дұрыс жауабы}=B

141 Санның бәлшек бәлiгiн аныәтайтын стандартты функцияны кәрсетiңiз

A) TRUNC

B) FRAC

C) ROUND

D) INT

E) MOD

{Дұрыс жауабы}=B

142 Санның бңтiн бәлiгiн аныәтайтын стандартты функцияны кәрсетiңiз

A) DIV

B) INT

C) FRAC

D) MOD

E) ABS

{Дұрыс жауабы}=B

143 х айнымалысын 5-ке Ңл№айтатын стандартты процедураны кәрсет

A) INC (5)

B) INC (X,5)

C) INC (X)

D) INC (5,X)

E) DEC (X,5)

{Дұрыс жауабы}=B

144 х айнымалысын 3-ке азайтатын стандартты процедураны кәрсет

A) DEC (3)

B) DEC (X,3)

C) INC (X,3)

D) DEC (X)

E) DEC (3,X)

{Дұрыс жауабы}=B

145 Циклдан шы№удың стандартты процедурасын кәрсетiңiз

A) continue

B) break

C) UNTIL

D) Case

E) LABEL

{Дұрыс жауабы}=B

146 Іолдану Нәтижесiнде Boolean тип болатын стандартты функцияны кәрсетiңiз

A) chr

B) odd

C) mod

D) div

E) swap

{Дұрыс жауабы}=B

147 Символдарды коды бойынша аныәтайтын стандартты функцияны кәрсетiңiз

A) ORD

B) Chr

C) Str

D) Val

E) POS

{Дұрыс жауабы}=B

148 Элемент массивi сандыә болып табылатын болса программа фрагментiн орындау кезiнде әорытындысында не басылады

(-5,-4,8,-16,2, -12,7)

FOR I:=1 TO 7 DO

IF (A[I] mod 4=0) AND (A[I]<O) THEN

WRITE (A[I]*4,’,’);

A) –5, 32,8

B) –16,-64,-48

C) 20,16,-48

D) 20,32,8,28

E) –4,-16,-12

{Дұрыс жауабы}=B

149 Программа фрагментiн орындаудың әорытындысын кәрсетiңiз:

X0:=0; x1:=1;

WRITE (X0,’,’, X1);

FOR I:=1 TO 5 DO

BEGIN

X:=X0+X1;

WRITE (X,’,’);

X0:=X1; X1:=X;

END;

A) 0,1,1,1,1,1

B) 0,1,1,2,3,5,8

C) 0,1,1,2,3,4,5

D) 1,1,2,3,4,5

E) 1,2,3,5,8

{Дұрыс жауабы}=B

150 Программа фрагментiн орындаудың әорытындысын кәрсетiңiз:

S:=0; f1:=1;

FOR I:=1 TO 3 DO

F1:=f1*I;

FOR I:=1 TO 3 DO

BEGIN

F2:=1;

FOR k:=1 TO I DO

F2:=f2*k;

S:=s+(f2+3);

END;

S:=s/f1;

WRITE (S);

A) 6

B) 3

C) 9

D) 18

E) 12

{Дұрыс жауабы}=B

151 Программа фрагментiн орында№андау кезiнде әорытындысында баспа№а не басылады

FOR I:=1 TO 4 DO

FOR J:=1 TO 2 DO

WRITE (I*sqr (J),’,’);

A) 2,4,3,5,6,8,9,16

B) 1,4,2,8,3,12,4,16

C) 4,5,6,7,3,6,8,16

D) 3,4,2,4,5,6,7,8

E) 1,3,4,5,6,7,8,16

{Дұрыс жауабы}=B

152 Массив элементi сан болып табылатын болса программа фрагментiн орындау кезiнде әорытындысында баспа№а не басылады

(2,1,-2,7,6,3,9)

FOR I:=1 TO 7 DO

IF (I mod 3=0) AND (A[I]>0) THEN

A[I]:=SQR(A[I])+3;

FOR I:=1 TO 7 DO

WRITE (A[I], ‘,’);

A) 2,1,7,7,6,9,9

B) 2,1,-2,7,6,12,9

C) 2,1,4,7,6,9,9

D) 2,4,-2,14,8,9,9

E) 2,4,-2,52,6,9,9

{Дұрыс жауабы}=B

153 ¶шiншi сиволдан бастап ST жолына ST1 жолын әоюдың стандартты процедурасынын әолданып дҢрыс вариантын таңдаңыз:

A) INSERT (ST,ST1,3)

B) INSERT (ST1, ST,3)

C) INSERT (5,ST1,ST,3)

D) INSERT (ST,5,ST1,3)

E) INSERT (ST1,5,ST,3)

{Дұрыс жауабы}=B

154 Символдар жолын сан№а тңрлендiрудiң стандартты процедурасын кәрсетiңiз

A) STR

B) VAL

C) COPY

D) CONCAT

E) POS

{Дұрыс жауабы}=B

155 Іолдану Нәтижесi ғатар болатын стандартты функцияны кәрсетiңiз:

A) VAL

B) CONCATE

C) POS

D) LENGTH

E) HIGH

{Дұрыс жауабы}=B

156 Массивтiң жҢп элементтерiнiң санын жёне әосындысын есептеу ңшiн программанын оң фрагментiн таңда.

A) s:=0; k:=0;

for i:=1 to n do

if (A[i] mod 2 = 0) then begin

s:=s+A[i];

k:=k+1;

end;

B) s:=1; k:=0;

for i:=1 to n do

if (A[i] mod 2 = 0) then begin

s:=s*A[i];

k:=k+1;

end;

C) s:=0;

for i:=1 to n do

if (A[i] mod 2 = 1) then begin

s:=s+A[i];

k:=k+1;

end;

D) s:=0; k:=0;

for i:=1 to n do

if (A[i] mod 2 = 0) then begin

s:=s*A[i];

k:=k+1;

end;

E) s:=0; k:=0;

for i:=1 to n do

if (A[i] mod 2 = 1) then begin

s:=s+A[i];

k:=k+1;

end;

{Дұрыс жауабы}=A

157 Егер берiлген дёлдiк болса, онда келесi программа ненi есептейдi?

program pr;

var x,y,s, : real;

k : integer;

begin

read(x, );

k:=1; s:=0;

repeat

y:=sqr(x)/(exp(3/2*ln(k)));

s:=s+y;

k:=k+1;

until abs(y)< ;

writeln(‘s= ‘,s);

end.

A)

B)

C)

D)

E)

{Дұрыс жауабы}=C

158 Мына әрнек a+bx+cyz Паскаль тiлiнде келесi тңрде кәрсетiледi:

A) a+b*x+c*y+z;

B) a+b*x-c*y*z;

C) a+b*x*(c*y*z);

D) a+b*x+c*y*z;

E) a*b+x+c*y*z;

{Дұрыс жауабы}=D

159 cos²x³ әрнегiнiң дҢрыс жазыл№ан вариантын таңдаңыз?

A) cos(x*x*x)*sqr(x);

B) cos(sqr(x)*x*sqr(x));

C) sqr(x)*cos(x*x*x);

D) sqr(cos(x)*sqr(x));

E) sqr(cos(x*sqr(x)));

{Дұрыс жауабы}=E

160 Жиын№а жаңа элементтердi әосу ңшiн процедураны таңдаңыз?

A) ERASE;

B) FLUSH;

C) INCLUDE;

D) EXCLUDE;

E) FSPLIT;

{Дұрыс жауабы}=C

161 Жиын№а элементтi шы№ару ңшiн процедураны таңдаңыз?

A) ERASE;

B) EXCLUDE;

C) FLUSH;

D) INCLUDE;

E) FSPLIT;

{Дұрыс жауабы}=B

162 EOF(F) логикалыә функциясы аәиғат мёнiн ғабылдайды, егер

A) F файлының соңы бол№анда;

B) F файлының басы бол№анда;

C) F файлының ортасы бол№анда;

D) F файлыным кезкелген элементi бол№анда;

E) F файл жолының соңы бол№анда;

{Дұрыс жауабы}=A

163 Нәтижесi екiншi жиын№а жатпайтын бiрiншi жиын элементiнiң жиыны болатын жиындар№а арнал№ан операцияны кәрсетiңiз?

A) IN

B) айырымы

C) бiрлесiуi

D) әиылысуы

E) әосылуы

{Дұрыс жауабы}=B

164 өрнектi есептеу кезiндегi жауаптардың дҢрыс вариантын таңдаңыз?

[3…16] * [14, 15...25] + [5…19]*[7..9]

A) [7…9, 14…16]

B) [7…16]

C) [9,15,16]

D) [15…19]

E) [4…14]

{Дұрыс жауабы}=С

165 өрнектi есептеу кезiндеi жауаптардың дҢрыс вариантын таңдамыз?

[5..9, 17..20]*[8..18]-[8, 9]

A) [17, 18]

B) [5..9]

C) [5..9, 19,20]

D) [7..9]

E) [15..20]

{Дұрыс жауабы}=A

166 өрнектi есептегендегi дҢрыс вариантын кәрсетiңiз?

[4..10]-[5..14]*[9..19]+[3..9]

A) [3..9]

B) [4..10]

C) [3..10]

D) [6..9]

E) [5..19]

{Дұрыс жауабы}=A

167 1 Берілген тексте А1 сөзін А2 сөзіне ауыстыру керек. (Сөздерді бөліктеу үшін бос орын пайдаланылады) Программаның дұрыс фрагмент таңда.

A) var C,D:string; i,K:intger;

К:=1; D:=’’;

For i:=1 to length(S) do

If S[i] = ‘ ‘ then

Begin

C:= copy(S,k,i-k);

If C=A1 then D:= D+A2+S[i]

Else D:= D+C+S[i];

End;

B) var C,D:string; i,K:intger;

К:=1; D:=’’;

For i:=1 to length(S) do

If S[i] = ‘ ‘ then

Begin

C:= copy(S,k,i-k);

If C=A1 then begin D:= D+A2+S[i]; k:= i +1 end

Else begin D:= D+C+S[i]; k:= i +1 end

End;

C) var C,D:string; i,K:intger;

К:=1; D:=’’;

For i:=1 to length(S) do

If S[i] = ‘ ‘ then

Begin

C:= copy(S,k,k);

If C=A1 then begin D:= D+A2+S[i]; k:= i +1 end

Else begin D:= D+C+S[i]; k:= i +1 end

End;

D) var C,D:string; i,K:intger;

К:=1; D:=’’;

For i:=1 to length(S) do

If S[i] = ‘ ‘ then

Begin

C:= copy(S,k,i-k);

If C=A1 then begin D:= D+A2+S[i]; k:= i +1 end

End;

E) var C,D:string; i,K:intger;

К:=1; D:=’’;

For i:=1 to length(S) do

If S[i] = ‘ ‘ then

Begin

C:= copy(S,k,i-k);

If C=A1 then begin D:= A2+S[i]; k:= i +1 end

Else begin D:= C+S[i]; k:= i +1 end

End;

{Дұрыс жауабы}=B

168 Адамның бойымен фамилиясы берілген. Бос орын арқылы бөлектенген. Ең үлкен адамның бойын баспаға шығару керек. Программаның дұрыс фрагмент таңда.

A) var S,C1,C2,C3:string; i,k,p,max,cod: integer;

Max:=0;

For i :=1 to n do

Begin

P:=pos(‘ ‘, S);

C1:= copy( S, 1 , p-1);

C2:= copy( S, p+1 , length(S-i);

Val (C2,k,cod);

If k>max then begin max:=k; C3:= C1; end;

End;

Writeln(C3,max);

B) var S,C1,C2,C3:string; i,k,p,max,cod: integer;

Max:=0;

For i :=1 to n do

Begin

P:=pos(‘ ‘, s[i]);

C1:= copy( s[i], 1 , p-1);

C2:= copy( s[i], p+1 , length(s[i]);

Val (C2,k,cod);

If k>max then begin max:=k; C3:= C1; end;

End;

Writeln(C3, max);

C) var S,C1,C2,C3:string; i,k,p,max,cod: integer;

Max:=0;

For i :=1 to n do

Begin

P:=pos(‘ ‘, s[i]);

C1:= copy( s[i], 1 , p-1);

C2:= copy( s[i], p+1 , length(s[i]-i);

Val (C2,k,cod);

If k>max then begin max:=k; C3:= C1; end;

End;

Writeln(C3, max);

D) var S,C1,C2,C3:string; i,k,p,max,cod: integer;

Max:=0;

For i :=1 to n do

Begin

P:=pos(‘ ‘, s[i]);

C1:= copy( s[i], 1 , p-1);

C2:= copy( s[i], p , length(s[i]-i);

Val (C2,k,cod);

If k>max then begin max:=k; C3:= C1; end;

End;

Writeln(C3);

E) var S,C1,C2,C3:string; i,k,p,max,cod: integer;

Max:=0;

For i :=1 to n do

Begin

P:=pos(‘ ‘, s[i]);

C1:= copy( s[i], 1 , p-1);

C2:= copy( s[i], p+1 , length(s[i]-i);

Val (C2,k);

If k>max then begin max:=k; C3:= C1; end;

End;

Writeln(C3);

{Дұрыс жауабы}=C

169 Динамикалық жадыны қайтаратын процедураны таңда :

A) new

B) Dispose

C) Heapend

D) Heapptr

E) Heaporg

{Дұрыс жауабы}=B

170 Программа фрагментінің орындалу нәтижесін таңда.

for c:=’a’ to ‘d’ do

begin

for s:=’a’ to ‘c’ do

write (s);

writeln(‘ ‘);

end;

A) a a b a b c a b c d

B) a b c d

a b c d

a b c d

a b c d

C) a b c

a b c

a b c

a b c

D) a b c d

E) a

a b

a b c

a b c d

{Дұрыс жауабы}=E

171 Программа фрагментінің орындалу нәтижесін таңда.

S:= ‘abc*12**d’; St:=’’; i:=1;

while (S[i] <> ‘*’ do

begin

St:=St + S[i]+ S[i];

Inc(i);

End;

Writeln(St);

A) abc12d

B) aabbcc

C) abc

D) aabbcc1122dd

E) abc*12

{Дұрыс жауабы}=B

172 Келесі есепті шешу үшін программаның дұрыс фрагментін таңда:

f символдық файлы берілген; файлдағы барлық нүкте мен үтірлерді плюсқа ауыстырып және g файлына ауыстыру керек

A) reset(f);

rewrite(g);

while not eof(f) do

begin

read(f,k);

if (k=’.’) or (k=’,’)

then

write (g, ‘+’) else

write (g,k);

end;

B) reset(f);

rewrite(g);

while not eof(f) do

begin

read(k);

if (k=’.’) or (k=’,’)

then

write (g, ‘+’) else

write (g,k);

end;

C) reset(f);

write(g);

while not eof(f) do

begin

read(f,k);

if (k=’.’) or (k=’,’)

then

write (g, ‘+’) else

write (g,k);

end;

D) reset(f);

rewrite(g);

while not eof(f) do

begin

read(f,k);

if (k=’.’) or (k=’,’)

then

read(g, ‘+’) else

write (g,k);

end;

E) reset(f);

rewrite(g);

while eof(f) do

begin

read(f,k);

if (k=’.’) or (k=’,’)

then

write (g, ‘+’) else

write (g,k);

end;

{Дұрыс жауабы}=A

173 Келесі есепті шешу үшін программаның дұрыс фрагментін таңда:

Бүтін сандардан тұратын f файлы берілген, 3-ке бөлінетін және 7-ге бөлінбейтін сандарды g файлға жазу керек

A) reset(f);

rewrite(g);

while not eof (f) do

begin

read (f,n);

if (n mod 3=0) and (n mod 7 <> 0)

then

write (g,n);

end;

B) reset(f);

rewrite(g);

while not eof (f) do

begin

read (f,n);

if (n div 3=0) and (n mod 7 <> 0)

then

write (g,n);

end;

C) reset(f);

rewrite(g,n);

while not eof (f) do

begin

read (f,n);

if (n mod 3=0) and (n mod 7 <> 0)

write (g,n);

end;

D) reset(f);

write(g);

while not eof (f) do

begin

read (f,n);

if (n mod 3=0) and (n mod 7 <> 0)

then

write (g);

end;

E) reset(f);

rewrite(g);

while not eof (f) do

begin

read (n);

if (n mod 3=0) and (n mod 7 <> 0)

then

write (g,n);

end;

{Дұрыс жауабы}=A

174 Файлдың компоненттерінің қосындысын және көбейтіндісін табу үшін программаның дұрыс фрагментін таңда:

A) reset(f); s:=0; p:=1;

while not eof (f) do

begin

read(f,n);

s:=s+n;

p:=p*n;

end;

B) reset(f); s:=0; p:=1;

while not eof (f) do

begin

read(f,n);

s:=s*n;

p:=p+n;

end;

C) reset(f); s:=0; p:=1;

while not eof do

begin

read(f,n);

s:=s+n;

p:=p*n;

end;

D) reset(f); s:=1; p:=0;

while not eof (f) do

begin

read(f,n)

s:=s+n

p:=p*n

end;

E) reset(f); s:=0; p:=1;

while not eof (f) do

read(f,n);

s:=s+n;

begin

p:=p*n;

end;

{Дұрыс жауабы}=A

175 Файлға 5 бүтін санды жазу үшін программаның дұрыс фрагментін таңда:

A) rewrite(f);

for i:=1 to 5 do

begin

read(n);

write (f,n);

end;

B) rewrite(f);

for i:=1 to 6 do

begin

read(n);

write (f,n);

end;

C) rewrite(f);

for i:=1 to 5 do

begin

write (f,n);

read(n);

end;

D) rewrite(f);

for i:=1 to 5 do

begin

read(n);

write (f,);

end;

E) rewrite(f)

for i:=1 to 5 do

begin

read(n)

write (f,n)

end;

{Дұрыс жауабы}=A

0

176 Функция ASSIGN

A) Файлдық айнымалыны байланыстыру үшін пайдаланады

B) Файлды оқуға ашу үшін пайдаланады

C) Файлға жазуға ашу үшін пайдаланады

D) Файлды жабу үшін пайдаланады

E) Файлдан ақпаратты оқу үшін пайдаланады

{Дұрыс жауабы}=A

0

177 Функция RESET

A) Файлдық айнымалыны байланыстыру үшін пайдаланады

B) Файлды оқуға ашу үшін пайдаланады

C) Файлға жазуға ашу үшін пайдаланады

D) Файлды жабу үшін пайдаланады

E) Файлдан ақпаратты оқу үшін пайдаланады

{Дұрыс жауабы}=B

0

178 Функция REWRITE

A) Файлдық айнымалыны байланыстыру үшін пайдаланады

B) Файлды оқуға ашу үшін пайдаланады

C) Файлға жазуға ашу үшін пайдаланады

D) Файлды жабу үшін пайдаланады

E) Файлдан ақпаратты оқу үшін

{Дұрыс жауабы}=C

0

179 Функция CLOSE

A) Файлдық айнымалыны байланыстыру үшін пайдаланады

B) Файлды оқуға ашу үшін пайдаланады

C) Файлға жазуға ашу үшін пайдаланады

D) Файлды жабу үшін пайдаланады

E) Файлдан ақпаратты оқу үшін

{Дұрыс жауабы}=D

0

180 Функция READ

A) Файлдық айнымалыны байланыстыру үшін пайдаланады

B) Файлды оқуға ашу үшін пайдаланады

C) Файлға жазуға ашу үшін пайдаланады

D) Файлды жабу үшін пайдаланады

E) Файлдан ақпаратты оқу үшін

{Дұрыс жауабы}=E

181 Программаның келесі фрагменті арқылы баспаға не шығады?

Var

x,y : ^ integer;

begin

new(x); x ^:=15; y:=x; write(y^); writeln( x^ +10);

Dispose(x);

End;

A) 15 25

B) y^ 25

C) y^ x^ +10

D) x 25

E) 15 x^ +10

{Дұрыс жауабы}=A

182 Программаның келесі фрагменті арқылы баспаға не шығады?

Var

x,y : ^ integer;

begin

new(y); y ^:=5; y^:=2*y^ + sqr(y^); x:=y; write(x^+ 10); Dispose(x);

End;

A) x^ +10

B) 45

C) y +10

D) 15

E) 35

{Дұрыс жауабы}=B

183 Көрсеткіштік мәні болып табылады:

А) көрсеткіштер;

B) айнымалылар;

C) айнымалылар адрестері;

D) массивтер;

E) көрсеткіштердің адрестері.

{Дұрыс жауабы}=C

184 Программаның келесі фрагменті арқылы баспаға не шығады?

Type t=array [1..n] of integer;

Var

b: ^ t;

begin

new(b);

read (b^[1]); k:=b^[1];

for i:=2 to n do

begin

read(b^[i]);

if b^[i] < k then k:= b^[i]

end;

writeln(b^[k]);

end.

A) b1,b2,…,bn сандарының ішіндегі ең кішісін баспаға шығарады

B) b^[k] санының адресін баспаға шығарады

C) b1,b2,…,bn сандарының ішіндегі ең үлкенін баспаға шығарады

D) b1,b2,…,bn сандарының ішіндегі ең кішісінің номеріне тек b[k] санын баспаға шығарады

E) b1,b2,…,bn сандарының ішіндегі ең үлкенінің номеріне тең b[k] санын баспаға шығарады

{Дұрыс жауабы}=D

185 N бүтін сандардан тұратын тізімді құрастыратын программа фрагментін таңда. Типтелген көрсеткіш келесідей хабарланады:

Type

Tp = ^ posl;

Posl=record

A:integer;

Next:tp;

End;

Var p,g:tp;i:integer;

A) p:=nil;

for i:=1 to n do

read(g^ . a);

B) p:=nil;

for i:=1 to n do

begin

read(g^. a); g ^ . next=p; p:=g;

end;

C) p:=nil;

for i:=1 to n do

begin

new(g);

read(g. a); g . next=p; p:=g;

end;

D) p:=nil;

for i:=1 to n do

begin

new(g);

read(g^. a); g ^ . next=p;

end;

E) p:=nil;

for i:=1 to n do

begin

new(g);

read(g^. a); g ^ . next=p; p:=g;

end;

{Дұрыс жауабы}=E

{Тақырыбы}=8

186 Айнымалылар келесідей хабарланады:

p1,p2: integer; p3:real;

Программа фрагментті орындалғаннан кейін heapptr көрсеткіші неше байтқа ығысады?

begin

new (p1);

new (p2);

new (p3);

end;

A) 6

B) 3

C) 10

D) 8

E) 12

{Дұрыс жауабы}=C

187 Айнымалылар келесідей хабарланады:

p1,p2: integer; p3:real;

Осы операторлар қанша байтты үймеге қайтарады?

Dispose (p1);

Dispose (p2);

Dispose (p3);

A) 10

B) 3

C) 6

D) 8

E) 12

{Дұрыс жауабы}=A

188 n натурал сан берілген. а1,a2,…a n бүтін сандар. Осы сандардың арасында беттесетін сандар бар екенін анықтау керек? Программаның дұрыс фрагментін таңда.

A) Type t=array [1..n] of integer;

Var

a: ^ t; i,j:integer;

begin

new(a);

for i:= 1 to n do

read(a^[i]);

for i:= 1 to n-1 do

for j:= i+1 to n do

if (a^[j] = a^[i]) then begin

writeln(‘ұқсас сандар бар’);goto M; end;

writeln(‘ұқсас сандар жоқ’);

M: End.

B) label M;

Type t=array [1..n] of integer;

Var

a: ^ t; i,j:integer;

begin

new(a);

for i:= 1 to n do

read(a^[i]);

for i:= 1 to n-1 do

for j:= i+1 to n do

if (a^[j] = a^[i]) then begin

writeln(‘ұқсас сандар бар’);goto M; end;

writeln(‘ұқсас сандар жоқ’);

M: End.

C) label M;

Type t=array [1..n] of integer;

Var

a: t; i,j:integer;

begin

new(b);

for i:= 1 to n do

read(a^[i]);

for i:= 1 to n-1 do

for j:= i+1 to n do

if (a^[j] = a^[i]) then begin

writeln(‘ұқсас сандар бар’);goto M; end;

writeln(‘ұқсас сандар жоқ’);

M: End.

D) Type t=array [1..n] of integer;

Var

a: ^ t; i,j:integer;

begin

new(a);

for i:= 1 to n do

read(a^[i]);

for i:= 1 to n-1 do

for j:= i+1 to n do

if (a^[j] = a^[i]) then begin

writeln(‘ұқсас сандар бар’);

writeln(‘ұқсас сандар жоқ’);

End.

E) label M;

Type t=array [1..n] of integer;

Var

a: ^ t; i,j:integer;

begin

for i:= 1 to n do

read(a^[i]);

for i:= 1 to n-1 do

for j:= i+1 to n do

if (a^[j] = a^[i]) then begin

w riteln(‘ұқсас сандар бар’);goto M; end;

writeln(‘ұқсас сандар жоқ’);

M: End.

{Дұрыс жауабы}=B

{Тақырыбы}=8

189 INITGRAPH функциясы

A) адаптер жұмысының графикалық режимін инициализациялайды

B) графикалық процедураларға кірудің соңғы нәтижесін анықтайды

C) адаптердің графикалық режимдегі жұмысын аяқтап экранның текстік жұмысын іске қосады

D) экранның сол сәтте жұмыс істеп отырған режиміндегі көлденең және тік координаталарының ең максималды мәнін анықтайды

E) көрсеткіштің сол сәттегі көлденең және тік координаталарын анықтайды

{Дұрыс жауабы}=A

190 GRAPHRESULT функциясы

A) адаптер жұмысының графикалық режимін инициализациялайды

B) графикалық процедураларға кірудің соңғы нәтижесін анықтайды

C) адаптердің графикалық режимдегі жұмысын аяқтап экранның текстік жұмысын іске қосады

D) экранның сол сәтте жұмыс істеп отырған режиміндегі көлденең және тік координаталарының ең максималды мәнін анықтайды

E) көрсеткіштің сол сәттегі көлденең және тік координаталарын анықтайды

{Дұрыс жауабы}=B

191 CLOSEGRAPH функциясы

A) адаптер жұмысының графикалық режимін инициализациялайды

B) графикалық процедураларға кірудің соңғы нәтижесін анықтайды

C) адаптердің графикалық режимдегі жұмысын аяқтап экранның текстік жұмысын іске қосады

D) экранның сол сәтте жұмыс істеп отырған режиміндегі көлденең және тік координаталарының ең максималды мәнін анықтайды

E) көрсеткіштің сол сәттегі көлденең және тік координаталарын анықтайды

{Дұрыс жауабы}=C

192 GETMAXX, GETMAXY функциялары

A) адаптер жұмысының графикалық режимін инициализациялайды

B) графикалық процедураларға кірудің соңғы нәтижесін анықтайды

C) адаптердің графикалық режимдегі жұмысын аяқтап экранның текстік жұмысын іске қосады

D) экранның сол сәтте жұмыс істеп отырған режиміндегі көлденең және тік координаталарының ең максималды мәнін анықтайды

E) көрсеткіштің сол сәттегі көлденең және тік координаталарын анықтайды

{Дұрыс жауабы}=D

193 GETX, GETY функциялары

A) адаптер жұмысының графикалық режимін инициализациялайды

B) графикалық процедураларға кірудің соңғы нәтижесін анықтайды

C) адаптердің графикалық режимдегі жұмысын аяқтап экранның текстік жұмысын іске қосады

D) экранның сол сәтте жұмыс істеп отырған режиміндегі көлденең және тік координаталарының ең максималды мәнін анықтайды

E) көрсеткіштің сол сәттегі көлденең және тік координаталарын анықтайды

{Дұрыс жауабы}=E

194 Келесі есепті шығарудың дұрыс жауабын белгілеңіз: сол жақ жоғарғы бұрышының координаталары (10, 10), ал оң жақ төменгі бұрышының координаталары (150, 100) тік төртбұрышты сызыңыз.

А) Rectangle (10, 10, 100, 150)

B) Rectangle (100, 10, 10, 150)

C) Rectangle (10, 10, 150, 100)

D) Rectangle (10, 100, 10, 150)

E) Rectangle (100, 10, 150, 100)

{Дұрыс жауабы}=C

195 Келесі есепті шешудің дұрыс жауабын көрсетіңіз: радиусы 150-ге тең, центрінің координаталары (120, 100) болыатын шеңбер сызыңыз.

А) Circle (150, 120, 100)

B) Circle (100, 120, 150)

C) Line (120, 100, 150)

D) Circle (120, 100, 150)

E) GetCircle (150, 120, 100)

{Дұрыс жауабы}=D

196 Келесі есепті шешудің дұрыс жауабын көрсетіңіз: экран центрінде көлденең сызық сызатын программа құрыңыз.

А) line (0, Round(GetMaxY/2), GetMaxX, Round(GetMaxY/2))

B) line (0, GetMaxY, GetMaxX, 0)

C) line (0, GetMaxX, GetMaxY, 0)

D) line (0, Round(GetMaxX/2), GetMaxY, 0)

E) line (GetMaxX, GetMaxY, GetMaxX, GetMaxY)

{Дұрыс жауабы}=A

197 Келесі есепті шығарудың дұрыс жауабын белгілеңіз: сол жақ жоғарғы бұрышының координаталары (50, 40), ал оң жақ төменгі бұрышының координаталары (250, 120) болатын боялған тік төртбұрышты сызуға программа құрыңыз.

A) Rectangle (50, 40, 250, 120)

B) Bar (40, 50, 250, 120)

C) Bar (50, 40, 120, 250)

D) Bar (50, 120, 40, 250)

E) Bar (50, 40, 250, 120)

{Дұрыс жауабы}=E

198 Келесі есепті шешудің дұрыс жауабын көрсетіңіз: экран центрінде тік сызық сызатын программа құрыңыз.

A) line (Round(GetMaxY/2), 0, Round(GetMaxX/2), GetMaxX)

B) line (Round(GetMaxX/2), 0, Round(GetMaxX/2), GetMaxY)

C) line (Round(GetMaxX/2), 0, GetMaxY, Round(GetMaxX/2))

D) line (Round(GetMaxY/2), 0, Round(GetMaxY/2), GetMaxY)

E) line (GetMaxX, GetMaxY, GetMaxX, GetMaxY)

{Дұрыс жауабы}=B

199 p^ типтелмеген көрсеткішке бейненің көшірмесі сақталынған. Программаның келесі фрагменті нені орындайды?

x:=10; y:=200;

while x<600 do

begin

putImage (x,y,p^,xorput);

delay(100);

putImage (x,y,p^,xorput);

inc(x,5);

end;

A) Суретті экранның сол жағынан оң жағына қарай жүргізеді.

B) Суретті экранның оң жағынан сол жағына қарай жүргізеді.

C) Сызықты экранның сол жағынан оң жағына қарай жүргізеді.

D) Суретті экранның төменгі шетінен жоғарғы шетіне дейін жүргізеді.

E) Нүктені экранның сол жағынан оң жағына қарай жүргізеді.

{Дұрыс жауабы}=A

200 қосындыны есептеу программасының дұрыс фрагментін көрсетіңіз.

А) s1:=0; p:=1;

for i:=1 to n do

begin

p:=p*i;

s1:=s1+exp(i*ln(x))/p;

end;

B) s1:=0; s:=1;

for k:=1 to n do

for i:=1 to n do

s:=s*k;

i:=i+1;

s1:=exp(i*ln(x))/i;

C) s1:=0; p:=1;

for i:=1 to n do

p:=p*i;

s1:=s1+exp(i*ln(x))/p;

D) s1:=0; p:=1;

for i:=1 to n do

begin

p:=p*i;

s1:=s1+exp(i*ln(x))/i;

end;

E) s1:=0;

for i:=1 to n do

begin

p:=p*i;

s1:=s1+exp(i*ln(x))/p;

end;

{Дұрыс жауабы}=A

201 Программа фрагментінің дұрыс орындалғандағы нәтижесін көрсетіңіз.

p:=1; i:=0;

while i < 12 do

begin

p:=p*(2*i+1);

i:=i+5;

end;

writeln(p);

A)15

B) 1

C) 0

D) 231

E) 11

{Дұрыс жауабы}=D

202 Программа фрагменті орындалғаннан кейін s1 және s2 мәндері неге тең болады?

a:=1;s1:=0; s2:=0;

for i:=1 to 3 do

begin

s1:=s1+a*i;

s2:=s2+(a+i);

inc(a);

end;

writeln( s1,s2);

А) 12, 14

B) 14, 12

C) 0, 0

D) 14, 15

E) 6, 12

{Дұрыс жауабы}=B

203 Келесі операторлар орындалғаннан кейін S айнымалысының мәнін анықтау керек.

S:=0; I:=1;

Repeat

S:=S+I;

I:=I+5;

Until I>10;

А) 7

B) 10

C) 0

D)17

E) 6

{Дұрыс жауабы}=A

204 Программа фрагменті орындалғаннан кейін s айнымалысының мәні неге тең болады?

x=3; k:=1; s:=0;

repeat

a:=(exp(3*ln(x))*SQR(k));

s:=s+a; k:=k+1;

until a>45;

A) 45

B) 9

C) 121

D) 0

E) 15

{Дұрыс жауабы}=A

205 + +…+ қосындыны есептеу программасының дұрыс фрагментін көрсетіңіз:

А) s:=1; s2:=0;s3:=0;

for i:=1 to n do

s:=s*i;

s2:=s2+(1/i);

s3:=s3+(s/s2);

B) s:=1;s2:=0;s3:=0;

for i:=1 to n do

begin

s:=s*i;

s2:=s2+(1/i);

s3:=s3+(s/s2);

end;

C) s:=0; s2:=0;s3:=0;

for i:=1 to n do

begin

s:=s*i;

s2:=1/i;

s3:=s3+(s/s2);

end;

D) s:=1; s2:=0;s3:=0;

for i:=1 to n do

begin

s:=i;

s2:=s2+(1/i);

s3:=s3+(s/s2);

end;

E) s:=1; s2:=0;s3:=0;

for i:=1 to n do

begin

s:=s*i;

s2:=s2+(1/i);

s3:=s/s2;

end;

{Дұрыс жауабы}=B

206 * * * * * көбейтіндіні есептейтін программаның дұрыс фрагментін таңдаңыз.

А) p:=1;a:=1;

For i:=1 to 3 do

For k:=1 to 2 do

begin

p:=p*(2*i/a);

a:=2*I + 1;

end;

B) p:=1;a:=1;

For i:=1 to 3 do

begin

For k:=1 to 2 do

p:=p*(2*i/a);

a:=2*I + 1;

end;

C) a:=1;

For i:=1 to 3 do

For k:=1 to 2 do

begin

p:=p*(2*i/a);

a:=2*I + 1;

D) p:=1;a:=1;

For i:=1 to 3 do

For k:=1 to 2 do

p:=p*(2*i/a);

a:=2*I + 1;

E) p:=1;a:=1;

For i:=1 to 3 do

begin

p:=p*(2*i/a);

a:=2*I + 1;

end;

{Дұрыс жауабы}=A

207 A[17] массивінің жұп позицияларында орналасқан элементтерінің арасындағы ең үлкен элементті анықтаудың дұрыс вариантын таңдаңыз.

A) MAX:=A[1];

FOR I:=2 TO 17 DO

IF A[I]>MAX THEN MAX:=A[I];

B) MAX:=A[2];

FOR I:=2 TO 8 DO

IF A[2*I]>MAX THEN MAX:=A[I];

C) MAX:=A[2];

FOR I:=2 TO 17 DO

IF A[2*I>MAX THEN MAX:=A[2*I];

D) MAX:=A[2];

FOR I:=2 TO 8 DO

IF A[2*I]>MAX THEN MAX:=A[2*I];

E) MAX:=A[1];

FOR I:=2 TO 17 DO

IF ODD(I) THEN IF A[I]>MAX THEN MAX:=A[I];

{Дұрыс жауабы}=D

208 а₁,...,а_n тізбегінің өспелі екенін тексерудің дұрыс вариантын таңдаңыз (егер тізбек өспелі болса, PR-ге 1-ді меншіктеу керек, кері жағдайда PR-ге 0-ді меншіктеу керек).

A) PR:=1; FOR I:=1 TO N-1 DO

IF A[I]>A[I+1] THEN break;

B) PR:=1; FOR I:=1 TO N DO

IF A[I]>A[I+1] THEN break;

C) FOR I:=1 TO N-1 DO;

IF A[I]>A[I+1] THEN begin PR:=0;break; end;

D) PR:=1; FOR I:=1 TO N-1 DO

IF A[I]>A[I+1] THEN PR:=0; break;

E) PR:=1; FOR I:=1 TO N-1 DO

IF A[I]>A[I+1] THEN

Begin PR:=0; break; END;

{Дұрыс жауабы}=E

209 Егер массив элементтері келесі сандар (3, 14, 3,6, 9,5,12) болса, программа фрагментінің орындалу нәтижесінде не басылады?

FOR I:=1 TO 7 DO

IF (A[I] mod 3=0) AND (A[I]>0) THEN WRITELN( A[I] 2);

A) 6,12,24 B) 3, 3,6, 9,12

C) 6, 6,12, 18,24 D) 3, 6, 12

E) 6, 6,12, 18

{Дұрыс жауабы}=A

210 Төменде N сандардың арифметикалық ортасын табатын программаның фрагменттері келтірілген. Олардың дұрысын көрсетіңіз.

1) 2) S:=0; I:=1;

S:=0; WHILE I<=N DO

FOR I:=1 TO N DO BEGIN ,

S:=S+A[I]; S:=S+A[I];

WRITE(S/N); INC(I);

END; WRITE (S/N);

3) 4) S:=0; I:=1;

S:=0; REPEAT

FOR I:=1 TO N DO

BEGIN S:=S+A[I];

S:=S+A[I]; INC(I);

WRITE(S/N); UNTIL (I<N);

END; WRITE(S/N);

A) 1,2

B) 1,3,4

C) 2,4

D) 1,2,4

E) 1,4

{Дұрыс жауабы}=A

211 Массивтегі жұп элементтердің саны мен қосындысын есептейтін программаның дұрыс фрагментін таңдаңыз

A) s:=0; k:=0;

for i:=1 to n do

if (A[i] mod 2 = 0) then begin

s:=s+A[i];

k:=k+1;

end;

B) s:=0; k:=0;

for i:=1 to n do

if (A[i] mod 2 = 0) then begin

s:=A[i];

k:=k+1;

end;

C) s:=0; k:=0;

for i:=1 to n do

if (A[i] mod 2 = 1) then

s:=s+A[i];

k:=k+1;

D) s:=0; k:=0;

for i:=1 to n do

if (A[i] / 2 = 0) then begin

s:=s+A[i];

k:=k+1;

end;

E) s:=0; k:=0;

for i:=1 to n do

if (A[i] mod 2 = 1) then begin

s:=s+A[i];

k:=k+1;

end;

{Дұрыс жауабы}=A

212 Х=6 болғандағы программа фрагментінің орындалу нәтижесін көрсетіңіз.

Case X of

1,3 : y:=1;

4..7: y:=2*X;

2,8: y:=sqr(X);

Else

Y:=0;

End;

Writeln(‘y=’,y:5:3);

1. 6

2. 12

3. 2*X

4. 0

5. 1

{Дұрыс жауабы}=B

213 Егер n айдың нөмірі мен кәбиса жылы (високосный год) үшін берілген a саны 1-ге тең болса және кері жағдайда 0-ге тең болса, айдағы күндер санын табу программасының дұрыс фрагментін таңдаңыз.

A) Read (a,n);

Case n of

1,3,5,7,8,10,12:y:=31;

4,6,9,11 :y:=30;

2:29;

End;

Case n of

1,3,5,7,8,10,12:y:=31;

4,6,9,11 :y:=30;

2:28;

End;

B) Read (a,n);

If a=1 then

Case n 1,3,5,7,8,10,12:y:=31;

4,6,9,11 :y:=30;

2:29;

else

If a=1 then

1,3,5,7,8,10,12:y:=31;

4,6,9,11 :y:=30;

2:28;

End;

C) Read (a,n);

If a=1 then

Case n of

1,3,5,7,8,10,12:y:=31;

4,6,9,11 :y:=30;

2: y:=29;

else

If a=0 then

Case n of

1,3,5,7,8,10,12:y:=31;

4,6,9,11 :y:=30;

2: y:=28;

End;

Writeln(y);

D) Read (a,n);

If a=1 then

Case n of

1,3,5,7,8,10,12:y:=31;

4..11 :y:=30;

2: y:=29;

else

If a=1 then

Case n of

1,3,5,7,8,10,12:y:=31;

4,6,9,11 :y:=30;

2:28;

End;

E) Read (a,n);

If a=1 then

Case n of

1,3,5,7,8,10,12:y:=31;

4,6,9,11 :y:=30;

2:29;

else

If a=1 then

1,3,5,7,8,10,12:y:=31;

4,6,9,11 :y:=30;

2: y:=28;

End;

{Дұрыс жауабы}=C

214 Қолданушыдан айдың нөмірін сұрайтын және сәйкес жыл мезгілін шығаратын программаның дұрыс фрагментін таңдаңыз.

A) Writeln(‘айдың нөмірін енгізіңіз’);

Readln(n);

Case n of

12,1,2: writeln(‘қыс’);

3..5: writeln(‘көктем’);

6..8: writeln(‘жаз’);

9..11: writeln(‘күз’);

End;

B) Writeln(‘айдың нөмірін енгізіңіз’);

Readln(n);

Case n of

12,1,2: writeln(‘қыс’);

3-5: writeln(‘көктем’);

6-8: writeln(‘жаз’);

9-11: writeln(‘күз’);

End;

C) Writeln(‘айдың нөмірін енгізіңіз’);

Readln(n);

Case n of

12;1;2: writeln(‘қыс’);

3-5: writeln(‘көктем’);

6-8: writeln(‘жаз’);

9-11: writeln(‘күз’);

End;

D) Writeln(‘айдың нөмірін енгізіңіз’);

Readln(n);

Case n of

12,1,2: writeln(қыс);

3-5: writeln(көктем);

6-8: writeln(жаз);

9-11: writeln(күз);

End;

E) Writeln(‘айдың нөмірін енгізіңіз’);

Readln(n);

Case n of

1-12: writeln(‘қыс’);

3-5: writeln(‘көктем’);

6-8: writeln(‘жаз’);

9-11: writeln(‘күз’);

End;

{Дұрыс жауабы}=A

215 Программаның орындалу нәтижесін көрсетіңіз

Program pr;

Var a,b,c : integer;

Procedure P;

Var d:integer;

Begin

d:=a; a:=b; b:=d;

end;

procedure Q;

begin

c:=a+b; b:=c-a;

end;

begin

a:=10; b:=5; c:=2;

P; writeln (a,b);

Q; writeln (a,b);

End.

A) 10 5

B) 0 0 C) a, b D) 5 10 E) 10 10

5 10 0 0 a, b 10 5 15 5

{Дұрыс жауабы}=D

216 Программаның орындалу нәтижесін көрсетіңіз

Program pr;

Var a,b,c : integer;

Procedure P;

Var d:integer;

Begin

d:=a; a:=b; b:=d;

end;

procedure Q;

begin

c:=a+b; b:=c-a;

end;

begin

a:=10; b:=5; c:=2;

P; writeln (a,c);

Q; writeln (a,c);

End.

A) 10 5 B) 0 0 C) a, b D) 5 2 E) 10 10

5 10 0 0 a, b 10 2 15 5

{Дұрыс жауабы}=D

217 Программаның орындалу нәтижесін көрсетіңіз

Program pr;

Var a,b : integer; s:real;

Procedure Sr( x,y:integer;var S real);

Begin

S:=(x+y)/2;

end;

begin

a=2, b=3;

sr(a, S, b);

writeln (S);

End.

A) 3.0

B) типтердің сәйкес келмеуі

C) 2.5

D) 5

E) S

{Дұрыс жауабы}=B

218 Массивтің тақ бағандарында орналасқан оң жұп элементтердің қосындысын есептеудің процедурасын сипаттайтын программаның дұрыс фрагментін көрсетіңіз.

A) Procedure sum(x:mas; S:integer);

Begin

S:=0;

For i:=1 to n do

For j:=1 to n do

If j mod 2 <> 0 then

If (x[i,j] >0) and (x[i,j] mod 2 =0) then

S:=S+ x[i,j];

End;

B) Procedure sum(x:mas; var S:integer);

Begin

S:=0;

For i:=1 to n do

For j:=1 to n do

If j mod 2 <> 0 then

If (x[j,i] >0) and (x[j,i] mod 2 =0) then

S:=S+ 1;

End;

C) Procedure sum(x:mas; var S:integer);

Begin

S:=0;

For i:=1 to n do

For j:=1 to n do

If j mod 2 <> 0 then

If (x[i,j] >0) and (x[i,j] mod 2 =0) then

S:=S+ x[i,j];

End;

D) Procedure sum(x:mas; var S:integer);

Begin

S:=0;

For i:=1 to n do

For j:=1 to n do

If i mod 2 <> 0 then

If (x[i,j] >0) and (x[i,j] mod 2 =0) then

S:=S+ x[i,j];

End;

E) Procedure sum(x:mas): var S:integer;

Begin

S:=0;

For i:=1 to n do

For j:=1 to n do

If j mod 2 <> 0 then

If (x[i,j] >0) and (x[i,j] mod 2 =0) then

S:=S+ x[i,j];

End;

{Дұрыс жауабы}=C

219 Массивтің тақ бағандарында орналасқан оң жұп элементтердің қосындысын есептейтін функцияны сипаттайтын программаның дұрыс фрагментін көрсетіңіз.

A) Function sum(x:mas):integer;

Begin

S:=0;

For i:=1 to n do

For j:=1 to n do

If j mod 2 <> 0 then

If (x[i,j] >0) and (x[i,j] mod 2 =0) then

S:=S+ x[i,j];

End;

B) function sum(x:mas):integer;

Begin

Sum:=0;

For i:=1 to n do

For j:=1 to n do

If j mod 2 <> 0 then

If (x[i,j] >0) and (x[i,j] mod 2 =0) then

Sum:=Sum+ 1;

End;

C) function sum(x:mas; var sum:integer);

Begin

S:=0;

For i:=1 to n do

For j:=1 to n do

If j mod 2 <> 0 then

If (x[i,j] >0) and (x[i,j] mod 2 =0) then

sum:=sum+ x[i,j];

End;

D) function sum(x:mas):integer;

Begin

S:=0;

For i:=1 to n do

For j:=1 to n do

If i mod 2 <> 0 then

If (x[i,j] >0) and (x[i,j] mod 2 =0) then

sum:=S+ x[i,j];

End;

E) function sum(x:mas): integer;

Begin

S:=0;

For i:=1 to n do

For j:=1 to n do

If j mod 2 <> 0 then

If (x[i,j] >0) and (x[i,j] mod 2 =0) then

S:=S+ x[i,j];

sum:=S;

End;

{Дұрыс жауабы}=E

220 Программаның орындалу нәтижесін көрсетіңіз

Program pr;

Var

f, i:integer;

function fb (n:integer):integer;

begin

if (n=1) or(n=2) then fb:=1

else

fb:=fb(n-1) + fb(n-2);+

end;

begin

n=5;

f:= fb(n);

writeln(f)

end.

1. 8

2. n

3. 5

4. 3

5. 0

{Дұрыс жауабы}=C

221 Программаның орындалу нәтижесін көрсетіңіз

Program pr;

Var

a,b,c,d : integer;

u,p,s: integer;

function f (x,y:integer):integer;

begin

if (x>y) then f:=x

else

f:=y;

end;

begin

a:=5; b=-5; c:= 2; d:=7;

u:=f(a,b); p:= f(u,c); s:=f(p,d);

writeln(u,p,s)

end.

1. u p s

2. 5 2 7

3. -5 -5 -5

4. 5 2 7

5. 5 5 7

{Дұрыс жауабы}=E

222 Мир баспасында шығарылған және дүкендерге 2002 жылдан бастап түскен кітаптар туралы мәліметтер шығаратын программаның дұрыс вариантын таңдаңыз.

A) for i:=1 to n do

if (a[i].izd=Мир) then

begin

writeln (a[i].awt);

writeln (a[i].nazw);

writeln (a[i].god);

writeln (a[i].datapost);

end;

B) for i:=1 to n do

if (a[i].izd=”Мир”) or (a[i].datapost<2002) then

begin

writeln (a[i].awt);

writeln (a[i]. nazw);

writeln (a[i].god);

writeln (a[i].datapost);

end;

C) for i:=1 to n do

if (a[i].izd=”Мир”) and (a[i].datapost>=2002) then

begin

writeln (a[i].awt);

writeln (a[i]. nazw);

writeln (a[i].god);

writeln (a[i].datapost);

end;

D) for i:=1 to n do

if (a[i].izd=Мир) and (a[i].datapost = 2002) then

begin

writeln (a[i].awt);

writeln (a[i].nazv);

writeln (a[i].god);

writeln (a[i].datapost);

end;

E) for i:=1 to n do

if a[i].izd=Мир and a[i].datapost >=2002 then

begin

writeln (a[i].awt);

writeln (a[i].nazv);

writeln (a[i].god);

writeln (a[i].datapost);

end;

{Дұрыс жауабы}=C

223 Туған жылдары кему реті бойынша орналасқан студенттер жайлы мәліметтер шығаратын дұрыс фрагментті таңдаңыз (мәліметтер жазбалар массивінде сақталады)

A) for i:=1 to n-1 do

for j:=i+1 to n do

if a[j].god>a[i].god then

begin

p:=a[i]; a[i]:=a[j]; a[j]:=p;

end;

for i:=1 to n do

with a[i] do

begin

writeln(fio); writeln(grup);

writeln(den); writeln(mes);

end;

B) for i:=1 to n-1 do

for j:=i+1 to n do

if a[j].god < a[i].god then

begin

p:=a[i]; a[i]:=a[j]; a[j]:=p;

end;

for i:=1 to n do

with a[i]. do

begin

writeln(fio); writeln(grup);

writeln(den); writeln(mes);

end;

C) for i:=1 to n do

if a[j].god>a[i].godthen

begin

end;

for i:=1 to n do

with a[i]. do

begin

writeln(fio); writeln(grup);

writeln(den); writeln(mes);

end;

D) for i:=1 to n do

for j:=i+1 to n+1 do

if a[j].god > a[i].god then

begin

a[i] =a[j]; a[j]= a[i];

end;

for i:=1 to n do

with a[i] do

begin

writeln(fio); writeln(grup);

writeln(den); writeln(mes);

end;

E) for i:=1 to n-1 do

for j:=i to n do

if a[j].god>a[i].god do

for i:=1 to n do

begin

writeln(fio); writeln(grup);

writeln(den); writeln(mes);

end; end.

{Дұрыс жауабы}=A

224 Оқушылар жайлы мәліметтер жазбалар массивінде сақталады. Программаның келесі фрагменті қандай мәліметтерді шығарады.

readln(kls);

for i:=1 to n do

with mas[i] do

if kls=klass then

begin

writeln(fam); writeln(imya); writeln(shkola);

end;

A) оқушылар жайлы мәліметтерді фамилиялары бойынша шығарады

B) барлық оқушылар жайлы мәліметтер шығарады

C) мектептің оқушылары жайлы мәліметтер шығарады

D) нақты сыныптағы оқушы жайлы мәлімет шығарады

E) нақты сыныптағы оқушылар жайлы мәліметтер шығарады

{Дұрыс жауабы}=E

225 Кубиктер туралы мәліметтер берілген: өлшемі, түсі және кубиктің материалы. Белгілі материалдан жасалған және қабырғасы 3 см-ден аспайтын кубиктердің санын шығаратын программаның дұрыс фрагментін таңдаңыз.

A) k:=0;

for i:=1 to n do

if ((a[i].material=material) and (a[i].rebro<=3)) then

k:=k+1;

writeln('k=',k);

B) k:=0;

for i:=1 to n do

if a[i].material=material and a[i].rebro<=3 then

k:=k+1;

writeln('k=',k);

C) k:=0;

for i:=1 to n do

for j:=i+1 to n do

if ((a[i].material=a[j].material) or (a[i].rebro<=3))

begin a[i].rebro:=k;

k:=k+1; end; writeln;

writeln('k=',k);

D) k:=0;

for i:=1 to n do

if (a[i].material=a[j].material) then

writeln('k=',k); end.

E) k:=0;

for i:=1 to n do

for j:=i+1 to n do

if ((a[i].material=a[j].material)and(a[i].rebro>3)) then

k:=k+1;

writeln('k=',k);

{Дұрыс жауабы}=A

226 Бесiншi символдан бастап S1 жолын S жолына әоюдың стандартты процедурасынын әолданып дҢрыс вариантын таңдаңыз:

A) INSERT (S, 5, S1)

B) INSERT (S1, S, 5)

C) INSERT (5, S, S1)

D) INSERT (5, S1, S)

E) INSERT (S1, 5, S)

{Дұрыс жауабы}=B

227 Келесi символдар тiзбегiнiң ғайсысы идентификатор:

A) B7A;

B) 1A;

C) 2a;

D)A+1;

E) ешғайсысы емес;

{Дұрыс жауабы}=A

228 Келесi символдардың ғайсысы Паскаль тiлiнде СHAR болып аныәталады :

A) -5;

B) '0';

C) ' -5';

D) 3.1;

E) AFF;

{Дұрыс жауабы}=B

229 ОRD () функциясы -

A) аргумент мёнiнiң реттiк номерiн;

B) аргументтiң алдың№ы мёнi;

C) аргументтiң келесi мёнiн;

D) аргументтiң мёнiн ғайтарады

E) ешғандай мён шы№армайды;

{Дұрыс жауабы}=A

230 N: =TRUNC ( SQRT(1.0/EPS)+0.5) -әрнегi EPS:=0.01 бол№ан жа№дайда

A) N=10.5;

B) N=10;

C) N=0.5;

D) N=11;

E) N=0;

{Дұрыс жауабы}=B

231 SUCC () функциясы -

A) аргумент мёнiнiң реттiк номерiн;

B) аргументтiң алдың№ы мёнi;

C) келесi мёнiн;

D) аргумент мёнiн;

E) ешғандай ёрекет етпейдi;

{Дұрыс жауабы}=C

232 х, у логикалыә айнымалылар , х-тiң мёнi TRUE

y- тi” мёнi FALSE бсл№анда x and not y әрнегiнi”

Нәтижесi

A) FALSE;

B) TRUE;

C) 0

D) 1

E) 1.0

{Дұрыс жауабы}=B

233 х, у логикалыә айнымалылар , х-тiң мёнi TRUE

y- тiң мёнi FALSE бло№анда not (x or y) әрнегiнiң

Нәтижесi

A) TRUE;

B) FALSE;

C) 1

D) 0

E) 1.0

{Дұрыс жауабы}=B

234 Кәшу нҢсғауы GOTO-дан кейiн :

A) Белгi;

B) тҢраәты;

C) функция;

D) процедура;

E) нҢсғау;

{Дұрыс жауабы}=A

235 CASE P OF

'2' : Writeln ('екi');

'3' : Writeln ('ңш');

'4' : Writeln ( 'тәрт') ;

END;{CASE}

Жо№арыда№ы программада№ы дҢрыс орындалуы ңшiн Р айнымалысын ғалай сипаттау керек?

A) P : integer;

B) P : real;

C) P : char;

D) P : boolean;

E) P : extended;

{Дұрыс жауабы}=C

236 TRUNC (X) стандартты функциясының Нәтижесi ненi ғайтарады?

A) Х мёнiнiң бңтiн бәлiгiн;

B) Х мёнiнiң бәлшек бәлiгiн;

C) Х-тiң мёнiн;

D) X-тiң мёнiн дәңгелектеп

E) ешғандай мёен ғайтармайды;

{Дұрыс жауабы}=A

237 TRUNC (X) стандартты функциясында Х ғалай сипатталуы керек?

A) integer;

B) real;

C) char;

D) boolean;

E) string;

{Дұрыс жауабы}=B

238 ROUND (X) стандартты функциясында Х ғалай сипатталуы керек?

A) integer;

B) real;

C) char;

D) boolean;

E) string;

{Дұрыс жауабы}=B

239 А:=10; В:=2; С:=100;

Writeln (А ,В:2,С:4); бол№анда тәмендегi Нәтижелердiң ғайсысы дҢрыс?

A) 102100;

B) 10 2100;

C) 10, 2100;

D) 10 2 100;

E) a, b, c;

{Дұрыс жауабы}=D

240 While <шарт> DO <цикл денесi >;

Цикл нҢсғауында <цикл денесi> орындалу ңшiн <шарт> әрнегiнiң мёнi неге тең болуы ғажет?

A) True ;

B) False;

C) 0;

D) 1;

E) Arr;

{Дұрыс жауабы}=A

241 False жёне True арасында№ы ғатынастардың ғайсысы дҢрыс?

A) False>True ;

B) False=True ;

C) False<True;

D) False>=True ;

E) False <=True ;

{Дұрыс жауабы}=C

242 Приоритетi тәмен операцияны кәрсетiңiз?

A) AND

B) NOT

C) IN

D) XOR

E) DIV

{Дұрыс жауабы}=C

243 Иницализация генераторы ңшiн кездейсоә сандардың стандартты функциясын таңдаңыз?

A) RANDOM

B) RANDOM (X)

C) RANDOMIZE

D) ROUND (X)

E) SHR

{Дұрыс жауабы}=C

244 Қарапайым типтерден қайсысы реттік типке жатпайды?

A) INTEGER

B) REAL

C) BOOLEAN

D) CHAR

E) BYTE

{Дұрыс жауабы}=B

245 Динамикалық айнымалыға жадыны бөліп беретін процедураны таңда:

A) Heaporg

B) Dispose

C) Heapend

D) Heapptr

E) new

{Дұрыс жауабы}=E

246 Текстегі әріптерден басқа символдарды жою керек және барлық кіші әріптерді сәйкес үлкен әріптермен ауыстыру керек. Программаның дұрыс фрагмент таңда.

A) for i :=1 to length (s) do

If (ord(s[i])>=97 ) and ( ord (s[i)<=127) then

St:=upcase (s[i])

Else

If (ord(s[i])>=65 ) and ( ord (s[i)<=90) then

St:= s[i];

Writeln(st);

B) for i :=1 to length (s) do

If (ord(s[i])>=97 ) or ( ord (s[i)<=127) then

St:=St+upcase (s[i])

Else

If (ord(s[i])>=65 ) and ( ord (s[i)<=90) then

St:=St+ s[i];

Writeln(st);

C) for i :=1 to length (s) do

If (ord(s[i])>=97 ) and ( ord (s[i)<=127) then

St:=st+upcase (s[i])

Else

If (ord(s[i])>=65 ) or ( ord (s[i)<=90) then

St:=st+ s[i];

Writeln(st);

D) for i :=1 to length (s) do

If (ord(s[i])>=97 ) and ( ord (s[i)<=122) then

St:=St+upcase (s[i])

Else

If (ord(s[i])>=65 ) and ( ord (s[i)<=90) then

St:=St+ s[i];

Writeln(st);

E) for i :=1 to length (s) do

If (ord(s[i])>=97 ) and ( ord (s[i)<=127) then

St:=St+upcase (s[i])

Else

If (ord(s[i])>=65 ) and ( ord (s[i)<=90) then

St:= s[i ] + St ;

Writeln(st);

{Дұрыс жауабы}=D

{Оқулық}= Абрамов С.А., Гнездилова Г.Г., Капустина Е.И., Селюн М.И. Задачи по программированию. - М.: Наука, 1988

247 Программа фрагментінің орындалу нәтижесін таңда.

var

n,cod : integer;

begin

s:=’3456’;

val (s,n,cod);

writeln(‘n=’,n,’cod=’,cod);

s:=’32.45’;

val (s,n,cod);

writeln(‘n=’,n,’cod=’,cod);

s:=’abcd’;

val (s,n,cod);

writeln(‘n=’,n,’cod=’,cod);

A) n=’3456’ cod=0

n=0 cod=3

n=0 cod=1

B) n=32.45 cod=0

n=0 cod=3

n=0 cod=1

C) n=3456 cod=0

n=0 cod=3

n=0 cod=1

D) n=3245 cod=0

n=0 cod=3

n=0 cod=1

E) n=3456 cod=0

n=0 cod=3

n=0 cod=0

{Дұрыс жауабы}=C

248 Программа фрагментінің орындалу нәтижесін таңда.

var

n: integer; c,s:string;

begin

n:= pos(‘abc’,’abefabcdeabc’);

writeln(‘n=’,n);

c:=copy(’abefabcdeabc’,6,3);

writeln(‘c=’,c);

s:=’ abcd ’;

insert (‘123’, s,3);

writeln(‘s=’,s);

end;

A) n=10

C = bcd;

S= ab123cd

B) n=5

C = fabcde;

S= ab123cd

C) n=5

C = bcd;

S= ab123cd

D) n=5

C = bcd;

S= ab123cd

E) n=5

C = bcd;

S= 123abcd

{Дұрыс жауабы}=D

249 Программманың келесі фрагменті нені орындайды?

Var S:char; k:integer;

Repeat

Read (S);

If NOT (S IN [‘+’,’-‘,’*’,’/’) then

Begin

If S IN [‘0’ ..’9’] then k:=k+1;

Write(S);

Until (S=’.’);

A) Цифрлардың санын есептейді және баспаға шығарады

B) Амалдардың таңбаларын баспаға шығарады C) 0 ден 9 ға дейінгі цифрларды баспаға шығарады. D) Амалдардың таңбаларын санын және цифрлардың санын баспаға шығарады

E) Цифрлардың санын есептейді және амалдардың таңбаларынан басқа барлық символдарды баспаға шығарады

{Дұрыс жауабы}=E