Контрольная работа по программированию. 1 и 2 вариант (10 класс)

Вариант 1

1.      Составьте программу, определяющую, сколько времени затратит школьник на дорогу от школы до стадиона, если известна длина этого расстояния и средняя скорость движения школьника. Значения длины и скорости задаются при помощи оператора Read.

2.      Вы положили деньги в сбербанк. Если срок депозита составляет 3 месяца, то ваша сумма увеличится на 30%, если 6 месяцев – на 60%. Составить программу, которая  вычислит причитающуюся вам сумму. Сумма вклада и срок депозита вводится при помощи оператора Read.

3.      Написать программу для вычисления выражения:

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

var k, s: integer;

begin

  s:=0;

  k:=0;

  while k < 12 do begin

    s:=s+2*k;

    k:=k+3;

  end;

  write(s);

end.

5.      Мой богатый дядюшка подарил мне один доллар в мой первый день рождения. В каждый следующий день рождения он удваивал свой подарок и прибавлял к нему столько долларов, сколько лет мне исполнилось.
Написать программу для расчета общей суммы денег, подаренных к N-ому дню рождения и указать, к какому дню рождения сумма подарка превысит 100$.

6.      В бригаде, работающей на уборке сена, имеется N косилок. Первая из них работала M часов, а каждая следующая на 10 минут больше, чем предыдущая. Составь программу, вычисляющую, сколько часов проработала вся бригада?

7.      В программе описан одномерный целочисленный массив A с индексами от 0 до 10. Ниже представлен фрагмент этой программы, в котором значения элементов массива сначала задаются, а затем меняются.

  for i:=0 to 10 do

    A[i]:=i;

  for i:=0 to 5 do begin

    A[5-i]:=A[5+i];

    A[2+i]:=A[10-i];

  end;

Чему будут равны элементы этого массива? Напиши ряд чисел.

ВАРИАНТ № 2

1.      Написать программу вычисления стоимости покупки, состоящей из нескольких тетрадей и такого же количества обложек к ним. Используйте оператор Read.

2.      К финалу конкурса лучшего по профессии «Специалист электронного офиса» были допущены трое: Иванов, Петров, Сидоров. Соревнования проходили в три тура. Иванов в первом туре набрал M1 баллов, во втором – N1, в третьем – P1. Петров – соответственно M2, N2, P2. Сидоров – M3, N3, P3. Составьте программу, определяющую, сколько баллов набрал победитель.

3.      Написать программу для вычисления выражения:

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

var k, s: integer;

begin

  s:=0;

  k:=0;

  while k < 30 do begin

    k:=k+3;

    s:=s+k;

  end;

  write(s);

end.

5.      Царевна-лягушка съедает ежедневно на 20% комаров больше, чем в предыдущий день, и ещё два комара. Через сколько дней количество съеденных комаров превысит 100, если в первый день было съедено 12 комаров. Составь программу.

6.      Чему будет равна переменная «c» после выполнения этой программы:

1)      a := 26;   b := 6;   b := a mod b + 4;   c := a mod b + 1;

2)      a := 20;   b := 3;   b := a div b;   c := a mod (b + 1);

7.      В программе описан одномерный целочисленный массив A с индексами от 0 до 10. Ниже представлен фрагмент этой программы, в котором значения элементов массива сначала задаются, а затем меняются.

  for i:=0 to 10 do

    A[i]:=i;

  for i:=0 to 5 do begin

    A[10-i]:=A[9-i];

    A[i]:=A[i+1];

  end;

Чему будут равны элементы этого массива? Напиши ряд чисел.