Комплексная контрольная работа по информатике за курс 9 класса

1. Опре­де­ли­те зна­че­ние пе­ре­мен­ной a после вы­пол­не­ния алгоритма, составив таблицу трассировки:

 а := 8

b := 3

b := a/2*b

a := 2*а + 3*b

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

Ниже приведена программа, записанная на пяти языках программирования.

var s, t: integer;

begin

    readln(s);

    readln(t);

    if (s 10) or (t 10)

        then writeln('YES')

        else writeln('NO')

end.

Было проведено 9 запусков программы, при которых в качестве значений переменных s и t вводились следующие пары чисел:

(1, 2); (11, 2); (1, 12); (11, 12); (–11, –12); (–11, 12); (–12, 11); (10, 10); (10, 5).

Сколько было запусков, при которых программа напечатала «YES»? Составьте таблицу трассировки.

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

 var s,k: integer;

begin

    s := 0;

    for k := 9 to 13 do

        s := s + 9;

    writeln(s);

end.

Рассмотрите алгоритм и ответьте на вопросы:

program Nosok;

var a, b, c : integer;

begin

writeln(‘Введите длины сторон треугольника’);

readln(a,b,c);

if (a=b+c) or (b=a+c) or (c=b+a) then

writeln(‘треугольника не существует’)

else if (a=b) and (a=c) and (b=c) then

writeln(‘Треугольник равносторонний’)

else if (a=b) or (a=c) or (b=c) then

writeln (‘Треугольник равнобедренный’)

else writeln (‘Треугольник разносторонний’)

end.

1. Напишите название программы.

2. Какой тип переменных использован в программе.

3. Сколько всего переменных использовано в программе, укажите их имена.

Перепишите строку, в которой программа получает данные от пользователя

У исполнителя Альфа две команды, которым присвоены номера:

1. прибавь 2;

2. раздели на b

(b — неизвестное натуральное число; b ≥ 2).

Выполняя первую из них, Альфа увеличивает число на экране на 2, а выполняя вторую, делит это число на b. Программа для исполнителя Альфа — это последовательность номеров команд. Известно, что программа 11211 переводит число 50 в число 22. Определите значение b.

Для получения чертежа написан алгоритм. Дополните его.

нц

пока ______________

закрасить

вниз

кц

нц

пока справа свободно

______

кц

нц

пока _______ свободно

__________

вниз

кц

нц

пока ____________

закрасить

_______

кц

нц

пока __________ свободно

________

кц

нц

пока ____________

закрасить

________

кц

Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 6. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 6.

В готовом шаблоне допишите недостающие операторы и укажите значение каждой переменной в этой программе.

Program zadacha1;

var n, s, _______: integer;

begin

___:=0;

readln(n);

____ k:=1 to n do

begin

readln(g);

if (g ____ 6 = 0) then

s:=___+1;

end;

writeln(____);

end.

1. Определите значение переменной a после выполнения данного алгоритма, составив таблицу трассировки:

a := 3

b := 7

b := 9+a*b

a := b/5*a

Ниже приведена программа, записанная на пяти языках программирования.

var s, t: integer;

begin

    readln(s);

    readln(t);

    if (s 5) and (t 5)

        then writeln('YES')

        else writeln('NO')

end.

Было проведено 9 запусков программы, при которых в качестве значений переменных s и t вводились следующие пары чисел:

(6, 8); (3, 5); (–7, 2); (7, 7); (9, 8); (–1, 3); (–4, 5); (6, 9); (2, –1).

Сколько было запусков, при которых программа напечатала «YES»? Составьте таблицу трассировки.

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

var d, n: integer;

begin

    d := 6;

    d := d−2;

    for n := 1 to 4 do

        d := d + n;

    writeln(d);

end.

Рассмотрите алгоритм и ответьте на вопросы:

program Nosok;

var a, b, c : integer;

begin

writeln(‘Введите длины сторон треугольника’);

readln(a,b,c);

if (a=b+c) or (b=a+c) or (c=b+a) then

writeln(‘треугольника не существует’)

else if (a=b) and (a=c) and (b=c) then

writeln(‘Треугольник равносторонний’)

else if (a=b) or (a=c) or (b=c) then

writeln (‘Треугольник равнобедренный’)

else writeln (‘Треугольник разносторонний’)

end.

1. Напишите название программы.

2. Какой тип переменных использован в программе.

3. Сколько всего переменных использовано в программе, укажите их имена.

4. Перепишите строку, в которой программа получает данные от пользователя.

У исполнителя Альфа две команды, которым присвоены номера:

1. прибавь 1;

2. умножь на b

(b — неизвестное натуральное число; b ≥ 2).

Выполняя первую из них, Альфа увеличивает число на экране на 1, а выполняя вторую, умножает это число на b. Программа для исполнителя Альфа — это последовательность номеров команд. Известно, что программа 11211 переводит число 6 в число 82. Определите значение b.

Для получения чертежа написан алгоритм. Дополните его.

нц

пока ________ свободно

вправо

кц

нц

пока _____________

закрасить

______

кц

нц

пока справа ____________

вниз

кц

нц

пока ________________

___________

вниз

кц

вправо

вверх

нц

пока ______________

закрасить

_________

кц

 нц

пока слева свободно

___________

кц

 нц

пока _________________

закрасить

вверх

кц

 Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 6. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 6. Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число — сумму чисел, кратных 6.

В готовом шаблоне допишите недостающие операторы и укажите значение каждой переменной в этой программе.

Program zadacha1;

var n,______, g: integer;

begin

s:=__;

readln(n);

for k:=1 to __ do

begin

readln(g);

if (g mod __ = 0) then

s:=______;

end;

writeln(____);

end.