1. Продолжаем работать с темой «Предыстория информатики». Ссылка на теорию находится в описании

урока.

2. По данной теме составляем кроссворд. За эту работу будет выставлено две оценки.

Срок выполнения: 28 мая до 14:00

Объем: 15 слов

Что необходимо предоставить для отчета:

Документ Word, состоящий из трех частей:

1) пустой кроссворда (термины пронумерованы);

2) во которые начинаются словами «по горизонтали» и «по вертикали»;

3) ответы – заполненный кроссворд.

Внимание!

Если у вас проблемы с работой в Word (темы 8 класса), то делаем все на бумаге.

Пояснения: Составляем классический кроссворд, где слова могут пересекаться (но не касаться

друг друга). Классическая сетка кроссворда состоит из слов, написанных по вертикали (сверху

вниз) и горизонтали (слева направо). Можно использовать словосочетания. Только клетку между

словами в словосочетании необходимо будет закрасить. Для привязки ответов к определениям в

кроссворде нумеруются ячейки, содержащие первые буквы ответов. Нумерация идет по

правилам чтения: слева направо и сверху вниз. Слова, идущие из одной клетки в разных

направлениях, нумеруются одной цифрой.

Критерии оценивания:

Оценка «5»:

- количество слов, используемых в кроссворде не менее 15;

- термины только из файла «Предыстория информатики»;

- все определения и формулировки однотипны;

- орфографическая правильность;

- аккуратность оформления.

Оценка «4»:

- количество слов, используемых в кроссворде

205

473

Посмотреть ответы 1

Ответы на вопрос:

usett

Информатика

4,4(14 оценок)

// pascalabc.net 3.1, сборка 1219 от 16.04.2016 type matrix=array[,] of integer; procedure matprint(a: matrix); begin var m: =length(a,1)-1; for var i: =0 to length(a,0)-1 do begin for var j: =0 to m do write(a[i,j]: 4); writeln end end; function isequal(a: matrix; col: integer): boolean; begin var s: =sign(a[0,col]); for var i: =1 to length(a,0)-1 do s+=sign(a[i,col]); if (s=0) then result: =(a[0,col]< > 0) else result: =false end; procedure deletecol(var a: matrix; col: integer); begin var n: =length(a,0)-1; var m: =length(a,1)-1; for var j: =col+1 to length(a,1)-1 do for var i: =0 to n do a[i,j-1]: =a[i,j]; setlength(a,n+1,m) end; begin var n: =readinteger('строк: '); var m: =readinteger('столбцов: '); var a: =matrixrandom(n,m,-99,99); writeln('исходная матрица'); matprint(a); for var j: =length(a,1)-1 downto 0 do if isequal(a,j) then deletecol(a,j); writeln('результирующая матрица'); matprint(a); end. тестовое решение строк: 8 столбцов: 10 исходная матрица -3 -82 -25 -22 65 1 79 -67 -64 -82 17 36 48 -32 51 11 43 9 -35 4 -10 -5 80 82 -24 66 -12 -58 50 -94 52 70 53 85 -32 -59 46 57 -84 -44 81 71 -55 37 46 -15 -61 25 22 -7 -49 98 -42 -18 -44 -97 -63 -7 -98 99 -86 37 -17 -69 -35 46 82 62 99 11 65 85 -7 -90 23 19 -50 -56 -64 91 результирующая матрица -82 -25 -22 1 -64 36 48 -32 11 -35 -5 80 82 66 50 70 53 85 -59 -84 71 -55 37 -15 22 98 -42 -18 -97 -98 37 -17 -69 46 99 85 -7 -90 19 -64