Добавил:

Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.

Вуз:

Евразийский национальный университет им. Л.Н. Гумилёва

Предмет:

[НЕСОРТИРОВАННОЕ]

Файл:

NAKTY_BAZA_ALGORITM (1).doc

Скачиваний:

Добавлен:

01.05.2025

Размер:

144.38 Кб

Скачать

☆

<<< < Предыдущая 1 23 / 43 4 > Следующая >>>

If odd( a[ I ] ) then

p := p - A[ I ];

<variant>0

<question3>8, 4, -7, -2 элементтерінен тұратын А массиві берілген. S мәнін анықта:

s := 0;

for I := 1 to 2 do

If odd( a[ I ] ) then

s := s + A[ I ];

<variant>0

<question3>8, -3, -7, -2. элементтерінен тұратын А массиві берілген S айнамаласының мәнін анықта:

s := 0;

for I := 1 to 2 do

If odd( a[ I ] ) then

s := s + A[ I ];

<variant>-3

<question3>5, 8, -3, 4, -7, -2. элементтерінен тұратын А массиві берілген S айнамаласының мәнін анықта:

s := 0;

for I := 1 to 2 do

if odd(I) then

s := s + a[I];

<variant>5

<question3>3, -7, -4, -6, 2, 3 элементтерінен тұратын А массиві берілген. P айнамаласының мәнін анықта:

p := 0; ;

for I := 3 to 4 do

if not odd( a[I] ) then

p := p + A[ I ];

<variant>-10

<question3>3, 7, 4, 2, 2, 3 элементтерінен тұратын А массиві берілген. P айнамаласының мәнін анықта:

p := 0;

for I := 3 to 4 do

if not odd(a[ I ] ) then

p := p - A[ I ];

<variant>-6

<question2>-3, 7, 4, 6, -2, -3 элементтерінен тұратын А массиві берілген. P айнамаласының мәнін анықта:

p := 0; ;

for I := 6 downto 4 do

if not odd( I ) then

p := p + A[ I ];

<variant>3

<question2>-1, 2, -2, 0 элементтерінен тұратын А массиві берілген. Y айнамаласының мәнін анықта:

for J := 2 to 4 do

I := j div 2 ;

Y := A[ I ];

<variant>2

<question2>-1, 2, -2, 0. элементтерінен тұратын А массиві берілген. Y айнамаласының мәнін анықта:

for J := 2 to 4 do

I := j mod 3 ;

Y := A[ I ];

<variant>-1

<question3>type Mat = array[ 1..3, 1..3 ] of integer;

var A: Mat;

K, L, M: integer;

begin

M := A[ 1, 1 ];

for K := 1 to 3 do

for L := 1 to 3 do

if M < A[ K, L ] then M := A[ K, L ];

end;

матрицасы берілген. M - ді анықта.

<variant>15

<question3>type Mat = array[ 1..3, 1..3 ] of integer;

var A: Mat;

K, L, M: integer;

begin

M := A[ 1, 1 ];

for K := 1 to 3 do

for L := 1 to 3 do

if M > A[ K, L ] then M := A[ K, L ];

end;

матрицасы берілген. M - ді анықта

<variant>-10

<question3>type Mat = array[ 1..3, 1..3 ] of integer;

var A: Mat;

K, L, M: integer;

begin

M := A[ 1, 1 ];

for K := 1 to 1 do

for L := 1 to K do

if M > A[ K, L ] then M := A[ K, L ];

end;

матрицасы берілген. M - ді анықта

<variant-10

<question3>type Mat = array[ 1..3, 1..3 ] of integer;

var A: Mat;

K, L, M: integer;

begin

M := A[ 1, 1 ];

for K := 1 to 3 do

for L := 3 to 1 do

if M > A[ K, L ] then M := A[ K, L ];

end;

матрицасы берілген. M - ді анықта

<variant>0

<question3>S := 1; K := 1;

while K < 5 do

K := K + 1; S := S + K;

S айнамаласының мәнін анықта:

<variant>6

<question3>const N = 3; A: array[0..N] of ShortInt = (-3, 5, -5, 0);

var I, J, K, X, Y: ShortInt;

begin

for J := 0 to N-1 do

begin

K := J;

for I := J+1 to N do

if A[I] > A[K] then K := I;

X := A[K];

A[K] := A[J];

A[J] := X

end;

Y := A[0];

Y айнамаласының мәнін анықта:

