Подготовка к контрольной работе_9 класс

1. Валя шиф­ру­ет рус­ские слова (последовательности букв), за­пи­сы­вая вме­сто каж­дой буквы её код:

А	Д	К	Н	О	С
01	100	101	10	111	000

Некоторые це­поч­ки можно рас­шиф­ро­вать не одним способом. Например, 00010101 может озна­чать не толь­ко СКА, но и СНК. Даны три ко­до­вые цепочки:

100101000

100000101

0110001

Найдите среди них ту, ко­то­рая имеет толь­ко одну расшифровку, и за­пи­ши­те в от­ве­те рас­шиф­ро­ван­ное слово.

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

а := 8
b := 3
b := a/2*b
a := 2*а + 3*b

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

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

Алгоритмический язык	Бейсик	Паскаль
алгнач цел s, n s := 2 нц для n от 2 до 5 s := s*2 + n кц вывод s кон	DNM n, s AS INTEGERs = 2 FOR n = 2 TO 5 s = s*2 + n NEXT n PRINT s	Var s, n: integer; Begin s := 2; For n := 2 to 5 do s := s*2 + n; Writeln(s); End.

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

Алгоритмический язык	Бейсик	Паскаль
алгнач целтаб Dat[1:10] цел k, m, day Dat[1] := 2 Dat[2] := 2 Dat[3] := 3 Dat[4] := 3 Dat[5] := 4 Dat[6] := 4 Dat[7] := 5 Dat[8] := 5 Dat[9] := 6 Dat[10] := 6 day:=1; m := Dat[1] нц для k от 2 до 10 если Dat[k] >= m то m:= Dat[k] day := k все КЦ вывод day КОН	DIM Dat(10) AS INTEGER Dat[1] = 2 Dat[2] = 2 Dat[3] = 3 Dat[4] = 3 Dat[5] = 4 Dat[6] = 4 Dat[7] = 5 Dat[8] = 5 Dat[9] = 6 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] := 2; Dat[2] := 2; Dat[3] := 3; Dat[4] := 3; Dat[5] := 4; Dat[6] := 4; Dat[7] := 5; Dat[8] := 5; Dat[9] := 6; 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.