Var X,y:integer;

function tg(x:real):real;

begin

tg=sin(x)/cos(x)

end;

begin

writeln(‘x-тiң мәнiн енгiз’);

readln(x);

y:=tg(x)+1/tg(x)+sqr(tg(x));

readln

end.

E) дұрыс жауап жоқ

*****

Қандай функция рекурсивті деп аталады?

A)параметр-аргументтердi қолданатын көмекшi программа

B) есептеулердi екi кезеңде орындайтын операторлар жүйесi

C) көмекшi программа өзiн-өзi шақыратын алгоритмдiк конструкция

D) глобальды айнымалылар арқылы мәндердi алатын процедура

E) параметрлердi қолданатын операторлар жүйесi

*****

Жазу дегеніміз не?

А) әр түрлi типтегi жеке компоненттерден тұратын күрделi деректердi сақтауға арналған құрылым

В) құрама атау

С) жолдық болып хабарланған айнымалы

D) нақты мәндердi сактауға арналған дерек типi

E) string болып хабарланған символ жиынтығы

*****

Біріктіру (with) командасының қызметі

A) айнымалының толық емес атауын қолдануға рұқсат бередi B) екi жазуды бiреуге бiрiктiредi

C) программада тек өрiс атауын жазуға мүмкiндiк бередi

D) әр түрлi типтегi компоненттердi бiрiктiредi

E) екi жазуды бiрiктiрмейдi

*****

Файл дегеніміз не?

A) элементтер саны көрсетiлген массив B) оқуға ашық массив C) массив атауы D) сыртқы құрылғыда орналасқан деректер жиынтығы E) сандық мәндер тiзбегi

*****

Файлдармен жұмыс істеу командалары

A) assign, reset, read, close, rewrite, write

B) record, read, real, reset

C) read, write, repeat, while

D) writeln, real, readln, reset

E) rewrite, write, output, real

*****

Пиксель дегеніміз не ?

A) дисплейдiң графикалық экраны тұратын нүктелер

B) графикалық объектiлер құруға мүмкiндiк беретiн көмекшi программа

C) стандартты графикалық модуль

D) сызықтық график құрулар программасы

E) монитор сапасын анықтайтын параметр

*****

Келесі алгоритмді орындау нәтижесінде m-айнымалы мәні неге тең?

m:=B[1]; For i:=1 to n do if B[i]<m then m:=B[i];

A) B массивінің максимал элементінің мәніне;

B) B массивінің минимал элементінің мәніне;

C) B массивінің элементтерінің көбейтіндісіне;

D) B массивінің элементтерінің қосындысына;

E) B массивінің тақ мәнді элементтерінің қосындысына;

*****

Алгоритмнің орындалу нәтижесі неге тең?

D:=1; D:=0; D:=D+D;

A) 2;

B) 1;

C) 0;

D) 10;

E) 3;

*****

Келесі алгоритмді орындау нәтижесінде s-айнымалысының мәні неге тең?

S:=0; For I:=1 to n do

Begin If b[I] mod 2=0 then s:=s+b[I]; End.

A) B массивінің элементтерінің қосындысына;

B) B массивінің жұп элементтерінің қосындысына;

C) B массивінің жұп элементтерінің көбейтіндісіне;

D) B массивінің жұп номерлі элементтерінің көбейтіндісіне;

E) B массивінің тақ номерлі элементтерінің қосындысына;

*****

Фрагмент орындалғаннан кейін

A:=5; B:=4; A:=B+4; A және B айнымалыларының мәндері тең болады:

A) A=5; B=9;

B) A=4; B=8;

C) A=8; B=7;

D) A=5; B=4;

E) A=8; B=4;

*****

Келесі алгоритмді орындау нәтижесінде P-айнымалысының мәні неге тең?

P:=1; For i:=1 to n do

Begin for j:=1 to n do

Begin if i=j then P:=P*A[i,j]; end; end.

A) Екі өлшемді A массивінің бірінші жолының элементтерінің көбейтіндісіне тең болады;

B) Екі өлшемді A массивінің элементтерінің көбейтіндісіне;

C) Екі өлшемді A массивінің элементтерінің қосындысына;

D) Екі өлшемді A массивінің, басқы диагонал элементтерінің көбейтіндісіне;

E) Екі өлшемді A массивінің соңғы жолының элементтерінің көбейтіндісіне;

*****