<variant>қате, тұрақты мәндә өзгертуге болмайды

<question3>const N = 3; A: array[0..N] of ShortInt = (-8, 4, -4, 7);

var I, J, K, X, Y: ShortInt;

begin

for J := 0 to N-1 do

begin K := J; X := A[K];

for I := J+1 to N do

if A[I] > X then begin

K := I; X := A[K]

end;

A[K] := A[J]; A[J] := X

end;

Y := A[0];

Y айнамаласының мәнін анықта:

<variant>қате, тұрақты мәндә өзгертуге болмайды

<question3>const N = 6; A: array[1..N] of ShortInt = (-4, -8, 8, 3, -7, 4);

var K, KM, M: ShortInt;

begin

M := -1;

for K := 1 to N do

if Abs(A[K]) > M then begin

M := Abs(A[K]); KM := K

end;

WriteLn(A[KM]);

Экранда қандай мән шығады ?

<variant>қате, индекс массив шекарасының сыртында

<question3>const N = 6; A: array[1..N] of ShortInt = (-5, -6, 7, 2, -7, 5);

var K, KM, M: ShortInt;

begin

M := -1;

for K := 1 to N do

if Abs(A[K]) < M then begin

M := Abs(A[K]); KM := K

end;

WriteLn(A[KM]);

Экранда қандай мән шығады ?

<variant>массив элементінің индекстегі анықталмаған қатесі

<question3>const M = 3; N = 2;

A: array[1..M, 1..N] of ShortInt = ((-4, 3), (6, -9), (-6, 8));

B: array[1..M] of ShortInt = (-1, -1, -1);

var K, L: ShortInt;

begin

for K := 1 to M do

for L := 1 to N do

if Abs(A[K, L]) > B[K] then

B[K] := Abs(A[K, L]);

WriteLn(B[1], ' ', B[2], ' ', B[3]);

Экранда қандай мән шығады ?

<variant>қате, тұрақты мәнін өзгертуге болмайды

<question3>const M = 2; N = 3;

A: array[1..M, 1..N] of ShortInt = ((-3, -2, -7), (-9, -5, 8));

var K, L: ShortInt;

B: array[1..M] of ShortInt;

begin

for K := 1 to M do begin

B[K] := A[K, 1];

for L := 2 to N do

if A[K, L] > B[K] then

B[K] := A[K, L]

end;

WriteLn(B[1], ' ', B[2]);

Экранда қандай мән шығады

<variant>-2 8

<question3>const N = 3; A: array[1..N, 1..N] of ShortInt =

((-4, 3, 7), (1, -9, 5), (-6, 8, 2));

var K, L, S: ShortInt;

begin

S := 0;

for K := 1 to N do

for L := K to N do

if Odd(A[K, L]) then

S := S + A[K, L];

S айнамаласының мәнін анықта:

<variant>6

<question3>const N = 3; A: array[1..N, 1..N] of ShortInt =

((-4, 3, 7), (1, -9, 5), (-6, 7, 2));

var K, L, S: ShortInt;

begin

S := 0;

for L := 1 to N do

for K := L to N do

if Odd(A[K, L]) then

S := S + A[K, L];

S айнамаласының мәнін анықта:

<variant>-1

<question3>const A: array[1..6, 'K'..'O'] of ShortInt =

((2, 2, 2, 0, 0), (0, 0, 0, 0, 3), (4, 4,-1,-1, 0),

(0, 0, 0, 0, 5), (6, 0, 0,-1, 0), (0, 0, 0, 0,-1));

S: string = 'MOLOKO';

var K, L: ShortInt;

begin

K := 1; L := 1;

while (L <= Length(S)) and (K > 0) do begin

K := A[K, S[L]];

L := L + 1;

Write(' ', K)

end;

WriteLn;

Экранда қандай мән шығады

<variant>2 3 4 5 6 -1

<question3>const A: array[1..6, 'K'..'O'] of ShortInt =

((2, 2, 2, 0, 0), (0, 0, 0, 0, 3), (4, 4,-1,-1, 0),

(0, 0, 0, 0, 5), (6, 0, 0,-1, 0), (0, 0, 0, 0,-1));

S: string = 'LOKON';

var K, L: ShortInt;

begin

K := 1; L := 1;

while (L <= Length(S)) and (K > 0) do begin

K := A[K, S[L]];

L := L + 1;

Write(' ', K)

end;

