Тестовая работа по теме "Программирование"

Вариант 1

Задание 8 № 8

В про­грам­ме «:=» обо­зна­ча­ет опе­ра­тор присваивания, знаки «+», «-», «*» и «/» — соответственно опе­ра­ции сложения, вычитания, умно­же­ния и деления. Пра­ви­ла вы­пол­не­ния опе­ра­ций и по­ря­док дей­ствий со­от­вет­ству­ют пра­ви­лам арифметики. Опре­де­ли­те зна­че­ние пе­ре­мен­ной b после вы­пол­не­ния алгоритма:  

а := 2

b := 4

а := 2*а + 3*b

b := a/2*b

В от­ве­те ука­жи­те одно целое число — значение пе­ре­мен­ной b.

Задание 8 № 28

В про­грам­ме «:=» обо­зна­ча­ет опе­ра­тор присваивания, знаки «+», «-», «*» и «/» — соответственно опе­ра­ции сложения, вычитания, умно­же­ния и деления. Пра­ви­ла вы­пол­не­ния опе­ра­ций и по­ря­док дей­ствий со­от­вет­ству­ют пра­ви­лам арифметики. Опре­де­ли­те зна­че­ние пе­ре­мен­ной b после вы­пол­не­ния алгоритма:

 а := 5

b := 4

а := 2*а + 3*b

b := a/2*b 

В от­ве­те ука­жи­те одно целое число — значение пе­ре­мен­ной b.

Задание 8 № 48

В про­грам­ме «:=» обо­зна­ча­ет опе­ра­тор присваивания, знаки «+», «-», «*» и «/» — соответственно опе­ра­ции сложения, вычитания, умно­же­ния и деления. Пра­ви­ла вы­пол­не­ния опе­ра­ций и по­ря­док дей­ствий со­от­вет­ству­ют пра­ви­лам арифметики. Опре­де­ли­те зна­че­ние пе­ре­мен­ной b после вы­пол­не­ния алгоритма:

 а := 4

b := 4

а := 2*а + 3*b

b := a/2*b 

В от­ве­те ука­жи­те одно целое число — значение пе­ре­мен­ной b.

Задание 9 № 9

Запишите зна­че­ние переменной s, по­лу­чен­ное в ре­зуль­та­те работы сле­ду­ю­щей программы. Текст про­грам­мы приведён на пяти язы­ках программирования.

var s,k: integer;

 begin

   s := 0;

   for k := 3 to 7 do

      s := s + 6;

   writeln(s);

 end.

Задание 9 № 29

Запишите зна­че­ние переменной s, по­лу­чен­ное в ре­зуль­та­те работы сле­ду­ю­щей программы.

var s,k: integer;

begin

    s := 0;

    for k := 4 to 8 do

        s := s + 7;

    writeln(s);

end.

Задание 9 № 49

Запишите зна­че­ние переменной s, по­лу­чен­ное в ре­зуль­та­те работы сле­ду­ю­щей программы.

var s,k: integer;

begin

    s := 0;

    for k := 4 to 7 do

        s := s + 8;

    writeln(s);

end.

Задание 9 № 69

Запишите зна­че­ние переменной s, по­лу­чен­ное в ре­зуль­та­те работы сле­ду­ю­щей программы.

var s,k: integer;

begin

    s := 0;

    for k := 3 to 8 do

        s := s + 9;

    writeln(s);

end.

Задание 9 № 89

Запишите зна­че­ние переменной s, по­лу­чен­ное в ре­зуль­та­те работы сле­ду­ю­щей программы.

var s,k: integer;

begin

    s := 0;

    for k := 3 to 8 do

        s := s + 7;

    writeln(s);

end.

Задание 10 № 10

В таб­ли­це Dat хра­нят­ся дан­ные из­ме­ре­ний сред­не­су­точ­ной тем­пе­ра­ту­ры за 10 дней в гра­ду­сах (Dat[1] — дан­ные за пер­вый день, Dat[2] — за вто­рой и т. д.). Определите, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей программы.

