Кодирование символов 1.какое минимальное число бит на символ надо выделить в памяти, если требуется использовать не менее 60 символов одновременно? 2. сколько различных символов можно использовать при 4-битном коде (на каждый символ отводится 4 бит)? 3. при перекодировке сообщения на языке из 16-битного кода unicode в 8-битную кодировку koi8-r оно уменьшилось на 560 битов. какова длина сообщения в символах? 4. при перекодировке сообщения из 8-битного кода в 16-битную кодировку unicode его объём увеличился на 1024 байта. каков был информационный объём сообщения (в байтах) до перекодировки? 5. текст, содержащий 80 страниц (на каждой странице 32 строки по 50 символов в каждой) закодирован в 8-битной кодировке. определите информационный объем текста в кбайтах.
Ответы
Var n,m,osn: integer;
function nmbdec(var n,osn: integer): integer;
var nmb,l,s,k: integer;
begin
nmb:=0; s:=0;
k:=n; l:=1;
while k>0 do
begin
s:=k mod 10;
k:=k div 10;
nmb:=nmb+l*s;
l:=l*osn;
end;
Result:=nmb;
end;
{ конец функции}
begin
write('число: ');
readln(n);
write('квадрат какого числа: ');
readln(m);
osn:=10;
while osn>=2 do
begin
osn:=osn-1;
if nmbdec(n,osn)=sqr(nmbdec(m,osn)) then
begin
writeln('основание системы = ',osn);
break;
end;
end;
end.
function nmbdec(var n,osn: integer): integer;
var nmb,l,s,k: integer;
begin
nmb:=0; s:=0;
k:=n; l:=1;
while k>0 do
begin
s:=k mod 10;
k:=k div 10;
nmb:=nmb+l*s;
l:=l*osn;
end;
Result:=nmb;
end;
{ конец функции}
begin
write('число: ');
readln(n);
write('квадрат какого числа: ');
readln(m);
osn:=10;
while osn>=2 do
begin
osn:=osn-1;
if nmbdec(n,osn)=sqr(nmbdec(m,osn)) then
begin
writeln('основание системы = ',osn);
break;
end;
end;
end.
Const
problems : array [0..9] of String = ('x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10','x1+5=10', 'x1+5=10', 'x1+5=10');
answers : array [0..9] of String = ('-5', '-5', '-5', '-5', '-5', '-5', '-5', '-5', '-5', '-5');
var
countOfAnswers, counter: integer;
userAnswer: String;
begin
countOfAnswers := 0;
for counter:=0 to 9 do
begin
write('Введите ответ уравнения ', problems[counter], ' : ');
readln(userAnswer);
if userAnswer = answers[counter] then Inc(countOfAnswers);
end;
if countOfAnswers > 8 then writeln('Отлично')
else if countOfAnswers > 5 then writeln('Хорошо')
else writeln('Плохо');
end.
problems : array [0..9] of String = ('x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10','x1+5=10', 'x1+5=10', 'x1+5=10');
answers : array [0..9] of String = ('-5', '-5', '-5', '-5', '-5', '-5', '-5', '-5', '-5', '-5');
var
countOfAnswers, counter: integer;
userAnswer: String;
begin
countOfAnswers := 0;
for counter:=0 to 9 do
begin
write('Введите ответ уравнения ', problems[counter], ' : ');
readln(userAnswer);
if userAnswer = answers[counter] then Inc(countOfAnswers);
end;
if countOfAnswers > 8 then writeln('Отлично')
else if countOfAnswers > 5 then writeln('Хорошо')
else writeln('Плохо');
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
2) Количество символов определяется по обратной формуле N=2^I=2⁴=16
3) Если x - длина сообщения, то 16x-8x=560, отсюда x=70
4) Аналогично 3, но переводим биты в байты: 8 бит = 1 байт, 16 бит = 2 байта
2x-1x=1024, x=1024
Объем сообщения = 1024 байт
5) Объем текста = 80*32*50*8 (бит)=80*32*50 (байт)=
80*32*50/1024 (Кбайт)=125 Кбайт