КР_ 9 класс

Контрольная работа

Контрольная работа предполагает развернутый ответ (подробное решение)  на каждую задачу. Выводы (ответы) занести в таблицу ответов.

Вариант ______

Таблица ответов

№1	№2	№3	№4

Вариант 1.

Задание 1. Агент 007, пе­ре­да­вая важ­ные све­де­ния сво­е­му напарнику, за­ко­ди­ро­вал со­об­ще­ние при­ду­ман­ным шифром. В со­об­ще­нии при­сут­ству­ют толь­ко буквы из приведённого фраг­мен­та ко­до­вой таблицы.

Р	Ы	В	О	С
€ £	£ £ €	£ £	£ €	£ € £

Определите, какое со­об­ще­ние за­ко­ди­ро­ва­но в строчке

£ £ £ € € £ £ € £.

В от­ве­те за­пи­ши­те по­сле­до­ва­тель­ность букв без за­пя­тых и дру­гих зна­ков препинания.

Задание 2. В про­грам­ме «:=» обо­зна­ча­ет опе­ра­тор присваивания, знаки «+», «-», «*» и «/» — соответственно опе­ра­ции сложения, вычитания, умно­же­ния и деления. Пра­ви­ла вы­пол­не­ния опе­ра­ций и по­ря­док дей­ствий со­от­вет­ству­ют пра­ви­лам арифметики. Опре­де­ли­те зна­че­ние пе­ре­мен­ной b после вы­пол­не­ния алгоритма:

а := 5
b := 4
а := 2*а + 3*b
b := a/2*b

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

Задание 3. Запишите зна­че­ние пе­ре­мен­ной d, по­лу­чен­ное в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей программы. Текст про­грам­мы приведён на трёх язы­ках программирования.

Алгоритмический язык	Бейсик	Паскаль
алг нач цел d,n d := 6 d := d-2 нц для п от 1 до 4 d : = d + n кц вывод d кон	DIM n,d AS INTEGER d = 6 d = d-2 FOR n = 1 TO 4 d = d + n NEXT n PRINT d	Var d,n: integer; Begin d := 6; d := d-2; For n := 1 to 4 do d : = d + n ; Writeln(d); End .

Задание 4. В таб­ли­це Dat хра­нят­ся дан­ные еже­днев­ных из­ме­ре­ний ко­ли­че­ства осад­ков за не­де­лю в мил­ли­мет­рах (Dat[1] – дан­ные за понедельник, Dat[2] – за втор­ник и т.д.). Определите, что будет на­пе­ча­та­но в ре­зуль­та­те вы­пол­не­ния сле­ду­ю­ще­го алгоритма, за­пи­сан­но­го на трёх язы­ках программирования.

Алгоритмический язык	Бейсик	Паскаль
алг нач цел­таб Dat[1:7] цел k, day Dat[1] := 14; Dat[2] := 10 Dat[3] := 0; Dat[4] := 15 Dat[5] := 0; Dat[6] := 15 Dat[7] := 10 day := 0; нц для k от 1 до 7 если Dat[k] = 0 то day := k все кц вывод day кон	DIM Dat(7) AS INTEGER Dat(1) = 14: Dat(2) = 10 Dat(3) = 0: Dat(4) = 15 Dat(5) = 0: Dat(6) = 15 Dat(7) = 10 day = 0 FOR k = 1 TO 7 IF Dat(k) = 0 THEN day=k ENDIF NEXT k PRINT day END	var k, day: integer; Dat: array[1..7] of integer; begin Dat[1] := 14; Dat[2] := 10; Dat[3] := 0; Dat[4] := 15; Dat[5] := 0; Dat[6] := 15; Dat[7] := 10; day := 0; for k := 1 to 7 do if Dat[k] = 0 then day := k; write(day); end.

Вариант 2.

Задание 1. Мальчики иг­ра­ли в шпи­о­нов и за­ко­ди­ро­ва­ли со­об­ще­ние при­ду­ман­ным шифром. В со­об­ще­нии при­сут­ству­ют толь­ко буквы из приведённого фраг­мен­та ко­до­вой таблицы:

А	Б	В	Г	Д	Е	Ж
10	101	12	102	122	22	120

Определите, сколь­ко букв со­дер­жит сообщение:

101212210102.

Задание 2. В про­грам­ме «:=» обо­зна­ча­ет опе­ра­тор присваивания, знаки «+», «-», «*» и «/» — соответственно опе­ра­ции сложения, вычитания, умно­же­ния и деления. Пра­ви­ла вы­пол­не­ния опе­ра­ций и по­ря­док дей­ствий со­от­вет­ству­ют пра­ви­лам арифметики. Опре­де­ли­те зна­че­ние пе­ре­мен­ной b после вы­пол­не­ния алгоритма:

b := -5
a := 2
а := 11 - 2*a - b
b := a/3 - 3*b

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

Задание 3. Запишите зна­че­ние пе­ре­мен­ной s, по­лу­чен­ное в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей программы. Текст про­грам­мы приведён на трёх язы­ках программирования.

Алгоритмический язык	Бейсик	Паскаль
алг нач цел s, k s := 0 нц для k от 14 до 18 s := s+7 кц вывод s кон	DIM k, s AS INTEGER s = 0 FOR k = 14 TO 18 s = s+7 NEXT k PRINT s	Var s,k: integer; Begin s := 0; for k := 14 to 18 do s := s+7; writeln(s); End.

Задание 4. В таб­ли­це Dat хра­нят­ся дан­ные о ко­ли­че­стве поездов, от­прав­ля­ю­щих­ся с цен­траль­но­го вок­за­ла го­ро­да на юг в пер­вой де­ка­де июля (Dat[1] — ко­ли­че­ство по­ез­дов пер­во­го числа, Dat[2] — ко­ли­че­ство по­ез­дов вто­ро­го числа и т. д.). Определите, что будет на­пе­ча­та­но в ре­зуль­та­те вы­пол­не­ния сле­ду­ю­ще­го алгоритма, за­пи­сан­но­го на трёх ал­го­рит­ми­че­ских языках.

Алгоритмический язык	Бейсик	Паскаль
алгнач целтаб Dat[1:10] цел k, m, day Dat[1] := 6 Dat[2] := 2 Dat[3] := 5 Dat[4] := 3 Dat[5] := 4 Dat[6] := 4 Dat[7] := 3 Dat[8] := 5 Dat[9] := 2 Dat[10] := 6 day:=1; m := Dat[1] нц для k от 2 до 10 если Dat[к] < m то m:= Dat[k] day := k все КЦ вывод day КОН	DIM Dat(10) AS INTEGER Dat[1] = 6 Dat[2] = 2 Dat[3] = 5 Dat[4] = 3 Dat[5] = 4 Dat[6] = 4 Dat[7] = 3 Dat[8] = 5 Dat[9] = 2 Dat[10] = 6 day = 1: m = Dat(1) FOR k = 2 TO 10 IF Dat(k) < m THEN m = Dat(k) day = k END IF NEXT k PRINT day END	Var k, m, day: integer; Dat: array[1...10] of integer; Begin Dat[1] := 6; Dat[2] := 2; Dat[3] := 5; Dat[4] := 3; Dat[5] := 4; Dat[6] := 4; Dat[7] := 3; Dat[8] := 5; Dat[9] := 2; Dat[10] := 6; day:=1; m := Dat[1]; for k := 2 to 10 do if Dat[k] < m then begin m:= Dat[k]; day := k; end; write(day); End.