1. Дан текст из 200 символов известно что символы берутся из таблицы 16 на 8. определите информационный объем текста в байтах 2. Алфавит состоит из 100 символов. какое количество информации несёт один символ этого алфавита?
3. Алфавит племени Пульт содержит 8 символов. каков информационный вес символа этого символа?
4.
= - 127, максимальное число = + 127
2) Число 1607, ячейка двухбайтовая, один бит под знак, следовательно, под число отводится 15 бит, в двоичном представлении 1607(10) = 11001000111(2), дополняем до 16 бит, старший бит - знаковый - нулевой, так как число положительное
= 0000011001000111(2) - это двоичное представление в двухбайтовой ячейке, чтобы получить шестнадцатиричное представление, разбиваем число справа - налево по 4 бита
0000 0110 0100 0111 и записываем в шестнадцатиричном виде
0111(2) = 7(16) 0100(2) = 4(16) 0110(2) =6(16) 0000(2) = 0(16)
1607(16) = 0647(16) или без старшего не значащего нуля = 647(16)
3) для получения дополнительного кода числа, находят обратное число, или инверсию числа,
для этого каждый бит числа изменяют на противоположный, 1 на 0, 0 на 1
105(10) = 1101001(2) - это и есть дополнительный код числа - 105, т.е. дополнительным кодом
числа (- а) будет число а.
Найдем дополнительный код в однобайтовой ячейке числа 105(10) = 01101001(2),
а) находим обратное 01101001(2) ->(обратное) ->10010110(2)
б) дополнительный код-> обратный код + 1 ->(дополнительный)->10010111(2), а это число - 105
потому, что отрицательные числа представляются в дополнительном коде.
Если для числа - 105 найти дополнительный код, то получим число 105
10010111(2)->(дополнительный)->01101000+1->01101001 = 69(16) = 16*6+9 = 96+9 = 105
const s='Каждый охотник желает знать где сидит фазан';
var s1,sub:string;
i,j,m,n:integer;
a:array[1..100] of string;
begin
i:=0;n:=0;
repeat
inc(i);
if (s[i]=' ')or(s[i]=',') then begin
inc(n);
a[n]:=sub;
sub:='';
end
else sub:=sub+s[i];
until i=length(s);
inc(n);
a[n]:=sub;
writeln;
for i:=1 to n do
begin
if i mod 4 =1 then writeln(a[i]);
if i mod 4 =2 then writeln(' ',a[i]);
if i mod 4 =3 then writeln(' ',a[i]);
if i mod 4 =0 then begin
writeln(' ',a[i]);
writeln;
end;
end;
end.
Объяснение:
Возможности протестировать нет, но надеюсь работает. Питон не знаю, но возможно