Итоговый тест по информатике и ИКТ 9 класс Часть 1 Часть 1 включает 6 заданий с выбором ответа. К каждому заданию даётся 4 ответа, только один из которых правильный. 1 Статья, набранная на компьютере, содержит 16 страниц, на каждой странице 38 строк, в каждой строке 48 символов. В одном из представлений Unicode каждый символ кодируется 2 байтами. Определите информационный объём статьи в этом варианте представления Unicode. 1) 96 байт 2) 8 Кбайт 3) 57 Кбайт 4) 960 байт 2 Сколько единиц в двоичной записи десятичного числа 651? 1) 6 2) 2 3) 4 4) 5 3 Между населёнными пунктами A, B, C, D, E, F построены дороги, протяжённость которых приведена в таблице. (Отсутствие числа в таблице означает, что прямой дороги между пунктами нет.) Определите длину кратчайшего пути между пунктами A и F (при условии, что передвигаться можно только по построенным дорогам 16 2) 13 3) 15 4) 23 4 Пользователь работал с каталогом E:Музыка\Рок\ Tokio Hotel. После он поднялся на один уровень вверх, и затем еще на уровень вверх. После он вошел в каталог Классика, и в нем открыл каталог Вивальди. Запишите полный путь каталога, в котором оказался пользователь.. 5 Дан фрагмент электронной таблицы: Какая формула может быть записана в ячейке С2, чтобы построенная после выполнения вычислений диаграмма по значениям диапазона ячеек A2:D2 соответствовала рисунку: 1) =A1–D1*2 2) =D1*6+2 3) =A1–B1 4) =B1+C1 6 Исполнитель Чертёжник перемещается на координатной плоскости, оставляя след в виде линии. Чертёжник может выполнять команду Сместиться на (a, b) (где a, b – целые числа), перемещающую Чертёжника из точки с координатами (x, y) в точку с координатами (x + a, y + b). Если числа a, b положительные, значение соответствующей координаты увеличивается, если отрицательные – уменьшается. Например, если Чертёжник находится в точке с координатами (4, 2), то команда Сместиться на (2, –3) переместит Чертёжника в точку (6, –1). Запись Повтори k раз Команда1 Команда2 Команда3 конец означает, что последовательность команд Команда1 Команда2 Команда3 повторится k раз. Чертёжнику был дан для исполнения следующий алгоритм: Повтори 3 раз Сместиться на (–3, –2) Сместиться на (2, 1) Сместиться на (3, 0) конец Какую команду надо выполнить Чертёжнику, чтобы вернуться в исходную точку, из которой он начал движение? 1) Сместиться на (–6, 3) 2) Сместиться на (6, –3) 3) Сместиться на (3, 6) 4) Сместиться на (–3, –6) Часть 2 Часть 2 состоит из 4 задания. ответом к заданиям этой части является число или последовательность цифр. 7 Определите значение переменной b после выполнения фрагмента алгоритма, представленного следующей блок-схемой. Примечание: знаком := обозначена операция присваивания. В ответе укажите одно число – значение переменной b. 8 На рисунке – схема дорог, связывающих города А, Б, В, Г, Д, Е, Ж, И, К. По каждой дороге можно двигаться только в одном направлении, указанном стрелкой. Сколько существует различных путей из города А в город К? 9 У исполнителя Счетчик две команды, которым присвоены номера: вычти три умножь на два Первая команда уменьшает число на экране на 3, вторая – удваивает его. Запишите порядок команд в алгоритме получения из числа 15 числа 42, содержащем не более 5 команд. (Например, получить из числа 11 число 17 можно по алгоритму: Вычти 3. Вычти 3. Умножь на 2. Умножь на 2. Вычти 3. ответом задачи будет порядок команд – 11221.) Если таких алгоритмов больше одного, запишите любой из них. 10 Скорость передачи данных через ADSL-соединение равна 256000 бит/сек. Передача данных через это соединение составила 8 секунд. Определите размер файла в килобайтах. В ответе укажите одно число. A B C D E F A 2 19 B 2 11 3 8 C 11 4 D 3 2 E 19 8 4 2 6 F 6 1) Е:\Музыка\Рок\Классика\Вивальди 2) Музыка\Классика\Вивальди 3) Е:\Вивальди 4) Е:\Музыка\Классика\Вивальди
Ответы
PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018Внимание! Если программа не работает, обновите версию!
begin
var n := ReadInteger;
var L := new List<(integer, integer)>;
loop n do
begin
L.Add(ReadInteger2)
end;
var k := L.Count;
L := L.Distinct.ToList; // этап 1
var k1 := L.Count;
Print(k - k1);
(k, k1) := (k1, 0); // этап 2
var St := new Stack<integer>;
var m := L.First[0]; // время
for var i := 1 to k - 1 do
if L[i][0] <= m then
begin
St.Push(i);
Inc(k1)
end
else m := L[i][0];
for var i := 1 to k1 do
L.RemoveAt(St.Pop);
Print(k1);
(k, k1) := (L.Count, 0); // этап 3
m := L.First[1]; // температура
for var i := 1 to k - 1 do
if Abs(L[i][1] - m) > 10 then
begin
St.Push(i);
Inc(k1)
end
else m := L[i][1];
for var i := 1 to k1 do
L.RemoveAt(St.Pop);
Println(k1);
end.
Пример610 58 58 58 512 2513 102 1 1Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Основные элементы интерфейса Go.ogle Sket.chUp
Автор: ovdei71
пожайлуста по информатике без ошибок!
Автор: agent-ulitka5
Слова ВСлова КСлова СВ К С ТАБЛИЦА
Автор: saa002
по информатике ! что писать
Автор: fucingprinces30
Чем характеризуются национальные ресурсы общества?
Автор: slazurnaya
Примеры словесный и по информатике буду .
Автор: Sharmel26
Program ToDec;
Uses crt;
var s:string;
n,l,i:integer;
function Pow(x,y:integer):integer;
begin
if y>0 then Pow:=Pow(x,y-1)*x
else Pow:=1;
end;
function ToDec(A : string) : integer;
var L : Byte;
begin
if A = '' then ToDec := 0
else begin
L := length(A);
case A[1] of
'0' : ToDec := ToDec(Copy(A, 2, L - 1));
'1' : ToDec := Pow(2, L - 1) + ToDec(Copy(A, 2, L - 1));
end;
end;
end;
begin
clrscr;
write('Введите двоичное число: ');
readln(s);
writeln('Это число в десятичной системе : ', ToDec(S));
readkey;
end.