Var k, m: integer;

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

 Begin

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

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

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

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

    Dat[9] := 14; Dat[10] := 15;

    m := 0;

    for k := 1 to 10 do

       if Dat[k]=15 then

        begin

           m := m + 1;

       end;

    writeln(m);

 End.

Задание 10 № 30

В таб­ли­це Dat хра­нят­ся дан­ные из­ме­ре­ний сред­не­су­точ­ной тем­пе­ра­ту­ры за 10 дней в гра­ду­сах (Dat[1] — дан­ные за пер­вый день, Dat[2] — за вто­рой и т. д.). Определите, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей программы.

Var k, m: integer;

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

 Begin

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

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

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

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

    Dat[9] := 14; Dat[10] := 15;

    m := 0;

    for k := 1 to 10 do

       if Dat[k] > m then

        begin

           m := Dat[k];

       end;

    writeln(m);

 End.

Задание 10 № 50

В таблице Dat хранятся данные измерений среднесуточной температуры за 10 дней в градусах (Dat[1] — данные за первый день, Dat[2] — за второй и т. д.). Определите, какое число будет напечатано в результате работы следующей программы.

Var k, m: integer;

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

 Begin

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

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

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

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

    Dat[9] := 14; Dat[10] := 15;

    m := 20;

    for k := 1 to 10 do

       if Dat[k] < m then

        begin

           m := Dat[k];

       end;

    writeln(m);

 End.

Задание 10 № 70

В таб­ли­це Dat хра­нят­ся дан­ные из­ме­ре­ний сред­не­су­точ­ной тем­пе­ра­ту­ры за 10 дней в гра­ду­сах (Dat[1] — дан­ные за пер­вый день, Dat[2] — за вто­рой и т. д.). Определите, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей программы.

Var k, m: integer;

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

 Begin

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

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

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

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

    Dat[9] := 14; Dat[10] := 15;

    m := 0;

    for k := 1 to 10 do

       if Dat[k] > 12 then

        begin

           m := m + 1;

       end;

    writeln(m);

 End.

Задание 10 № 90

В таб­ли­це Dat хра­нят­ся дан­ные из­ме­ре­ний сред­не­су­точ­ной тем­пе­ра­ту­ры за 10 дней в гра­ду­сах (Dat[1] — дан­ные за пер­вый день, Dat[2] — за вто­рой и т. д.). Определите, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей программы.  

Var k, m: integer;

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

 Begin

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

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

    Dat[5] := 4; Dat[6] := 2;

    Dat[7] := 0; Dat[8] := 3;

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

    m := 0;

    for k := 1 to 10 do

       if Dat[k] > m then

        begin

           m := Dat[k];

       end;

    writeln(m);

 End.

Задание 10 № 110

В таб­ли­це Dat хра­нят­ся дан­ные из­ме­ре­ний сред­не­су­точ­ной тем­пе­ра­ту­ры за 10 дней в гра­ду­сах (Dat[1] — дан­ные за пер­вый день, Dat[2] — за вто­рой и т. д.). Определите, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей программы.

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

 Begin

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

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

    Dat[5] := 4; Dat[6] := 2;

    Dat[7] := 0; Dat[8] := 3;

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

    m := 10;

    for k := 1 to 10 do

       if Dat[k] < m then

        begin

           m := Dat[k];

       end;

    writeln(m);

 End.

Вариант 2

Задание 8 № 68

В про­грам­ме «:=» обо­зна­ча­ет опе­ра­тор присваивания, знаки «+», «-», «*» и «/» — соответственно опе­ра­ции сложения, вычитания, умно­же­ния и деления. Пра­ви­ла вы­пол­не­ния опе­ра­ций и по­ря­док дей­ствий со­от­вет­ству­ют пра­ви­лам арифметики. Опре­де­ли­те зна­че­ние пе­ре­мен­ной b после вы­пол­не­ния алгоритма:  

