КИМ для проверки знаний учащихся 9х классов по теме "Алгоритмика"

Вариант 1

1. Определите значение переменной а после выполнения данного алгоритма:

a := 2

b := 5

b := 6 + a * b

a := b / 4 * a

2. Определите значение переменной а после выполнения данного алгоритма:

a := 5

b := 6

b := 15 + a * b

a := b / 3 * a

3. Определите значение переменной s после выполнения данного алгоритма:

var s,k: integer;

begin

 s := 7;

 for k := 4 to 7 do

   s := s * 2;

 writeln(s);

end.

4. Что будет напечатано в результате работы следующей программы: 

var s,k: integer;

begin

 s := -90;

 for k := 14 downto 7 do

   s := s + 9;

 writeln(s);

end.

5. Что будет напечатано в результате работы следующей программы: 

var s,k: integer;

begin

 s := 5;

 for k := -3 to 7 do

   s := s + 5;

 writeln(s);

end.

6. Что будет напечатано в результате работы следующей программы: 

var k, m: integer;

 Dat: array[1..10] of integer;

begin

  Dat[1] := 7;  Dat[2] := 9;

  Dat[3] := 10; Dat[4] := 5;

  Dat[5] := 6;  Dat[6] := 7;

  Dat[7] := 9;  Dat[8] := 8;

  Dat[9] := 6;  Dat[10] := 9;

  m := 0;

  for k := 1  to 10 do

    if  Dat[k] 6 then

      m := m + 1;

  writeln(m)

end.

7. Что будет напечатано в результате работы следующей программы:

var k, m: integer;

 Dat: array[1..10] of integer;

begin

  Dat[1] := 7;  Dat[2] := 9;

  Dat[3] := 10; Dat[4] := 5;

  Dat[5] := 6;  Dat[6] := 7;

  Dat[7] := 9;  Dat[8] := 8;

  Dat[9] := 6;  Dat[10] := 9;

  m := 0;

  for k := 1  to 10 do

    if  Dat[k]

      m := m + Dat[k];

  writeln(m)

end.

8. Что будет напечатано в результате работы следующей программы:

var k, m, n: integer;

Dat: array[1..10] of integer;

begin

  Dat[1] := 7;  Dat[2] := 9;

  Dat[3] := 10; Dat[4] := 5;

  Dat[5] := 6;  Dat[6] := 7;

  Dat[7] := 9;  Dat[8] := 10;

  Dat[9] := 6;  Dat[10] := 9;

  m := 0; n := 0;

  for k := 1  to 10 do

    if  Dat[k] = m then

      begin

        m := Dat[k];

        n := k

      end;

  writeln(n)

end.

Вариант 2

1. Определите значение переменной b после выполнения данного алгоритма:

a := 3

b := 12

a := b - a * 3

b := 24 / a * 4

2. Определите значение переменной а после выполнения данного алгоритма:

a := 2

b := 5

b := 3 * a + b

a := b * 4 / a

3. Что будет напечатано в результате работы следующей программы:  

var s,k: integer;

begin

 s := 3;

 for k := 4 to 8 do

   s := s * 2;

 writeln(s);

end.

4. Что будет напечатано в результате работы следующей программы:

var s,k: integer;

begin

 s := 7;

 for k := 11 downto 9 do

   s := s + 7;

 writeln(s);

end.

5. Что будет напечатано в результате работы следующей программы:

var s,k: integer;

begin

 s := 80;

 for k := -2 to 5 do

   s := s - 5;

 writeln(s);

end.

6. Что будет напечатано в результате работы следующей программы:

var k, m: integer;

 Dat: array[1..11] of integer;

begin

  Dat[1] := 20;  Dat[2] := 25;

  Dat[3] := 19;  Dat[4] := 25;

  Dat[5] := 26;  Dat[6] := 22;

  Dat[7] := 24;  Dat[8] := 28;

  Dat[9] := 26;  Dat[10] := 21;

  Dat[11] := 27;

  m := 0;

  for k := 1  to 11 do

    if  k 9 then

      m := m + Dat[k];

  writeln(m)

