Кодирование информации. При передаче информации происходит кодирование информации, и мы должны договориться о том, как понимать те или иные обозначения.Человек выражает свои мысли словами. Они являются алфавитным представлением информации. На уроках физики при рассмотрении какого-либо явления мы используем формулы. В этом случае говорят о языке алгебры. Формула - это математический код. Существует язык глухонемых, где символы - мимика и жесты; язык музыки, где символы - ноты и т.д. Основу любого языка составляет алфавит - конечный набор различных символов, из кото-рых складывается сообщение. Одна и та же запись может нести разную смысловую нагрузку. Например, набор цифр 251299 может обозначать: массу объекта; длину объекта; расстояние между объектами; номер телефона; дату 25 декабря 1999 года. Эти примеры говорят, что для представления информации могут использоваться разные коды, и поэтому надо знать законы записи этих кодов, т.е. уметь кодировать. Код - набор условных обозначений для представления информации. Кодирование - процесс представления информации в виде кода. Кодирование сводится к использованию совокупности символов по строго определенным правилам. При переходе улицы мы встречаемся с кодированием информации в виде сигналов светофора. Водитель передает сигнал с гудка или миганием фар. Кодировать инфор-мацию можно устно, письменно, жестами или сигналами любой другой природы. По мере разви-тия техники появились разные кодирования информации. Во второй половине XIX века американский изобретатель Морзе изобрел удивительный код, который служит человечеству до сих пор.
В качестве источников информации может выступать человек, техническое устройство, предметы, объекты живой и неживой природы. Получателей сообщения может быть несколько или один. В процессе обмена информацией мы совершаем две операции: кодирование и декодирование. При кодировании происходит переход от исходной формы представления информации в форму, удобную для хранения, передачи или обработки, а при декодировании - в обратном направлении.
Const len = 20; var arr : array [1..len] of integer; i, i2, min, temp : integer; f : text; begin for i := 1 to len do {считывание массива с клавиатуры} begin write('arr[', i, '] = '); readln(arr[i]); end; for i := 1 to len do {сортировка} begin min := i; for i2 := i to len do {находим позицию наименьшего элемента} if arr[i2] < arr[min] then min := i2; temp := arr[min]; {запоминаем наименьший элемент} for i2 := min downto i + 1 do {сдвигаем массив вправо} arr[i2] := arr[i2 - 1]; arr[i] := temp; {ставим наименьшее значение в нужное место} end; AssignFile(f, 'output.txt'); {вывод массива в файл output.txt} Rewrite(f); for i := 1 to len do write(f, arr[i], ' '); CloseFile(f); end.