а := 6

b := 4

а := 2*а + 3*b

b := a/2*b 

В от­ве­те ука­жи­те одно целое число — значение пе­ре­мен­ной b.

Задание 8 № 88

В про­грам­ме «:=» обо­зна­ча­ет опе­ра­тор присваивания, знаки «+», «-», «*» и «/» — соответственно опе­ра­ции сложения, вычитания, умно­же­ния и деления. Пра­ви­ла вы­пол­не­ния опе­ра­ций и по­ря­док дей­ствий со­от­вет­ству­ют пра­ви­лам арифметики. Опре­де­ли­те зна­че­ние пе­ре­мен­ной b после вы­пол­не­ния алгоритма:  

а := 7

b := 4

а := 2*а + 3*b

b := a/2*b 

В от­ве­те ука­жи­те одно целое число — значение пе­ре­мен­ной b.

Задание 8 № 108

В про­грам­ме «:=» обо­зна­ча­ет опе­ра­тор присваивания, знаки «+», «-», «*» и «/» — соответственно опе­ра­ции сложения, вычитания, умно­же­ния и деления. Пра­ви­ла вы­пол­не­ния опе­ра­ций и по­ря­док дей­ствий со­от­вет­ству­ют пра­ви­лам арифметики. Опре­де­ли­те зна­че­ние пе­ре­мен­ной b после вы­пол­не­ния алгоритма:  

а := 3

b := 4

а := 2*а + 3*b

b := a/2*b 

В от­ве­те ука­жи­те одно целое число — значение пе­ре­мен­ной b.

Задание 9 № 109

Запишите зна­че­ние пе­ре­мен­ной s, по­лу­чен­ное в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей программы.

var s,k: integer;

begin

    s := 0;

    for k := 3 to 8 do

        s := s + 6;

    writeln(s);

end.

Задание 9 № 129

Запишите зна­че­ние переменной s, по­лу­чен­ное в ре­зуль­та­те работы сле­ду­ю­щей программы

var s,k: integer;

begin

    s := 0;

    for k := 5 to 9 do

        s := s + 8;

    writeln(s);

end.

Задание 9 № 149

Запишите зна­че­ние переменной s, по­лу­чен­ное в ре­зуль­та­те работы сле­ду­ю­щей программы.

var s,k: integer;

begin

    s := 0;

    for k := 6 to 10 do

        s := s + 10;

    writeln(s);

end.

Задание 9 № 169

Запишите зна­че­ние переменной s, по­лу­чен­ное в ре­зуль­та­те работы сле­ду­ю­щей программы.

var s,k: integer;

begin

    s := 0;

    for k := 7 to 11 do

        s := s + 11;

    writeln(s);

end.

Задание 9 № 189

Запишите зна­че­ние переменной s, по­лу­чен­ное в ре­зуль­та­те работы сле­ду­ю­щей программы.

var s,k: integer;

begin

    s := 0;

    for k := 8 to 12 do

        s := s + 12;

    writeln(s);

end.

Задание 10 № 150

В таб­ли­це Dat пред­став­ле­ны дан­ные о ко­ли­че­стве голосов, по­дан­ных за 10 ис­пол­ни­те­лей на­род­ных песен (Dat[1] — ко­ли­че­ство голосов, по­дан­ных за пер­во­го исполнителя, Dat[2] — за вто­ро­го и т. д.). Определите, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей программы.

Var k, m: integer;

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

 Begin

    Dat[1] := 56; Dat[2] := 70;

    Dat[3] := 20; Dat[4] := 41;

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

    Dat[7] := 30; Dat[8] := 12;

    Dat[9] := 65; Dat[10] := 35;

    m := 0;

    for k := 1 to 10 do

       if Dat[k] > 25 then

        begin

           m := m + 1;

       end;

    writeln(m);

 End.

Задание 10 № 170