Фрагмент орындалғаннан кейін:

A:=10; B:=3; A:=B+A; A және B айнымалыларының мәндері тең болады:

A) A=5; B=3;

B) A=10; B=5;

C) A=13; B=3;

D) A=5; B=2;

E) A=5; B=5;

*****

Келесі алгоритмді орындау нәтижесінде

s:=0; for i:=1 to 10 do

begin for j:=1 to 10 do

begin if i=j then s:=s+a[I,j]; end; end.

s айнымалысының мәні неге тең болады:

A) Екі өлшемді массивтің екінші жолының элементтерінің қосындысына;

B) Екі өлшемді массивтің элементтерінің қосындысына;

C) қосымша диагонал элементтерінің қосындысына;

D) массивтің соңғы жолының элементтерінің қосындысына;

E) негізгі диагонал элементтерінің қосындысына;

*****

Келесі алгоритмді орындау нәтижесінде

Kn:=10; begin for n:=1 to kn do

Write(n:6); end;

A) 10-нан 1-ге дейінгі сандар шығарылады;

B) 1-ден 10-ға дейінгі сандарды өсу ретімен шығарады;

C) сандарды кері ретпен шығарады;

D) сандар қосындысын шығарады;

E) алғашқы он санның көбейтіндісі;

*****

Фрагмент орындалғаннан кейін:

A:=20; B:=5; C:=12; A:=B+C; C:=A- B; A және B айнымалыларының мәндері тең болады:

A) A=17; B=15;

B) A=17; B=5;

C) A=20; B=15;

D) A=17; B=15;

E) A=17; B=12;

*****

Келесі алгоритмді орындау нәтижесінде

s:=1; for i:=1 to 10 do

begin for j:=1 to 10 do

begin if i=1 then s:=s*a[i,j]; end; end.

s айнымалысының мәні неге тең болады:

A) негізгі диагональ элементтерінің көбейтіндісіне;

B) қосымша диагональ элементтерінің көбейтіндісіне;

C) бірінші жолдың элементтерінің көбейтіндісіне;

D) бірінші жолдың элементтерінің қосындысына;

E) соңғы жолдың элементтерінің көбейтіндісіне;

*****

Келесі фрагментті орындау нәтижесінде

Kn:=10; begin for n:=kn downto 1 do write(n:6); end.

A) 1-ден 10-ға дейінгі сандар шығарылады;

B) 10-нан 1-ге дейінгі сандар шығарады;

C) сандар қосындысы;

D) сандар көбейтіндісі шығарады;

E) алғашқы он санның көбейтіндісі;

*****

Программа фрагменті орындалғаннан кейін

d:=50; k:=22;

if d>k then p:=d*d;

if d<k then k:=2;

p және k-ң мәні неге тең болады:

A) p=2500; k=2;

B) p=2500; k=22;

C) p=50; k=22;

D) p=2500; k=50;

E) p=50; k=50;

*****

Келесі фрагментті орындау нәтижесінде

m:=B[1]; for i:=1 to n do

if (B[i]<m) and (i mod 2=0) then m:=B[i] m айнымалысының мәні тең болады:

A) B массивінің максимал элементіне;

B) B массивінің жұп нөмірлі элементтерінің ішіндегі минимал элементке;

C) B массивінің элементтерінің көбейтіндісіне;

D) B массивінің элементтерінің қосындысына;

E) B массивінің тақ мәнді элементтерінің қосындысына

*****

Келесі фрагментті орындау нәтижесінде

p:=1; for i:=1 to n do

begin if B[i] mod 2=0 then p:=p*B[i]; end. p айнымалысының мәні тең болады:

A) B массивінің элементтерінің көбейтіндісіне;

B) B массивінің жұп элементтерінің көбейтіндісіне;

C) B массивінің тақ нөмірлі элементтерінің көбейтіндісіне;

D) B массивінің жұп нөмірлі элементтерінің қосындысына;

E) B массивінің элементтерінің қосындысына

*****

Төмендегі алгоритмнің орындалу нәтижесі неге тең?

D:=2; D:=5; D:=D*D;

A) 2;

B) 5;

C) 4;

D) 25;

E) 10;

*****

Келесі программа фрагменті

s:=0; for i:=1 to n do

begin if a[i] mod 2 <>0 then s:=s+1; end; end.

A) тақ мәнді массив мүшелерінің санын есептейді;

