2.7 Өздік бақылау үшін тест тапсырмалары
1. Егер бастапқы мәліметтер ретінде 1.6 және 3.5 сандар берілген болса, программа баспаға нені шығарады?
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.
A) C =1.6 D = 3.5
B) 1.6 3.5
C) C =3.5 D = 1.6
D) C =3.5 D = 3.5
E) C =1.6 D = 1.6
2. Төменде келтірілген программалық фрагмент орындалу нәтижесінде баспаға не шығады?
A:=1;S1:=0; S2:=0;
FOR I:=1 TO 3 DO
BEGIN
S1:=S1AI;
S2:=S2+AII;
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
3. Қосымша диагональдағы оң және жұп элементтерге нолді меншіктеу керек
(массив a[7,7])
A) FOR I:=1 TO 7 DO
IF (A[I,8-I]>0) AND (A[I,8-I] MOD 2 =0) THEN A[I,8-I]:=0;
B) FOR I:=1 TO 7 DO
IF (A[I,8-I]>0) AND (A[I,8-I] MOD 2 =0) THEN A[I,J]:=0;
C) FOR I:=1 TO 7 DO
IF A[I,8-I]>0 AND A[I,8-I] MOD 2 =0 THEN A[I,8-I]:=0;
D) FOR I:=1 TO 7 DO
IF A[I,8-I]>0 AND ODD(A[I,8-I]) THEN A[I,8-I]:=0;
E) FOR I:=1 TO 7 DO
IF A[I,8-I]>0 OR ODD(A[I,8-I]) THEN A[I,8-I]:=0;
4. Кітапханаға 1995 жылдан кейін түскен программалау бойынша кітап туралы мәліметтерді шығарудың дұрыс вариантын таңдаңыз
А) FOR I:=1 TO N DO
WITH MASSVED [I] DO
IF (POS(‘программир’, NAZ)<>0) AND
(GOD > 1995) WRITELN (AUTOR, NAZ);
B) FOR I:=1 TO N DO
WITH MASSVED [I] DO
IF POS(‘программир’, NAZ)<>0 AND (GOD > 1995)
WRITELN (AUTOR, NAZ);
C) FOR I:=1 TO N DO
WITH MASSVED DO
IF (‘программир’= NAZ) AND (GOD > 1995)
WRITELN (AUTOR, NAZ);
D) FOR I:=1 TO N DO
WITH MASSVED DO
IF (POS(‘программир’, NAZ)<>0) AND
(GOD > 1995) WRITELN (AUTOR, NAZ);
E) FOR I:=1 TO N DO
WITH MASSVED DO
IF (NAZ=‘программир) AND (GOD > 1995)
WRITELN (AUTOR, NAZ);
5. дәлдікпен қосындыны есептеудің дұрыс вариантын таңдаңыз
A) i:=1; REPEAT y:=1/i*(i+1); S:=S+y; UNTIL y>
B) REPEAT y:=1/i*(i+1); S:=S+y; UNTIL y>
C) REPEAT y:=1/i(i+1); S:=S+y; UNTIL y<
D) i:=1; REPEAT y:=1/i*(i+1);S:=S+y; i:=i+1 UNTIL y<
E) i:=1; REPEAT y:=1/i(i+1); S:=S+y; UNTIL y<
6. Берілген программалық фрагменттің нәтижесінде баспаға не шығарылатынын ұсынылған жауаптардан таңдаңыз
Var a,b,c : real;
Begin
b := 9.5;
a := 4/2 + 3/5 +b;
c := a – b + 8.7;
writeln(‘a = ’, a, ‘b = ’,b, ‘c = ’,c);
End.
A) a = 12.1 b = 9.5 c = 11.3
B) a = 11.1 b = 8.5 c = 10.3
C) a = 13.1 b = 9.5 c = 9.3
D) a = 13.1 b = 9.5 c = 10.3
E) a = 12.1 b = 8.5 c = 11.3
7.
өрнектің мәнін есептеңіз
A) -8
B) 2
C) 1
D) 6
E) 3
8. Программа фрагментінің орындалу нәтижесін көрсетіңіз
S:=0; P1:=1;
FOR I:=1 TO N DO
P1:=P1I;
FOR I:=1 TO N DO
BEGIN
P2:=1
FOR K:=1 TO I DO
P2:=P2K;
S:=S+1/(P2+1);
END;
S:=1/P1S;
WRITE( S)
A) 1 1 B) 1 1 C) 1 1 D) 1 1 E) 1
--- ------ --- ------ --- + ---- --- ------ ------
n! k!+1 n! (k+1)! n! k+1 n! k!+1 k!+1
9. Нәтиже неге тең болады?
Var x: integer;
begin x:= ( ord('5') -ord('0'));
writeln (x); end.
A) 6 B) 5 C) 0 D) 7 E) х
10. Қолдану нәтижесі жол болатын стандартты функцияны көрсетіңіз
VAL
CONCATE
POS
LENHTH
HIGH
11. Келесі программа нені есептейді?
program pr;
var a: array[1..10] of integer;
s,i: integer;
begin
for i:=1 to 10 do
read(A[i]);
s:=1;
for i:=1 to 10 do
if A[i] mod 2 =1 then s:=s*A[i];
writeln(‘s= ‘,s);
end.
A) А[10] массивінің тақ элементтерінің қосындысын
B) А[10] массивінің жұп элементтерінің көбейтіндісін
С) А[10] массивінің жұп элементтерінің қосындысын
D) А[10] массивінің тақ элементтерінің көбейтіндісін
E) А[10] массивінің жұп элементтерінің көбейтіндісін және қосындысын
12.
функциясы берілген. VAR бөлімінде
айнымалы келесі типке жатады
A) REAL
B) CHAR
C) BOOLEAN
D) STRING
E) INTEGER
13.
өрнегінің дұрыс жазылуын таңдаңыз.
A) sqr(exp(3*x +5))*sqr(exp(3*x +5))*exp(3*x +5)
B) exp(1/5*ln(exp(3*x +5)))
C) sqr(exp(3*x +5))
D) exp(3*x +5)*sqr(exp(3*x +5))
E) exp(3*x +5)
14. succ(succ(pred(8))) өрнегінің мәнін есептеңіз..
A) 9
B) 7
C) 8
D) 8,5
E) 4
15. [4..10]-[5..14]*[7..19]+[3..9] өрнегін есептеу кезіндегі жауаптың дұрыс вариантын көрсетіңіз
[3..9]
[4..10]
[3..10]
[6..9]
[5..19]
16. Программа фрагментінің орындалу нәтижесін көрсетіңіз.
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
17. Программа фрагментінің орындалу нәтижесін көрсетіңіз.
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
18. Келесі есепті шешу үшін программаның дұрыс фрагментін таңдаңыз: бүтін сандардан тұратын f файлы берілген; g файлына 3 санына бөлінетін және 7 санына бөлінбейтін сандарды жазу керек.
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;
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;
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;
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;
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;
19. Қандай процедура арқылы жадыдан динамикалық айнымалыға орын бөленеді?
A) Heaporg
B) Dispose
C) Heapend
D) Heapptr
E) new
20. Келесі есепті шешу үшін жауаптың дұрыс вариантын таңдаңыз: экранның ортасында горизонталь сызықты сызатын программаны жазыңыз
А) 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)
Аралық және қорытынды бақылаудың дұрыс жауаптарының кілттері
|
1 – С |
11 – D |
|
2 – A |
12 – E |
|
3 – A |
13 - B |
|
4 – A |
14 -A |
|
5 – D |
15- A |
|
6 – A |
16 - E |
|
7 – C |
17 - C |
|
8 – A |
18 - A |
|
9 – B |
19 – E |
|
10 – B |
20 - A |