end.

7. Что будет напечатано в результате работы следующей программы:

var k, m: integer;

 Dat: array[1..11] of integer;

begin

  Dat[1] := 20;  Dat[2] := 25;

  Dat[3] := 19;  Dat[4] := 25;

  Dat[5] := 26;  Dat[6] := 22;

  Dat[7] := 24;  Dat[8] := 28;

  Dat[9] := 26;  Dat[10] := 21;

  Dat[11] := 27;

  m := 30;

  for k := 1  to 11 do

    if  Dat[k]

      m := Dat[k];

  writeln(m)

end.

8. Что будет напечатано в результате работы следующей программы:

var k, m, n : integer;

 Dat: array[1..11] of integer;

begin

  Dat[1] := 20;  Dat[2] := 25;

  Dat[3] := 19;  Dat[4] := 25;

  Dat[5] := 26;  Dat[6] := 22;

  Dat[7] := 24;  Dat[8] := 28;

  Dat[9] := 26;  Dat[10] := 21;

  Dat[11] := 27;

  m := 30;

  for k := 1  to 11 do

    if  Dat[k]

      begin

        m: = Dat[k];

        n: = k

      end;

  writeln(n)

end.

Вариант 3

1. Определите значение переменной а после выполнения данного алгоритма:

a := 2

b := 6

b := 12 + a * b

a := b / 4 * a

2. Определите значение переменной b после выполнения данного алгоритма:

a := 4

b := 15

a := b - a * 3

b := 24 / a * 4

3. Что будет напечатано в результате работы следующей программы: 

var s,k: integer;

begin

 s := 64;

 for k := 3 to 7 do

   s := s / 2;

 writeln(s);

end.

4. Что будет напечатано в результате работы следующей программы: 

var s,k: integer;

begin

 s := 77;

 for k := 9 downto 3 do

   s := s -2;

 writeln(s);

end.

5. Что будет напечатано в результате работы следующей программы:

var s,k: integer;

begin

 s := 0;

 for k := -2 to 3 do

   s := s + 10;

 writeln(s);

end.

6. Что будет напечатано в результате работы следующей программы:

var k, m: integer;

 Dat: array[1..10] of integer;

begin

  Dat[1] := 7;  Dat[2] := 9;

  Dat[3] := 10; Dat[4] := 5;

  Dat[5] := 6;  Dat[6] := 7;

  Dat[7] := 9;  Dat[8] := 8;

  Dat[9] := 6;  Dat[10] := 9;

  m := 0;

  for k := 1  to 10 do

    if  Dat[k]

      m := m + 1;

  writeln(m)

end.

7. Что будет напечатано в результате работы следующей программы:

var k, m: integer;

 Dat: array[1..11] of integer;

begin

  Dat[1] := 20;  Dat[2] := 25;

  Dat[3] := 19;  Dat[4] := 25;

  Dat[5] := 26;  Dat[6] := 22;

  Dat[7] := 24;  Dat[8] := 28;

  Dat[9] := 26;  Dat[10] := 21;

  Dat[11] := 27;

  m := 0;

  for k := 1  to 11 do

    if  k

      m := m + Dat[k];

  writeln(m)

end.

8. Что будет напечатано в результате работы следующей программы:

var k, m, n : integer;

 Dat: array[1..11] of integer;

begin

  Dat[1] := 20;  Dat[2] := 25;

  Dat[3] := 19;  Dat[4] := 25;

  Dat[5] := 26;  Dat[6] := 22;

  Dat[7] := 24;  Dat[8] := 18;

  Dat[9] := 26;  Dat[10] := 21;

  Dat[11] := 27;

  m := 35;

  for k := 1  to 11 do

    if  Dat[k]

      begin

        m: = Dat[k];

        n: = k

      end;

  writeln(n)

