Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
прог.doc
Скачиваний:
1
Добавлен:
01.05.2025
Размер:
335.36 Кб
Скачать
  1. Типтердің сәйкес келмеуі

  2. 3.0

  3. 2.5

  4. 5

  5. S

269. Көрсетілген координаттар ортасында берілген радиустары бойынша дөңгелек салу

A) LINETO(X,Y)

B) CENTER(X,Y,R)

C) CIRCLE(X,Y,R)

D) RECTANGLE(X1,Y1,X2,Y2)

E) MOVETO(XY)

270. Байланыстыру операторы келесі түйінді сөздерден тұрады:

A) WITH…DO

B) CASE…OF

C) IF…THEN

D) WHILE…DO

E) REPEAT…UNTIL

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

p1,p2:integer; p3:real;

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

Dispose(p1);

Dispose(p2);

Dispose(p3);

  1. 10

  2. 8

  3. 6

  4. 3

  5. 12

272. Қай процедура көмегімен F файлынан берілгендерді оқуға болады

A) Read(f, список переменных)

B) Write(f, список переменных)

C) Reset(f, список переменных)

D) Rewrite(f, список переменных)

E) End

273. Бір ғана арифметикалық операцияның орындалуын (char ch;) SWITCH таңдау операторын қолданып дұрыс вариантын табыңыз

A) switch (ch){

case ‘-’:z=x-y; break;

case ‘+’:z=x+y; break;

case ‘%’:z=x%y; break;

default: printf(“Work finished”); break;}

B) switch {

case ‘-’:z=x-y; break;

case ‘+’:z=x+y; break;

case ‘%’:z=x%y; break;

default: printf(“Work finished”); break;}

C) switch (ch){

case ‘-’:z=x-y;

case ‘+’:z=x+y; break;

case ‘%’:z=x%y; break;

default: printf(“Work finished”); break;}

D) switch {

case ‘-’:z=x-y;

case ‘+’:z=x+y;

case ‘%’:z=x%y;

default: printf(“Work finished”); break;}

Е) switch {

case ‘-’:z=x-y;

case ‘+’:z=x+y; break;

case ‘%’:z=x%y; break;

default: printf(“Work finished”); break;}

274. А[12,12] массивінің жұп жолдарында орналасқан элементтерінің арасындағы ең үлкен элементін табу керек.

A) MAX:=A[2,1];

FOR I:=1 TO 6 DO

FOR J:=1 TO 12 DO

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

B) MAX:=A[2,1];

FOR I:=2 TO 6 DO

FOR J:=1 TO 12 DO

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

C) MAX:=A[2,1];

I:=2;

WHILE I<=12 DO

FOR J:=1 TO 12 DO

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

D) MAX:=A[2,1]; I:=2;

WHILE I<12 DO

BEGIN

FOR J:=1 TO 12 DO

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

I:=I+2;

END;

E) MAX:=A[2,1];

FOR I:=1 TO 6 DO

FOR J:=1 TO 12 DO

IF A[2+I,J]>MAX THEN MAX:=A[2+I,J];

275. Басы, соңы қандай символдың көмегімен белгіленеді

А) шеңбер

В) тікбұрыш

С) ромб

D) параллелограмм

Е) эллипс

276. Программаның орындалатын бөлігі ...... түйінді сөзден басталады

А) CONST

В) LABEL

С) BEGIN

D) TYPE

Е) VAR

277. Келесі программа орындалғаннан кейін баспаға не шығады

FOR I:=1 TO 3 DO

BEGIN

FOR J:=1 TO 3 DO

WRITE (I*J);

WRITELN;

END;

А) 1 2 3

2 4 6

3 6 9

В) 1

4

9

С) 1 1 1

2 2 2

3 3 3

D) 1, 2, 3

Е) 1 2 3 2 4 6 3 6 9

278. Индекс

А) Массив өлшемі

В) Массив элементінің орналасуын сипаттайтын шама

С) Массивтің төменгі өлшемі

D) Массивтің жоғарғы өлшемі

Е) Айнымалылардың тізбегі

279. Функцияны хабарлайтын қызметші

А) PROCEDURE

В) ИМЯ

С) TYPE

D) END

Е) FUNCTION

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

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

В) Rectangle (10, 10, 100, 150)

С) Rectangle (10, 100, 10, 150)

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

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

281. Жазбаны баяндау түйінді сөзінен басталады

А) pointer

В) array

С) real

D) record

Е) file

282. Өрнекті есептегендердің дұрыс вариантын [4..10]-[5..14]*[9..19]+[3..9]

А) [4..10]

В) [3..9]

С) [6..9]

D) [5..19]

Е) [3..10]

283. Жазба типінің сипатталуы

А) тип аты =SET OF базалық тип

В) тип аты =WRITE OF өрістер тізімі

С) тип аты =ARRAY OF өрістер тізімі

D) тип аты =WITH OF өрістер тізімі

Е) тип аты =RECORD өрістер тізімі END

