Дано а; в - длина и ширина обоев. m - площадь стен. найти: хватит ли обоев на поклейку стен всё написать в виде программы для лазарус или какой-то похожей программе .
Допустим, у нас есть сообщение «habr», которое необходимо передать без ошибок. Для этого сначала нужно наше сообщение закодировать при Кода Хэмминга. Нам необходимо представить его в бинарном виде.На этом этапе стоит определиться с, так называемой, длиной информационного слова, то есть длиной строки из нулей и единиц, которые мы будем кодировать. Допустим, у нас длина слова будет равна 16. Таким образом, нам необходимо разделить наше исходное сообщение («habr») на блоки по 16 бит, которые мы будем потом кодировать отдельно друг от друга. Так как один символ занимает в памяти 8 бит, то в одно кодируемое слово помещается ровно два ASCII символа. Итак, мы получили две бинарные строки по 16 битбит. распараллеливается, и две части сообщения («ha» и «br») кодируются независимо друг от друга. Рассмотрим, как это делается на примере первой части.
Прежде всего, необходимо вставить контрольные биты. Они вставляются в строго определённых местах — это позиции с номерами, равными степеням двойки. В нашем случае (при длине информационного слова в 16 бит) это будут позиции 1, 2, 4, 8, 16. Соответственно, у нас получилось 5 контрольных бит (выделены красным цветом)Таким образом, длина всего сообщения увеличилась на 5 бит. До вычисления самих контрольных бит, мы присвоили им значение «0».
Поскольку в условии не сказано, включать ли в множество повторяющиеся символы, принято решение для простоты их включать.
const nn = 100;{максимальная мощность множества}
var m: array[1..nn] of char; i, n, n1: integer; s1, s2: string; alpha, digit: set of char;
begin alpha := ['А'..'я']; digit := ['0'..'9']; n := 0; Writeln('Введите строку символов первого множества'); Readln(s1); Writeln('Введите строку символов второго множества'); Readln(s2); for i := 1 to Length(s1) do if (s1[i] in alpha) then begin n := n + 1; m[n] := s1[i] end; for i := 1 to Length(s2) do if (s2[i] in digit) then begin n := n + 1; m[n] := s2[i] end; Writeln('Результирующее множество'); for i := 1 to n do Write(m[i]:2) end.
Тестовое решение: Введите строку символов первого множества -This 1*2 П*ро=изvolnый наbop сим;волob** Введите строку символов второго множества Отсюда 1-(4)=5 только цифры 33.634 berem Результирующее множество П р о и з ы й н а с и м в о л 1 4 5 3 3 6 3 4
Объяснение:
Допустим, у нас есть сообщение «habr», которое необходимо передать без ошибок. Для этого сначала нужно наше сообщение закодировать при Кода Хэмминга. Нам необходимо представить его в бинарном виде.На этом этапе стоит определиться с, так называемой, длиной информационного слова, то есть длиной строки из нулей и единиц, которые мы будем кодировать. Допустим, у нас длина слова будет равна 16. Таким образом, нам необходимо разделить наше исходное сообщение («habr») на блоки по 16 бит, которые мы будем потом кодировать отдельно друг от друга. Так как один символ занимает в памяти 8 бит, то в одно кодируемое слово помещается ровно два ASCII символа. Итак, мы получили две бинарные строки по 16 битбит. распараллеливается, и две части сообщения («ha» и «br») кодируются независимо друг от друга. Рассмотрим, как это делается на примере первой части.
Прежде всего, необходимо вставить контрольные биты. Они вставляются в строго определённых местах — это позиции с номерами, равными степеням двойки. В нашем случае (при длине информационного слова в 16 бит) это будут позиции 1, 2, 4, 8, 16. Соответственно, у нас получилось 5 контрольных бит (выделены красным цветом)Таким образом, длина всего сообщения увеличилась на 5 бит. До вычисления самих контрольных бит, мы присвоили им значение «0».
const
nn = 100;{максимальная мощность множества}
var
m: array[1..nn] of char;
i, n, n1: integer;
s1, s2: string;
alpha, digit: set of char;
begin
alpha := ['А'..'я'];
digit := ['0'..'9'];
n := 0;
Writeln('Введите строку символов первого множества');
Readln(s1);
Writeln('Введите строку символов второго множества');
Readln(s2);
for i := 1 to Length(s1) do
if (s1[i] in alpha) then begin n := n + 1; m[n] := s1[i] end;
for i := 1 to Length(s2) do
if (s2[i] in digit) then begin n := n + 1; m[n] := s2[i] end;
Writeln('Результирующее множество');
for i := 1 to n do Write(m[i]:2)
end.
Тестовое решение:
Введите строку символов первого множества
-This 1*2 П*ро=изvolnый наbop сим;волob**
Введите строку символов второго множества
Отсюда 1-(4)=5 только цифры 33.634 berem
Результирующее множество
П р о и з ы й н а с и м в о л 1 4 5 3 3 6 3 4