end.

Вариант 4

1. Определите значение переменной а после выполнения данного алгоритма:

a := 12

b :=а - 5

b := 1 + a * b

a := b / 5 * a / 6

2. Определите значение переменной а после выполнения данного алгоритма:

a := 2

b := 6*а

b := 33 + a * b

a := b / 3 * a

3. Определите значение переменной s после выполнения данного алгоритма:

var s,k: integer;

begin

 s := 77;

 for k := 4 to 7 do

s := s ­- 5;

 writeln(s);

end.

4. Что будет напечатан о в результате работы следующей программы: 

var s,k: integer;

begin

 s := -9;

 for k := 14 downto 7 do

   s := s + 9;

 writeln(s);

end.

5. Что будет напечатано в результате работы следующей программы: 

var s,k: integer;

begin

 s := -55;

 for k := -3 to 7 do

   s := s + 3;

 writeln(s);

end.

6. Что будет напечатано в результате работы следующей программы: 

var k, m: integer;

 Dat: array[1..10] of integer;

begin

  Dat[1] := 7;  Dat[2] := 9;

  Dat[3] := 10; Dat[4] := 5;

  Dat[5] := 6;  Dat[6] := 7;

  Dat[7] := 9;  Dat[8] := 8;

  Dat[9] := 6;  Dat[10] := 9;

  m := 0;

  for k := 1  to 10 do

    if  Dat[k] = 7 then

      m := m + 1;

  writeln(m)

end.

7. Что будет напечатано в результате работы следующей программы:

var k, m: integer;

 Dat: array[1..10] of integer;

begin

  Dat[1] := 7;  Dat[2] := 9;

  Dat[3] := 10; Dat[4] := 5;

  Dat[5] := 6;  Dat[6] := 7;

  Dat[7] := 9;  Dat[8] := 8;

  Dat[9] := 6;  Dat[10] := 9;

  m := -10;

  for k := 1  to 10 do

    if  Dat[k]

      m := m + Dat[k];

  writeln(m)

end.

8. Что будет напечатано в результате работы следующей программы:

var k, m, n: integer;

Dat: array[1..10] of integer;

begin

  Dat[1] := 7;  Dat[2] := 9;

  Dat[3] := 10; Dat[4] := 5;

  Dat[5] := 6;  Dat[6] := 7;

  Dat[7] := 9;  Dat[8] := 10;

  Dat[9] := 6;  Dat[10] := 9;

  m := 5; n := 0;

  for k := 1  to 10 do

    if  Dat[k] = m then

      begin

        m := Dat[k];

        n := k

      end;

  writeln(n)

end.

Вариант 5

1. Определите значение переменной b после выполнения данного алгоритма:

a := 3

b := 12 + а

a := b - a * 3

b := 24 - a * 4

2. Определите значение переменной а после выполнения данного алгоритма:

a := 2

b := 24 / a

b := 3 * a + b

a := b * 4 / a

3. Что будет напечатано в результате работы следующей программы:  

var s,k: integer;

begin

 s := 3;

 for k := -4 to 1 do

   s := s * 2;

 writeln(s);

end.

4. Что будет напечатано в результате работы следующей программы:

var s,k: integer;

begin

 s := 512;

 for k := 11 downto 7 do

   s := s / 2 ;

 writeln(s);

end.

5. Что будет напечатано в результате работы следующей программы:

var s,k: integer;

begin

 s := 80;

 for k := -3 to 7 do

   s := s - 3;

 writeln(s);

end.

6. Что будет напечатано в результате работы следующей программы:

var k, m: integer;

 Dat: array[1..11] of integer;

begin

  Dat[1] := 20;  Dat[2] := 25;

  Dat[3] := 19;  Dat[4] := 25;

  Dat[5] := 26;  Dat[6] := 22;

  Dat[7] := 24;  Dat[8] := 28;

  Dat[9] := 26;  Dat[10] := 21;

  Dat[11] := 27;

  m := 0;

  for k := 1  to 11 do

    if  k = 7 then

      m := m + Dat[k];

  writeln(m)

