Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
gosekzamen.docx
Скачиваний:
0
Добавлен:
01.07.2025
Размер:
36.41 Кб
Скачать

«Программалау» пәні

Қай өрнектің мәні дұрыс емес?

18 div 4 =2

Стандартты скаляр типке жатпайтын типті көрсетіңіз:

интервалдық.

Қай тип нақты типке жатпайды?

Word

Қолданушы анықтайтын тұрақтыны сипаттау бөліміне сәйкес қызметші сөз:

Const

Мына өрнектің Pascal тілінде дұрыс жазылған нұсқасын таңдаңыз:

(–b+sqrt(sqr(a)–4*a*c))/(2*a)

Var X,y,p:integer;

Begin

Readln(X); Readln(Y);

If X>= Y then P:=X else P:=Y;

Writeln ('P=', P);

End.

X=15, Y=16 болғанда программаның орындалуы нәтижесінде экранға не шығады?

P=16

Var a,b,c,d:byte;

Begin

Readln(A,B,C,D);

If A>B then BEGIN

If C>D then begin B:=D; C:=A; End

Else begin C:=D; A:=C END; END;

Writeln(A,B,C,D)

End.

A=15, B=9, C=4, D=6 болғанда программаның орындалу барысында қандай нәтиже алынады?

6966

Var a,b,c:byte;

Begin

Readln(A,B,C);

If (A>B) and (A>C) then A:=B+C;

Writeln(A);

End.

A=25,B=10, C=5 болғанда программаның орындалу барысында қандай нәтиже алынады?

15

Begin

Readln(A,B);

If A>B then A:=Sqrt(B) else B:=Sqrt(A);

Writeln('A=',A,' B=',B);

End.

A=25,B=81 болғанда программа фрагментінің орындалу барысында қандай нәтиже алынады?

A=25 B=5.

ТР тіліндегі қайталау операторлары:

while, repeat, for

ТР тіліндегі шартты көшу операторлары:

If и case

Var a,b:real;

Begin

A:=12.55566;

Writeln(‘A=’,A:6:3);

Программалық жолдары орындалғанда экранға шығарылатын дұрыс жауапты көрсетіңіз:

B= 12.556

Жазба өрістерін қолдану барысында жазба идентификаторын қайталап жазбау мақсатында қолданылатын оператор қандай?

With do

Int(X) функциясы:

х санын жақын кіші бүтін санға дөңгелектейді.

[100..150]*[122..200,201] = ?

[122..150]

[100..200]-[122..200,201] = ?

[1..121]

Қай процедура цикл жұмысын уақытынан бұрын аяқтауға мүмкіндік береді?

Break

Реттік айнымалыға арналған қай процедура немесе функция аргументтің тақ-жұптығын тексереді?

ODD

Қай процедура немесе функция аргументтің жадыдан алатын орынының мөлшерін анықтайды?

Sizeof

Crt модуліндегі қай процедура немесе функция клавиатурадан енгізілген символды оқиды?

ReadKey

Crt модуліндегі қай процедура немесе функция курсорды экранның көрсетілген координаталы позициясына қояды?

GotoXY

Белгілерді сипаттау блогы қай қызметші сөзден басталады?

Label

Қатесі бар жауапты табыңыз:

Паскаль тілінде бір жолға бірнеше операторларды жазуға болмайды.

Қай өрнектің мәні дұрыс емес?

17 div 5 = 1

Келесі программаның орындалу нәтижесінде экранға шығарылатын жауапты таңдаңыз: const A : array [1..2, 1..2] of integer = ((11,12), (21, 22));

Var I, j, s : integer;

begin

for j :=1 to 2 do begin S:=0;

for i :=1 to 2 do S :=S + A[i, j];

Write(S, ‘ ‘);

End; End.

32 34

K:=0;

For i:=1 to n do

For j:=1 to n do

If A[I, J]>0 then k:=k+1;

Writeln(k);

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

Оң элементтердің санын

K:=0;

For i:=1 to n do

For j:=1 to n do

If A[I, J]>0 then k:=k+a[i,j];

Writeln(k);

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

Оң элементтердің қосындысын

Массив дегеніміз –

бір атпен аталған, әр түрлі индексті, бір типті элементтердің жиынтығынан тұратын мәліметтердің құрылымы.

Нақты типті 10 элементтен тұратын В массивінің дұрыс сипатталуын көрсетіңіз:

Var b: array [1..10] of real;

S:=0; x:=2;

for i:=1 to 2 do begin

x:=x*i;

S:=S+sqr(x);

End;

Жолдары орындалғанда S неге тең болады?

20

Төмендегі жолдар орындалғанда S неге тең болады?

S:=0; x:=2; for i:=1 to 3 do x:=x*i; S:=х;

12

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]