Аралық бақылау тапсырмалары (1 және 2)

1. [-20, 50] арасындағы кездейсоқ бүтін сан шығару операторы қалай жазылады?

a) random(70)+20

b) random(50)-20

c) random(70+20)

d) random(70)-20

2. х айнымалысын форматтап шығару вариантын көрсет:

a) write(x)

b) write(‘x=4:2’,x)

c) write(‘x=’,x:6:2)

d) writeln(x)

3. sqrt(exp(2*ln(5))) өрнегінің мәні неге тең?

a) 2

b) 5

d) 25

a) 36

c) 64

5. Нақты типке не жатады:

1. word

2. real

4. byte

a) 1-5

c) 2,3,5

d) 1,4

6. inc (x) функциясы не орындайды?

a) х -ті 1-ге кемітеді

b) х -ті 1-ге көбейтеді

c) х -ті 1-ге бөледі

d) х -ті 1-ге арттырады

7. inc(x);x:=x*1;x:=sqr(x); нәтижеде x-тің мәні неге тең болады?

a) 2

c) 4

8. формуласының Паскаль тілінде жазылуы: 3 5 x ctgx y

a) у:= cos(x)/sin(x)+exp((5/3)*ln(x))

b) у:= ctan(x)+exp((5/3)*ln(x))

c) у:= ctg(x)+exp((3/5)*ln(x))

d) у:= sin(x)/cos(x)+exp((5/3)*ln(x))

9. (6 div 3) mod 2 өрнегінің нәтижесі неге тең?

a) 0

c) 2

10. Жалақы мөлшері S-тең. Оның 10 процентін есептеу формуласының дұрыс жазылуы:

a) s*100/10

b) s/100

c) s*10/100

d) s*10

a) s/(1024*1024)

b) s/1024

c) s*1024

d) s*1000

12. Екі қабырғасы мен олардың арасындағы бұрышы берілген үшбұрыш ауданын табу формуласының дұрысын көрсет:

a) S:=1/2* a*b*sin (x*PI/180)

b) S:=( a*b*sin (x)) /2

c) S:=2* a*b*sin (x*PI/180)

d) S:=1/2* a*b*sin x

13. Төмендегі программа нені анықтайды?

read( x1, у1, х2, у2);

d:= SQRT (sqr(x2-x1)+sqr(y2-y1));

write(d);

a) жазықтықтағы 4 нүктенің ара қашықтығын

b) кеңістіктегі екі нүктенің ара қашықтығын

c) жазықтықтағы екі нүктенің ара қашықтығын

d) нүктеден координаталар басына дейінгі қашықтықты

14. Радиусы берілген шеңбердің ұзындығын және , осы шеңбермен шектелген дөңгелектің ауданын табу программасының дұрысы қайсы?

a) begin readln(R); L:=4*pi*R; S:=pi*sqr(r); write(L,S); end.

b) begin readln(R); L:=2*pi*R*R; S:=pi*sqr(r); write(L,S); end.

c) begin readln(R); L:=2*pi*R; S:=pi*sqr(r); write(L,S); end.

d) begin readln(R); L:=2*pi*R; S:=pi*sqrt(r); write(L,S); end.

15. x:=5; s:=6.7; x mod 2+round(S) өрнегінің нәтижесі неге тең?

a) 9

b) 1

d) 2.5

a) (sqr(x)+sqr(y)>4) and (sqr(х)+sqr(y)<16)

b) (sqr(x)+sqr(y)>2) and (sqr(х)+sqr(y)<4)

c) (sqr(x)+sqr(y)<4) and (sqr(х)+sqr(y)<16 )

d) (sqr(x)+sqr(y)>4) or (sqr(х)+sqr(y)<16)

17. Қабырғалары a,b,c үш санға тең үшбұрыштың болатындығын тексеретін дұрыс шартты көрсет

a) а>b+с

b) ( а>b+с) or (b>а+c) or (c>b+a)

c) а

d) (а>b+с) and (b>а+c) and (c>b+a)

18. Төмендегі программа нәтижесінде экранға не шығады?

х:=5; у:=4;

if x mod 2=0 then begin x:=sqr(x); y:= sqr(y); end

else begin х:=х*2; у:=у*2 end;

write (х, у);

a) 25, 16

b) 10, 8

c) 10, 16

d) 25, 8

19. Төмендегі программада цикл неше рет қайталанады?

х:=1;

while х<= 10 do begin

writeln(х);

х:=х+2;end;

a) 5

b) 10

d) 3

for х:=11 to 99 do

if (x mod 3=0) or (x mod 5=0) then S:=S+1;

write(S);

a) Барлық екі таңбалы сандардың ішінен 3-ке немесе 5-ке бөлінетін сандардың саны;

b) Барлық екі таңбалы тақ сандардың ішінен 3-ке немесе 5-ке бөлінетін сандардың саны;

c) Барлық екі таңбалы сандардың ішінен 3-ке немесе 5-ке бөлінетін сандардың қосындысы;

d) Барлық екі таңбалы сандардың ішінен 3-ке және 5-ке бөлінетін сандардың қосындысы;

21. Программаның орындалу нәтижесінде k-ның мәні неге тең болады?

for х:=1 to 10 do

if x mod 9=0 then k: =k+1

write(k);

a) 4

b) 3

d) 1

a) Паскаль

b) Ада Лавлейс

c) Беббидж

d) Евклид

23. Келесі программа фрагменті нені табады?

Begin

Readln(a,b);

If a>b then a:=a-b else b:=b-a;

write(а);

End.

b) бір- біріне тең емес екі санның айырмасын

c) берілген екі санның ең кіші ортақ еселігін

d) берілген екі санның ең үлкен ортақ бөлгішін

24. Келесі программа не анықтайды?

var a: array [1..10] of real;

i, p: integer; x: real;

begin

read (a[i]);

x:=a[1]; p: =1;

for i:=1 to 10 do

if a[i]>x then begin x:=a[i]; p:=i; end;

writeln (х)

End.

a) массивтің х-ке тең элементінің индексін табады.

c) максимум элементті табады

d) массивтің x-ке тең элементін табады

25. Келесі программа нені орындайды?

var s:string; k:byte;

begin read(s);

for i:=1 to length(a) do

if s[i]='c' then inc(k);

writeln(k); end.

a) Сөйлемдегі 'с' әрпінен басталатын сөздерді санайды

b) Сөздегі берілген символды әрпін санайды

c) Сөздегі с әрпін санайды

d) Сөздегі с әрпін экранға шығарады

26. Төмендегі функция нені анықтайды?

function PP(a,b:byte):byte;

begin