В таб­ли­це Dat пред­став­ле­ны дан­ные о ко­ли­че­стве голосов, по­дан­ных за 10 ис­пол­ни­те­лей на­род­ных песен (Dat[1] — ко­ли­че­ство голосов, по­дан­ных за пер­во­го исполнителя, Dat[2] — за вто­ро­го и т. д.). Определите, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей программы.

Var k, m: integer;

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

 Begin

    Dat[1] := 56; Dat[2] := 70;

    Dat[3] := 20; Dat[4] := 41;

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

    Dat[7] := 30; Dat[8] := 12;

    Dat[9] := 65; Dat[10] := 35;

    m := 0;

    for k := 1 to 10 do

       if Dat[k] < 35 then

        begin

           m := m + 1;

       end;

    writeln(m);

 End.

Задание 10 № 190

В таб­ли­це Dat пред­став­ле­ны дан­ные о ко­ли­че­стве голосов, по­дан­ных за 10 ис­пол­ни­те­лей на­род­ных песен (Dat[1] — ко­ли­че­ство голосов, по­дан­ных за пер­во­го исполнителя, Dat[2] — за вто­ро­го и т. д.). Определите, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей программы.

Var k, m: integer;

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

 Begin

    Dat[1] := 56; Dat[2] := 70;

    Dat[3] := 20; Dat[4] := 41;

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

    Dat[7] := 30; Dat[8] := 12;

    Dat[9] := 65; Dat[10] := 35;

    m := 100;

    for k := 1 to 10 do

       if Dat[k] < m then

        begin

           m := Dat[k];

       end;

    writeln(m);

 End.

Задание 10 № 210

В таб­ли­це Dat пред­став­ле­ны дан­ные о ко­ли­че­стве голосов, по­дан­ных за 10 ис­пол­ни­те­лей на­род­ных песен (Dat[1] — ко­ли­че­ство голосов, по­дан­ных за пер­во­го исполнителя, Dat[2] — за вто­ро­го и т. д.). Определите, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей программы.

Var k, m: integer;

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

 Begin

    Dat[1] := 56; Dat[2] := 70;

    Dat[3] := 20; Dat[4] := 41;

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

    Dat[7] := 30; Dat[8] := 12;

    Dat[9] := 65; Dat[10] := 35;

    m := 0;

    for k := 1 to 10 do

       if Dat[k] > m then

        begin

           m := Dat[k];

       end;

    writeln(m);

 End.

Задание 10 № 250

В таб­ли­це Dat пред­став­ле­ны дан­ные о ко­ли­че­стве голосов, по­дан­ных за 10 ис­пол­ни­те­лей на­род­ных песен (Dat[1] — ко­ли­че­ство голосов, по­дан­ных за пер­во­го исполнителя, Dat[2] — за вто­ро­го и т. д.). Определите, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей программы.  

Var k, m: integer;

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

 Begin

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

    Dat[3] := 20; Dat[4] := 41;

    Dat[5] := 14; Dat[6] := 21;

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

    Dat[9] := 15; Dat[10] := 35;

    m := 50;

    for k := 1 to 10 do

       if Dat[k] < m then

        begin

           m := Dat[k];

       end;

    writeln(m);

 End.

Задание 10 № 270

В таб­ли­це Dat пред­став­ле­ны дан­ные о ко­ли­че­стве голосов, по­дан­ных за 10 ис­пол­ни­те­лей на­род­ных песен (Dat[1] — ко­ли­че­ство голосов, по­дан­ных за пер­во­го исполнителя, Dat[2] — за вто­ро­го и т. д.). Определите, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей программы.  

Var k, m: integer;

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

 Begin

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

    Dat[3] := 20; Dat[4] := 41;

    Dat[5] := 14; Dat[6] := 21;

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

    Dat[9] := 15; Dat[10] := 35;

    m := 0;

    for k := 1 to 10 do

       if Dat[k] > m then

        begin

           m := Dat[k];

       end;

    writeln(m);

 End.