end.

7. Что будет напечатано в результате работы следующей программы:

var k, m: integer;

 Dat: array[1..11] of integer;

begin

  Dat[1] := 20;  Dat[2] := 25;

  Dat[3] := 19;  Dat[4] := 25;

  Dat[5] := 26;  Dat[6] := 22;

  Dat[7] := 24;  Dat[8] := 28;

  Dat[9] := 26;  Dat[10] := 21;

  Dat[11] := 27;

  m := 25;

  for k := 1  to 11 do

    if  Dat[k]

      m := Dat[k];

  writeln(m)

end.

8. Что будет напечатано в результате работы следующей программы:

var k, m, n : integer;

 Dat: array[1..11] of integer;

begin

  Dat[1] := 10;  Dat[2] := 15;

  Dat[3] := 19;  Dat[4] := 15;

  Dat[5] := 16;  Dat[6] := 12;

  Dat[7] := 14;  Dat[8] := 18;

  Dat[9] := 16;  Dat[10] := 11;

  Dat[11] := 17;

  m := 16;

  for k := 1  to 11 do

    if  Dat[k] =

m then

      begin

        m: = Dat[k];

        n: = k

      end;

  writeln(n)

end.

Вариант 6

1. Определите значение переменной а после выполнения данного алгоритма:

a := 12

b := a / 6

b := 24 + a * b

a := b / 4 * a

2. Определите значение переменной b после выполнения данного алгоритма:

a := 24

b := 15 - a

a := b - a / 3

b := 27 / b - a

3. Что будет напечатано в результате работы следующей программы: 

var s,k: integer;

begin

 s := 1024;

 for k := -3 to 4 do

   s := s / 2;

 writeln(s);

end.

4. Что будет напечатано в результате работы следующей программы: 

var s,k: integer;

begin

 s := 66;

 for k := 9 downto 3 do

   s := s -3;

 writeln(s);

end.

5. Что будет напечатано в результате работы следующей программы:

var s,k: integer;

begin

 s := 10;

 for k := -2 to 3 do

   s := s + 7;

 writeln(s);

end.

6. Что будет напечатано в результате работы следующей программы:

var k, m: integer;

 Dat: array[1..10] of integer;

begin

  Dat[1] := -7;  Dat[2] := -9;

  Dat[3] := 0; Dat[4] := 5;

  Dat[5] := 6;  Dat[6] := 7;

  Dat[7] := 9;  Dat[8] := -8;

  Dat[9] := -6;  Dat[10] := 9;

  m := 0;

  for k := 1  to 10 do

    if  Dat[k]

      m := m + 1;

  writeln(m)

end.

7. Что будет напечатано в результате работы следующей программы:

var k, m: integer;

 Dat: array[1..11] of integer;

begin

  Dat[1] := 10;  Dat[2] := 5;

  Dat[3] := 9;  Dat[4] := -5;

  Dat[5] := -6;  Dat[6] := 12;

  Dat[7] := -14;  Dat[8] := -8;

  Dat[9] := 16;  Dat[10] := 11;

  Dat[11] := -7;

  m := 0;

  for k := 1  to 11 do

    if  k = 6 then

      m := m + Dat[k];

  writeln(m)

end.

8. Что будет напечатано в результате работы следующей программы:

var k, m, n : integer;

 Dat: array[1..10] of integer;

begin

  Dat[1] := 20;  Dat[2] := 15;

  Dat[3] := 19;  Dat[4] := 25;

  Dat[5] := 26;  Dat[6] := 12;

  Dat[7] := 14;  Dat[8] := 18;

  Dat[9] := 26;  Dat[10] := 21;

  m := 50;

  for k := 1  to 10 do

    if  Dat[k]

      begin

        m: = Dat[k];

        n: = k

      end;

  writeln(n)

end.