WriteLn;

Экранда қандай мән шығады

<variant>2 3 4 5 -1

<question2>Операторлар тізбегі берілген:

a:=1; b:=1;

while a+b<2 do

begin

a:=a+1; b:=b+2

end;

s:=a+b

Цикл неше рет орындалады.

<variant>бір ретте орындалмайды

<question2>Операторлар тізбегі берілген:

a:=1; b:=1

repeat

a:=a+1; b:=b+2

until a+b>2

Цикл неше рет орындалады.

<variant>1 рет

<question2>Берiлген амалдар орындалғаннан кейiнгi х - айнымалысның мәнiн анықта?

Var mn1,mn2:set of 1..10;

x:integer;

begin mn1:=[1,2,3,4,5];

mn2:=[6,7,8];

if mn1>=mn2 then x:=0 else x:=1;

writeln(x);

end.

<variant>1

<question2>Берiлген амалдар орындалғаннан кейiнгi х - айнымалысның мәнiн анықта?

Var mn1,mn2:set of 1..10;

x:integer;

begin mn1:=[1,2,3,4,5];

mn2:=[1,2,3];

if mn1>=mn2 then x:=0 else x:=1;

writeln(x);

end.

<variant>0

<question2>Экранда қандай мән шығады ?

Var mn1,mn2,mn3:set of 1..10;

i:integer;

begin mn1:=[1,2,3,4,5];

mn2:=[1,2,3];

mn3:=mn1+mn2;

for i:=1 to 10 do if i in mn3 then write(i:2);

end.

<variant>1 2 3 4 5

<question2>Экранда қандай мән шығады ?

Var mn1,mn2,mn3:set of 1..10;

i:integer;

begin mn1:=[1,2,3,4,5];

mn2:=[1,2,3];

mn3:=mn1-mn2;

for i:=1 to 10 do if i in mn3 then write(i:2);

end.

<variant>4 5

<question2>Экранда қандай мән шығады ?

Var mn1,mn2,mn3:set of 1..10;

i:integer;

begin mn1:=[1,2,3,4,5];

mn2:=[1,2,3];

mn3:=mn1* mn2;

for i:=1 to 10 do if i in mn3 then write(i:2);

end.

<variant>1 2 3

<question2>Экранда қандай мән шығады ?

Var mn1,mn2,mn3:set of 1..10;

i:integer;

begin mn1:=[1,2,3,4,5];

mn2:=[1,2,3];

mn3:=mn1* mn2-[4,5];

for i:=1 to 10 do if i in mn3 then write(i:2);

end.

<variant>1 2 3

<question2>const

A: Integer = 10; B: Integer = 20;

procedure P(X, Y: Integer);

begin

X := X - 5; Y := Y + 5

end; {P}

begin {негізгі программа }

P(A mod 3, B div 3);

A және B мәнiн анықта:

<variant>10 20

<question2>const

A: Integer = 10; B: Integer = 20;

procedure P(var Y, X: Integer);

begin

X := X + 5; Y := Y - 5

end; {P}

begin {Негізгі программа}

P( A, B );

A := A mod 3; B := B div 3;

A және B мәнiн анықта:

<variant>қате, тұрақты мәні өзгермейді

<question2>const

A: Integer = 10; B: Integer = 16;

procedure P(var Y: Integer; X: Integer);

begin

X := X + 5; Y := Y - 5

end; {P}

begin {Негізгі программа}

P( A, B );

A := A mod 3; B := B div 3;

A және B мәнiн анықта:

<variant>10 16

<question2>const

A: = 7; B:=5;

procedure P(Y: Integer; var X: Integer);

begin

X := X + 5; Y := Y - 5

end; {P}

begin {Негізгі программа}

P( A, B );

A := A mod 3; B := B div 3;

A және B мәнiн анықта:

<variant>2 2

<question3>const N = 3;

type

TA = array[1..N, 1..N] of Real;

const

A: TA = ((1, -7, 4), (6, -8, 2), (-2, 3, 5));

function AN1( A: TA ): Real;

var S, Max: Real; K, L: Integer;

begin

Max := -1;

for L := 1 to N do begin

S := 0;

for K := 1 to N do

S := S + Abs(A[K, L]);

if Max < S then Max := S

end;

AN1 := Max

end; {AN1}

AN1( A ) мәнiн анықта:

<variant>18.0

<question3>const N = 3;

type

TA = array[1..N, 1..N] of Real;

