Современный компьютер может обрабатывать числовую, текстовую, графическую, звуковую и видео информацию. Все эти виды информации в компьютере представлены в двоичном коде, т. е. используется всего два символа 0 и 1. Связано это с тем, что удобно представлять информацию в виде последовательности электрических импульсов: импульс отсутствует (0), импульс есть (1).
Такое кодирование принято называть двоичным, а сами логические последовательности нулей и единиц - машинным языком.
Какой длины должен быть двоичный код, чтобы с его можно было закодировать васе символы клавиатуры компьютера?
Достаточный алфавит
В алфавит мощностью 256 символов можно поместить практически все символы, которые есть на клавиатуре. Такой алфавит называется достаточным.
Т.к. 256 = 28, то вес 1 символа – 8 бит.
Единице в 8 бит присвоили свое название - байт.
1 байт = 8 бит.
Таким образом, информационный вес одного символа достаточного алфавита равен 1 байту.
Для измерения больших информационных объемов используются более крупные единицы измерения информации:
Единицы измерения количества информации:
1 байт = 8 бит
1 килобайт = 1 Кб = 1024 байта
1 мегабайт = 1 Мб = 1024 Кб
1 гигабайт = 1 Гб = 1024 Гб
Информационный объем текста
Дано:
Книга содержит 150 страниц.
На каждой странице - 40 строк.
В каждой строке 60 символов (включая пробелы).
Найти информационный объем текста.
1. Количество символов в книге:
60 * 40 * 150 = 360 000 символов.
2. Т.к. 1 символ весит 1 байт, информационный объем книги равен
360 000 байтов.
3. Переведем байты в более крупные единицы:
360 000 / 1024 = 351,56 Кб
351,56 / 1024 = 0,34 Мб
ответ: Информационный объем текста 0,34 Мб.
// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
// Внимание! Если программа не работает, обновите версию!
function ОставитьЧисло(Число:integer):boolean;
begin
var ПоследняяЦифра:=Abs(Число mod 10);
Result:=ПоследняяЦифра.IsEven and (ПоследняяЦифра<>0) and
(Число mod ПоследняяЦифра=0)
end;
begin
var Массив:=ArrRandom(12,-10,60);
Массив.Println; // исходный массив
Массив:=Массив.Where(Элемент->ОставитьЧисло(Элемент)).ToArray;
Массив.Println; // отфильтрованный массив
var K:=ReadInteger('Введите число K:');
var ИскомаяПоследняяЦифра:=
ReadInteger('Какой цифрой заканчивается число?');
var Список:=new List<integer>; // создали пустой список
for var Индекс:=0 to Массив.High do
if Abs(Массив[Индекс] mod 10) = ИскомаяПоследняяЦифра then
begin
Список.Add(K);
Список.Add(Массив[Индекс]);
Список.Add(K)
end
else
Список.Add(Массив[Индекс]);
Массив:=Список.ToArray;
Массив.Println // результирующий массив
end.
