Тест по информатике

>5) Красной строки нет, выравнивание абзаца по центру, начертание шрифта курсив и полужирное, междустрочный интервал двойной.

(2)

A
Алгоритм определения суммы максимальных элементов строк

массива M : array[1..4, 1..5] содержит блоки

A.	s := 0;
B.	End;
C.	s := s + max;
D.	If M[i, j] > max then begin
E.	max := M[i, j];
F.	For j := 1 To 5 Do begin
G.	End;
H.	max := M[i, 1];
I.	End;
J.	For i := 1 To 4 Do begin

вследующемпорядке

1) A J H F D E I B C G

2) A J E F D H I G C B

3) J H F D E I A G C B

4) A J H F D E I G B C

5) A J H F D E I G C B

(5)

A
Алгоритм обработки массива A : Array[1..N]

For I := 1 to N div 2 do

begin

Z := A[I];

A[I] := A[N - I + 1];

A[N - I + 1] := Z;

End;

выполняетодноизследующихдействий:

1) Переставляет элементы массива в обратном порядке

2) Меняет местами первый и последний элементы массива

3) Циклически сдвигает элементы массива на одну позицию влево

4) Циклически сдвигает элементы массива на одну позицию вправо

5) Оставляет содержимое массива неизменным

(1)

A
Алгоритм обработки массива A : array[1..N]

S := 0;

J := 3;

While J <= N Do

begin

If J Mod 2 = 0 Then S := S + A[J];

J := J + 3

End;

Write(S)

определяет сумму элементов массива cиндексами, кратными:

1) 22) 33) 44) 65) 12

(4)

A
Математическому выражению соответствует запись

1) Sqr(a) + Sqr(b) / Sqrt(Abs(c - d)) - e

2) (Sqr(a) + Sqr(b)) / Sqrt(Abs(c - d)) - e

3) (Sqr(a) + Sqr(b)) / (Sqrt(Abs(c - d)) - e)

4) Sqr(a + b) / Sqrt(Abs(c - d)) - e

5) (Sqr(a) + Sqr(b)) / Sqrt(Abs(c) - d) - e

(2)

A
Алгоритм обработки массива Matrix : array[1..7, 1..7]

S := 0;

For a := 1 To 7 Do

S := S + Matrix[a, a];

определяетсуммуэлементов, расположенных

1) Вовсехячейкахматрицы

2) На главной диагонали матрицы

3) На побочной диагонали матрицы

4) В первом столбце матрицы

5) В первой строке матрицы

(2)

A
К операторам ветвления относится

1) Write

2) Repeat .. Until

3) While .. Do

4) For .. Do

5) If .. Then .. Else

(5)

A
В программе, копирующей массив А: array[1..4, 1..6] по строкам

вмассивВ:array[1..24]

For K := 1 To 4 Do

For L := 1 To 6 Do

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

пропущенфрагмент

1) 6 * (L – 1) + K

2) 6 * K + L

3) 6 * (K + 1) + L

4) 6 * (K + 1) + 4*(L - 1)

5) 6 * (K - 1) + L

(5)

A
Для данного фрагмента программы

IfУсловие1
AndУсловие2
Then

Оператор1

Else

Оператор2

EndIf

укажите аналог

1) If Условие 1 Then If Условие 2 Then Оператор1 Else Оператор2 EndIf Else Оператор2 End If

2)IfУсловие1 Then Оператор1 Else IfУсловие2 Then Оператор1 Else Оператор 2 End If End If

3)IfУсловие1 Then Оператор2 Else IfУсловие2 Then Оператор1 Else Оператор 2 End If End If

4) If Условие 1 Then If Условие 2 Then Оператор2 Else Оператор1 EndIf Else Оператор1 End If

5) If Условие 1 Then If Условие 2 Then Оператор1 Else Оператор2 EndIf Else Оператор1 End If

(1)

B
Дан фрагмент программы, в котором условно пронумерованы строки

x := a; {1}

y := a – 2; {2}

z := (x + 1) / 2; {3}

Write(‘z=’, z); {4}

Write(‘y=’, y); {5}

Выберите пары строк, которые можно поменять местами, чтобы этот

обмен не повлиял на результат вычислений

1) 3 и 4

2) 1 и 2

3) 2 и 3

4) 4 и 5

5) 3 и 5

(2,3,4)

B
Выберите из списка допустимые имена переменных

1) 1_st

2) k 1

3) Summa

4) Single

5) int_4

(3,5)

B
Укажите числовые типы данных

1) Integer

2) LongInt

3) Boolean

4) String

5) Double

(1,2,5)

B
Укажите, после выполнения каких операторов значение переменной k станет равно 1, если a = 8 и b = 6:

1) If (a > b) And (b > 7) Then k := 0 Else k := 1;

2) If (a < b) Or (b > 7) Then k := 1 Else k := 0;

3) If (a > b) Or (b > 7) Then k := 1 Else k := 0;

4) If Not (a = 8) Then k := 1 Else k := 0;

5) If (a < b) Or Not (b > 7) Then k := 1 Else k := 0;

(1,3,5)

B
Укажите операторы присваивания, в которых не нарушен синтаксис

1) x := y + 3 +;

2) x := x + 2 +1;

3) x / 2 := y;

4) x := (y + 2) / y + 1);

5) x := y x + 1;

(2)

B
Укажите фрагменты программ, в которых не нарушен синтаксис

1) var A : Integer; begin

while (A > 0) do x := x + 1;

end;

2) var A : Boolean; begin

while A do x := x + 1;

end;

3) var A : Boolean; begin

while A

x := x + 1;

end;

4) var A : Integer; begin

repeat A > 0

x := x + 1;

until;

end;

5) var A : Integer; begin

repeat do

x := x + 1;

until A > 0;

end;

(1, 2)

С
Данфрагментпрограммы

Y := A[1];

For k := 1 to 10 do

If A[k] < Y Then Y := A[k];

Write(Y);

в котором обрабатывается массив VarA:array[1..10] OfInteger: (2, 12, 0, -3, 10, -3, -5, 7, 21, 0).

После окончания работы значение переменной Y равно ___.

(-5)

С
После выполнения фрагмента программы

x := -1; y := 1;z:= 0;

If x < 0 Then

begin

If y > 0 Then z := y + 1 Else z := y + 2;

If z <> 0 Then

z := z + 1;

end;

Write(z);

значение переменной z равно _____.

(3)

С
После выполнения фрагмента программы

a:= 13305;

b := 0;

While a <> 0 Do

begin

b := b * 10 + a Mod 10;

a := a div 10;

end;

Write(b);

значение переменной b равно ___.

(50331)

С
Дан фрагмент программы

Y := 0;

For N := 1 to 4 do

begin

X := A[N, 1];

For M := 1 to 4 do

If A[N, M] > X Then X := A[N, M];

Y := Y + X;

End;

Write(Y);

в котором обрабатывается массив A: array[1..4, 1..4] OfInteger:

После окончания работы значение переменной Y равно ___.

(21)

С
После выполнения фрагмента программы

Fork:= 1 to 5 do

begin

Write(k);

If k >= 4 Then begin Write(k); Write(k + 1); end;

End;

Write(k);

на форму будет выведено ____ чисел.

(10)

(37 заданий 80 минут)