B) жұп мәнді массив мүшелерінің санын есептейді;

C) тақ мәнді массив мүшелерінің қосындысын;

D) жұп мәнді массив мүшелерінің қосындысын;

E) соңғы тақ элементті табады

*****

Берілген программа фрагменті қандай жұмыс атқарады?

s:=0; k:=0; for i:=1 to n do

if a[i]>0 then s:=s+a[i] else if a[i]<0 then k:=k+1

A) нольден үлкен элементтерді тауып, қосындысын есептейді;

B) нольден кіші элементтерді тауып, қосындћсын есептейді;

C) нольден үлкен элементтердің қосындысын, нолќден кіші элементтердің санын есептейді;

D) нольден кіші элементтердің қосындысын, нольден үлкен элементтердің санын есептейді;

E) соңғы тақ элементті табады

*****

Программа фрагменті орындалғаннан кейін:

d:=50; k:=25;

if d>k then p:=d/d;

if d<k then k:=2;

p және k тең болады:

A) p=2500; k=2;

B) p=1; k=25;

C) p=2; k=25;

D) p=2; k=50;

E) p=50; k=25

*****

Келесі нұсқаулар орындалғанда

Kn:=10; p:=0; begin

for n:=kn downto 1 do p:=p+n; end.

A) 1-ден 10-ға дейінгі сандар шығарылады;

B) 10-нан 1-ге дейінгі сандар шығарады;

C) 1-ден 10-ға дейінгі сандардың қосындысын шығарады;

D) 1-ден 10-ға дейінгі сандардың көбейтіндісін шығарады;

E) беске бөлінетін сандардың айырмасын шығарады;

*****

Келесі программа фрагменті орындалғаннан кейін

s:=0; for i:=1 to 10 do

begin for j:=1 to 10 do

begin if i=j then s:=s+a[i,j]; end; end.

s айнымалысының мәні неге тең болады:

A) негізгі диагональ элементтерінің көбейтіндісіне;

B) негізгі диагональ элементтерінің қосындысына;

C) бірінші жолдың элементтерінің қосындысына;

D) бірінші бағанның элементтерінің қосындысына;

E) соңғы жолдың элементтерінің қосындысына;

*****

Келесі командалар орындалғаннан кейін

k:=B[1]; for i=1 to n do if B[i]>m then k:=B[i] k айнымалысының мәні неге тең болады:

A) B массивінің минимал элементіне;

B) B массивінің максимал элементіне;

C) B массивінің элементтерінің қосындысына;

D) B массивінің элементтерінің көбейтіндісіне;

E) B массивінің жұп мәнді элементтерінің қосындысына;

*****

Келесі фрагментті орындау нәтижесі неге тең болады

m:=B[1]; for i:=1 to n do if (B[i]<m) and (i mod 2 <>0) then m:=B[i]

A) B массивінің максимал элементінің мәніне;

B) B массивінің тақ нөмірлі элементтерінің ішіндегі минимал элементтің мәніне;

C) B массивінің элементтерінің көбейтіндісіне;

D) B массивінің элементтерінің қосындысына;

E) B массивінің тақ мәнді элементтерінің қосындысына;

*****

Төмендегі фрагменттің орындалу нәтижесі неге тең?

D:=1; D:=0; D:=D+D;

A) 2;

B) 1;

C) 0;

D) 10;

E) 3;

*****

Фрагментті орындау нәтижесі неге тең болады?

s:=1; for i:=1 to n do

begin if b[I] mod 2=0 then s:=s*a[i,j]; end.

A) B массивінің элементтерінің қосындысына;

B) B массивінің жұп элементтерінің қосындысына;

C) B массивінің жұп элементтерінің көбейтіндісіне;

D) B массивінің жұп нөмірлі элементтерінің көбейтіндісіне;

E) B массивінің тақ нөмірлі элементтерінің қосындысына;

*****

Бағдарламада TStringGrid кестесінің ұяшықтарындағы мәндерге қатынау ... көмегімен жүзеге асырылады

A) Row қасиетінің

B) Col қасиетінің

C) String екі өлшемді массивтің

D) Cells екі өлшемді массивтің

E) Strings екі өлшемді массивтің

*****

Форманың Visible қасиеті True-ге тең болса, жүйеде ... оқиғасы пайда болады

A) OnShow

B) OnActivate

C) OnPaint

D) OnResize

E) OnCreate

*****