ЛИНИe а": ском языках. 1. Что такое информация для каждого из вас? Что можно делать с ней? Произнесите ключевые слова урока на казахском и англий- 2. С каких органов чувств человек получает больше все- 4. Назовите виды информации, которые воспринимает человек, 3. Какие виды Информации можно представить в компьютере? го информации? Обоснуйте свои ответы. но нельзя обрабатывать компьютером. 5. Почему тактильную информацию нельзя передать через Интер- нет? 6. Какая информация нужна ученику, приступающему к выполне- 7. Какое, по вашему мнению, чувство (зрение, слух, обоняние, ося- нию домашнего задания? зание) является наиболее развитым у кошки, собаки, дельфина, ле тучей мыши? 8. Объясните значение поговорки «Лучше один раз увидеть, чем сто раз услышать». 9. Какие виды информации получ 10. Почему маленькие дети стремятся гать рукам попробовать на вкус? отные, растения п
const
n = 10;
var
ms: array[1..n] of string;
t: string;
i, j: integer;
f: Text;
begin
{ Чтение матрицы из файла }
Assign(f, 'in.txt'); Reset(f);
for i := 1 to n do Readln(f, ms[i]);
Close(f);
{ Вывод матрицы на экран }
Writeln('*** Бинарная матрица ***');
for i := 1 to n do Writeln(ms[i]);
{ Сортировка обменом (простейшая) }
for i := 1 to n - 1 do
for j := 1 to n - 1 do
if ms[j] > ms[j + 1] then
begin t := ms[j]; ms[j] := ms[j + 1]; ms[j + 1] := t end;
{ Поиск одинаковых строк }
Writeln('Совпадающие строки');
j := 1; t := ms[1];
for i := 2 to n do
begin
if ms[i] = t then Inc(j)
else begin
if j > 1 then begin Writeln(t); j := 1 end;
t := ms[i]
end
end;
if j > 1 then Writeln(t)
end.
Контрольное решение:
*** Бинарная матрица ***
1 1 0 1 0 1 0 1 0 1
0 0 1 0 1 0 1 0 1 0
1 0 1 0 1 0 1 0 1 0
1 1 0 1 0 1 0 1 0 0
0 0 1 0 1 0 1 0 1 1
0 1 0 1 0 1 0 1 0 1
1 1 0 1 0 1 0 1 0 1
0 0 1 0 1 0 1 0 1 0
0 1 0 1 0 1 0 1 0 1
Совпадающие строки
0 0 1 0 1 0 1 0 1 0
0 1 0 1 0 1 0 1 0 1
1 0 1 0 1 0 1 0 1 0
1 1 0 1 0 1 0 1 0 1