Контрольная работа по программированию


Вариант 1
Составьте программу, определяющую, сколько времени затратит школьник на дорогу от школы до стадиона, если известна длина этого расстояния и средняя скорость движения школьника. Значения длины и скорости задаются при помощи оператора Read.
3968115601345Вы положили деньги в сбербанк. Если срок депозита составляет 3 месяца, то ваша сумма увеличится на 30%, если 6 месяцев – на 60%. Составить программу, которая вычислит причитающуюся вам сумму. Сумма вклада и срок депозита вводится при помощи оператора Read.
Написать программу для вычисления выражения:
Определите, что будет напечатано в результате работы следующего фрагмента программы:
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.
Мой богатый дядюшка подарил мне один доллар в мой первый день рождения. В каждый следующий день рождения он удваивал свой подарок и прибавлял к нему столько долларов, сколько лет мне исполнилось. Написать программу для расчета общей суммы денег, подаренных к N-ому дню рождения и указать, к какому дню рождения сумма подарка превысит 100$.
В бригаде, работающей на уборке сена, имеется N косилок. Первая из них работала M часов, а каждая следующая на 10 минут больше, чем предыдущая. Составь программу, вычисляющую, сколько часов проработала вся бригада?
В программе описан одномерный целочисленный массив 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
Написать программу вычисления стоимости покупки, состоящей из нескольких тетрадей и такого же количества обложек к ним. Используйте оператор Read.
3920490783590К финалу конкурса лучшего по профессии «Специалист электронного офиса» были допущены трое: Иванов, Петров, Сидоров. Соревнования проходили в три тура. Иванов в первом туре набрал M1 баллов, во втором – N1, в третьем – P1. Петров – соответственно M2, N2, P2. Сидоров – M3, N3, P3. Составьте программу, определяющую, сколько баллов набрал победитель.
Написать программу для вычисления выражения:
Определите, что будет напечатано в результате работы следующего фрагмента программы:
var k, s: integer;
begin s:=0;
k:=0;
while k < 30 do begin
k:=k+3;
s:=s+k;
end;
write(s);
end.
Царевна-лягушка съедает ежедневно на 20% комаров больше, чем в предыдущий день, и ещё два комара. Через сколько дней количество съеденных комаров превысит 100, если в первый день было съедено 12 комаров. Составь программу.
Чему будет равна переменная «c» после выполнения этой программы:

a := 26; b := 6; b := a mod b + 4; c := a mod b + 1; a := 20; b := 3; b := a div b; c := a mod (b + 1);
В программе описан одномерный целочисленный массив 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;
Чему будут равны элементы этого массива? Напиши ряд чисел.

Приложенные файлы

  • docx file1
    Размер файла: 21 kB Загрузок: 6