Поделитесь своими знаниями, ответьте на вопрос:
решить задачи по информатике Задача 1. Какое количество информации получит слушатель из сообщения о 512 равновероятных событий? Задача 2. Определите количество символов в тексте, если известно, что его информационный объем 20 байт, а каждый символ кодируется 4 битами. Задача 3. Определите код буквы А, если известны коды букв: В=001, С=01, D=10, Е=11
sme: byte;
arrIn: array of byte;
boolEncode: boolean;
arrOut: System.Collections.Generic.List<byte> := new System.Collections.Generic.List<byte>();
begin
writeln('1 - encode; 2 - decode');
readln(sme);
boolEncode := (sme = 1);
write('Смещение: ');
readln(sme);
arrIn := System.IO.File.ReadAllBytes('out.txt');
foreach f: byte in arrIn do
arrOut.Add(f + (boolEncode ? -1 : 1) * sme);
System.IO.File.WriteAllBytes('out1.txt', arrOut.ToArray());
end.
Алфавит, это, конечно, хорошо, но, бесспорно, будет лучше сделать более универтально: алфавит не только русским будет, ещё пункт. знаки, цЫфры, иврит...:)