Контрольная работа по программированию. 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;

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