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

          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) 2              2) 3              3) 4             4) 6               5) 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

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); 

      в котором обрабатывается массив Var A:array[1..10] Of Integer: (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] Of Integer:  

        

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

(21) 

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

For k := 1 to 5 do

   begin

       Write(k);

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

   End;

Write(k); 

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

(10) 
 

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