const

A: TA = ((1, -7, 4), (6, -8, 2), (-2, 3, 5));

function ANc( A: TA ): Real;

var S, Max: Real; K, L: Integer;

begin

Max := -1;

for K := 1 to N do begin

S := 0;

for L := 1 to N do

S := S + Abs(A[K, L]);

if Max < S then Max := S

end;

ANc := Max

end; {ANc}

ANc ( A ) мәнiн анықта:

<variant>16.0

<question2>var

A, B: Integer;

procedure P(X, Y: Integer);

begin

A := X + A; B := A + Y - X

end; {P}

begin

A := 7; B := 10;

P( A mod 3, B div 3 );

A және B мәнiн анықта:

<variant>8 10

<question2>var

A, B: Integer;

procedure P(X, Y: Integer);

begin

A := X + A; B := Y + B

end; {P}

begin

A := 7; B := 10;

P(A mod 3, B div 3);

A және B мәнiн анықта:

<variant>8 13

<question2>var

A, B, C: Integer;

procedure P( A: Integer; var B: Integer);

begin

A := A + C; B := B + C

end; {P}

begin {негізгі программа}

A := 7; B := 10; C := 4;

P( A + B, C );

A; B және C мәнiн анықта:

<variant>7 10 8

<question2>var

A, B, C: Integer;

procedure P(A: Integer; var B: Integer);

begin

A := A + C; B := B + C

end; {P}

begin {негізгі программа}

A := 7; B := 10; C := 4;

P( B + C, A );

A; B және C мәнiн анықта:

<variant>11 10 4

<question3>var

A, B, C: Integer;

procedure P(var B: Integer);

var C: Integer;

begin

C := A + B; A := B + C; B := A + C

end; {P}

begin {Негізгі программа}

A := 2; B := 4; C := 8;

P( C );

A; B және C мәнiн анықта:

<variant>18 4 28

<question3>function F2(N: Integer): LongInt;

begin

if N < 4 then F2 := 2

else F2 := N * F2(N - 2)

end;

F2(6) мәнiн анықта:

<variant>48

<question3>function F1(N: Integer): LongInt;

begin

if N < 5 then F1 := 3

else F1 := N * F1(N - 2)

end;

F1(7) мәнiн анықта:

<variant>105

<question3>function C( M, N: Word ): Word;

begin

if (M = 0) or (M = N) then C := 1

else C := C(M, N-1) + C(M-1, N-1)

end;

C(3, 6) және C(4, 6) мәнiн анықта:

<variant>20 15

<question3>function Ack(M, N: Integer): Integer;

begin

if M <= 0 then

Ack := N + 1

else

if N <= 0 then

Ack := Ack(M - 1, 1)

else

Ack := Ack(M - 1, Ack(M, N - 1))

end;

Ack(1, 2) мәнiн анықта:

<variant>4

<question3>function H(X, I: Integer): Integer;

begin

if I <= 0 then

H := 1

else

if I = 1 then

H := 2 * X

else

H := 2 * X * H(X, I - 1) - 2 * (I - 1) * H(X, I - 2)

end;

H(2, 3) мәнiн анықта:

<variant>40

<question2>function F(N: Integer): Integer;

begin

if N <= 2 then

F := 3

else

F := F(N - 1) + F(N - 2)

end;

F(6) мәнiн анықта:

<variant>24

<question2>Төмендегі программа қандай жауап қайтарады?

<<< < Предыдущая 1 23 / 43 4 > Следующая >>>

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

#
21.02.20164.8 Mб20MU_KP_sh2.pdf
#
21.11.20182.94 Mб135my_GVS2001.doc
#
21.11.2018337.41 Кб44my_ovpromzd2000_alternativa.doc
#
21.11.2018298.5 Кб17my_teplotech_termodin_2002.doc
#
01.03.2025300.03 Кб0M_1178_T_otvety_1.doc
#
01.05.2025144.38 Кб0NAKTY_BAZA_ALGORITM (1).doc
#
01.05.2025171.52 Кб0NAKTY_BAZA_ALGORITM.doc
#
01.03.2025141.82 Кб0namefix-136.doc
#
01.05.2025994.89 Кб0Narekesh_Arnur_zertteu_zh_1201_mysy - копия.docx
#
01.05.202536.32 Кб0nau4ni style.docx
#
21.02.2016495.62 Кб49NEGIZGI KOR.doc