028 Program a28;
VAR Y: ARRAY [1..4] OF INTEGER;
S,I: INTEGER;
BEGIN
S:=0; Y[1]:=-4; Y[2] :=3; Y[3]:=0;
Y[4]:=-1;
FOR I:=1 TO 4 DO
IF Y[I]<= 0 THEN S:=S+1;
WRITE (S)
END.
Баспаға не шығады
A) 3
B) 1
C) 2
D) 4
E) 3
{Дұрыс жауабы}=E
029 Белгі:
А) трансляция кезіндегі арнайы түрде шектелген программа фрагменті
В) кейбір әрекеттердің толық сипатталуы
С) берілгендер типі және идентификаторы көрсетілген сипатталу
D) идентификатор немесе таңбасыз бүтін сан
Е) программаның орындалу барысында өзгермейтін шамалар
{Дұрыс жауабы}=D
030 Program a30;
VAR Y: ARRAY [1..3] OF INTEGER;
P,K: INTEGER;
BEGIN
P:=4 ; Y[1]:=-6; Y[2] :=0; Y[3]:=1;
FOR K:=1 TO 3 DO
P:=P+Y[K];
WRITE (P)
END.
Баспаға не шығады
A) 11
B) -1
C) 7
D) 3
E) -5
{Дұрыс жауабы}=B
031 Программаның орындалуын тоқтата тұру
A) DELAY
B) CLRSCR
C) GOTOXY
D) KeyPRESSED
E) END
{Дұрыс жауабы}=A
032 Program a32;
VAR F: ARRAY [1..4] OF INTEGER;
G,X: INTEGER;
BEGIN
F[1]:=-2; F[2] :=-1; F[3]:=2;
F[4]:=4; G:=-3;
FOR X:=1 TO 4 DO
G:=G*ABS(F[X]);
WRITE (G)
END.
Баспаға не шығады
A) -48
B) -6
C) 48
D) -12
E) 24
{Дұрыс жауабы}=A
033 Тұрақтылар:
А) обьектілерді белгілеу үшін әріптерден басталатын символдар тізбегі
В) программаның орындалу барысында өзгеріп отыратын шамалар
С) программаның орындалу барысында өзгермейтін шамалар
D) мәліметтер бойынша орындалатын айнымалы қабылдауы мүмкін көптік мән
Е) символдар тізбегі
{Дұрыс жауабы}=С
034 Program a34;
VAR D: ARRAY [1..2,1..2] OF INTEGER
P,K: INTEGER;
BEGIN
P:=1; D[1,1]:=-3; D[1,2] :=2; D[2,1]:=2;
D[2,2]:=2;
FOR K:=1 TO 2 DO
IF D[K,K]<0 THEN P:=P*D[K,K];
WRITE (P)
END.
Баспаға не шығады
A) 1
B) 6
C) -24
D) -3
E) -6
{Дұрыс жауабы}=D
035 Массив элементтерін енгізу
A) FOR I:=1 TO N DO WRITE(a[i])
B) READ(a[i])
C) FOR I:=1 TO N DO READ(a[i])
D) READ ARRAY(a[i])
E) A : array [1..10] of integer
{Дұрыс жауабы}=C
036 Program a36;
VAR D: ARRAY [1..2,1..2] OF INTEGER;
P,I,J: INTEGER;
BEGIN P:=1;
B[1,1]:=-1; B[1,2] :=-5; B[2,1]:=4;
B[2,2]:=-2;
FOR I:=1 TO 2 DO
FOR J:=1 TO 2 DO
P:=P*B[I,J];
WRITE (P)
END.
Баспаға не шығады
A) 20
B) -20
C) 10
D) 40
E) -40
{Дұрыс жауабы}=E
037 Символдық шаманың ұзындығын анықтау операторы
A) POS
B) VAL
C) STR
D) LENGTH
E) DELETE
{Дұрыс жауабы}=D
038 Сандық шаманы символдық шамаға ауыстыру операторы
A) STR
B) VAR
C) POS
D) DELETE
E) VAL
{Дұрыс жауабы}=А
039 Файлдық тип ... қызметші сөзімен сипатталады:
A) ARRAY…OF
B) SET..OF
C) RECORD…END
D) FILE..OF
E) END
{Дұрыс жауабы}=D
040 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 B[K]>=0 THEN P:= P+1;
WRITE (P)
END.
Баспаға не шығады
A) 4
B) 2
C) 3
D) -1
E) -4
{Дұрыс жауабы}=C
041
Паскаль тіліндегі жазылуы
A) (EXP(1)+A*B) / (SQR(COS(X))+SIN(X)
B) EXP(X)+A*B) / (SQRT(COS(X))+SIN(X))
C) (EXP(1)+A*B) / (SQR(COS(X))+SIN(X))
D) (EXP(X)+A*B) / (COS(X)*COS(X)+SIN(X))
E) EXP^X+A*B) / (COS(X)*COS(X)+SIN(X))
{Дұрыс жауабы}=D
042
Паскаль тіліндегі жазылуы
A) ABS(COS(X)*COS(X))/ A*B
B) COS(X)*COS(X))/ A*B
C) ABS(SQR(COS(X)))/ (A*B)
D) COS(SQR(X))/ (A*B)
E) ABS(COSX*COSX)/ A*B
{Дұрыс жауабы}=C
043
Паскаль тіліндегі жазылуы
A) LN(ABS(SIN(SQRT(A) )))
B) LOG(ABS(SIN(SQRT(A) )))
C) LN(ABS(SIN(SQR(A) ))
D) LOG(SIN(SQRT(A) ))
E) LN(SIN(SQR(A) ))
{Дұрыс жауабы}=A
044 14 MOD 4 нәтиже қандай
A) 1
B) 2
C) 3
D) 4
E) -4
{Дұрыс жауабы}=B
045 PRED(19) нәтиже қандай
A) 18
B) 20
C) 19
D) 17
E) 0
{Дұрыс жауабы}=A
046 SUCC(11) нәтиже қандай
A) 10
B) 11
C) 9
D) 12
E) 0
{Дұрыс жауабы}=D