284. Курсорды келесі қатарға өткізу жұмысын орындайтын оператор

А) PRINT

В) READLN

С) WRITE

D) WRITELN

Е) READ

285. Алдын-ала шарт бойынша қайталайтын циклдік оператор келесі түйінді сөздерден тұрады

А) WHILE...DO

В) REPEAT...UNTIL

С) WITH...DO

D) FOR...DO

Е) IF...THEN

286. Параметрлі цикл операторы

А) IF...THEN ELSE

В) FOR..DO

С) REPEAT...UNTIL

D) BEGIN...END

Е) WHILE...DO

287. MSDOS операциялық жүйесінің жабдықтарын қолдану мүмкіндігін беретін модуль

А) DOS

В) CRT

С) SYSTEM

D) GRAPH

Е) SRC

288. PROGRAM a1;

VAR S, I: INTEGER;

BEGIN

S:=0;

FOR I:=1 TO 3 DO

BEGIN

S:=S+SQR(I)+1;

END;

WRITE(S);

END

Программа нәтижесі

А) 15

В) 7

С)14

D)17

Е) 5

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

А) 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;

В) 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;

С) 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;

D) 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

Sum:=Sum+1;

End;

Е) 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;

290. Процедура және функциядан тұратын графикалық операциялардың орындалуын қамтамасыз ететін модуль

А) CRT

В) GRAPH

С) SCR

D) DOS

Е) SYSTEM

291. Жиындар типінің сипатталуы

А) тип аты =SET OF базалық тип

В) тип аты =ARRAY OF өрістер тізімі

С) тип аты =WITH OF өрістер тізімі

D) тип аты =RECORD өрістер тізімі END

Е) тип аты =WRITE OF өрістер тізімі

292. Бос жиын -

А) тек қана нөл санынан тұратын жиын

В) символдар тізбегі

С) бұл бір типтегі компоненттерден тұратын берілгендер құрылымы

D) бос жиын деген болмайды

Е) элементтері жоқ жиын

293. Жиындардың бірігуі

А) А+В

В) А in B

С) A/B

D)A*B

Е) A-B

294. Физикалық файлмен файлдық айнымалыны байланыстырушы процедура

А) REWRITE()

В) ASSIGN()

С) RESET()

D)CLRSCR

Е) ERASE()

295. PROGRAM a16;

CONST X=0.7;

VAR Y: REAL;

BEGIN

IF (X>1) AND (X<2) THEN Y:=3.0

ELSE Y:=EXP(3*LN(4));

WRITE (Y:4:1);

END

Программа нәтижесі

А) 3.0

В) 0.7

С) 64.0

D)16

Е) 64

296. PROGRAM a40;

VAR B: ARRAY [1..4] OF INTEGER;

P,K: iNTEGER;

BEGIN P:=1;

B[1]:=2; B[2]:=3; B[3]:-4; B[4]:=0;

FOR K:=1 TO 3 DO

IF D[K]>=0 THEN P:=P+1;

WRITE (P)

END

Баспаға шығады

А) 4

В) 2

С) 3

D)-1

Е) -4

297. Таңдау операторының дұрыс вариантын көрсетіңіз

A) switch (i)

{ case 1 3 5: cout<<"tak" ; break;

case 2 4 6: cout<<" zhup" ; break;

}

B) switch (i)

case 1,3,5: cout<<"tak" ; break;

case 2,4,6: cout<<" zhup" ; break;

C) switch (i)

{ case 1..5: cout<<"tak" ; break;

case 2..6: cout<<" zhup" ; break;

}

D) switch (i)

{ case 1,3,5: cout<<"tak" ;

case 2,4,6: cout<<" zhup" ;

}

E) switch (i)

{ case 1,3,5: cout<<"tak" ; break;

case 2,4,6: cout<<" zhup" ; break;

}

298. Келтірілген программа баспаға шығарады

PROGRAM PAR;

VAR C, D: INTEGER;

PROCEDURE Q(X:integer; var Y: INTEGER);

BEGIN Y:=X+1 END;

PROCEDURE P(X,Y: INTEGER);

BEGIN Y:=X+1 END;

BEGIN

C:=2 D:=0; P(SQR(C)+C, D); WRITELN(D);

C:=2; d:=0; Q(SQR(C)+C,D); WRITELN(D); END

А) 0 7

В) 7 7

С) 2 3

D)0 0

Е) 6 7

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

керек.

S:=0; I:=0;

While i<5 do i:=i+1;

S:=S+1/i;

A) 0,25

B) 21/12

C) 217/60

D) 2,1

E) 0,2

300. Егер де А массивінің элементтері (4,105,11,14,5) белгілі сандары болса,

онда программа баспаға қандай сандарды шығарады?

FOR I:=1 TO 4 DO

BEGIN

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

FOR J:=I TO 5 DO

BEGIN

IF A[J]<M THEN BEGIN 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)1,2,3,4,5

D)4,11,105,14,5

E)4,5,11,14,105