Решите задания, выполняя вычисления с применением степеней числа 2. Расчеты показывайте в работе ответы – это максимуму оценка «3». 1. Сколько Кбайт информации содержит сообщение объемом 2 в 23 степени бит? (ответ – одним числом 2. Сколько бит информации содержит сообщение объемом 1 Гб? (ответ – степень 2). 3. Сколько Гбит информации содержит сообщение объемом 2 в 38 степени байт? (ответ – степень 2). 4. Сколько байт информации содержит сообщение объемом 16 Мбит? (ответ – степень 2). 5. Сколько Мбайт информации содержит сообщение объемом 0, 5 Гб? (ответ – одним числом). 6. Определите вес одного символа 16-символьного алфавита. 7. Определите мощность алфавита, если вес одного символа равен 8 бит. 8. Определите объем сообщения (в байтах), состоящего из 120 символов, если вес одного символа 4 бита. 9. Чему равна мощность алфавита, используемого для записи сообщения, состоящего из 2048 символов и имеющего объем 16 Кбит? 10. Два сообщения состоят из одинакового количества символов. Первое записано с символьного алфавита, а второе – с символьного алфавита.
Ответы
в кинозале всего 16×32=512 мест. Сообщение о купленном билете однозначно определяет выбор одного из этих мест. Из уравнения 2 i = 512=29получаем: i=9 бит. Но эту же задачу можно решать иначе. Сообщение о номере ряда несет 4 бита информации, т.к. 24=16. Сообщение о номере места несет 5 бит информации, т.к. 25=32. В целом сообщение про ряд и место несет: 4+5=9 бит информации. Данный пример иллюстрирует выполнение закона активности информации (правило сложения): количество информации в сообщении одновременно о нескольких результатах независимых друг от друга событий равно сумме количеств информации о каждом событии отдельно.
1)
Program graph1;
uses graph;
var gd,gm,error,a,b: integer; x,y:real;
begin
gd:=detect;
initgraph(gd,gm,'');
error:=graphresult;
if error <> grOk then begin
write ('Ошибка: ', grapherrormsg(error));
readln; halt;
end;
while(x<=100) do begin
y:=cos(x*x);
a:=round(x*100);
b:=round(y*100);
PutPixel(a,b+300,15);
x:=x+0.001;
end;
readln;
closegraph;
end.
closegraph;
end.
2)
Program graph1;
uses graph;
var gd,gm,error,a,b: integer; x,y:real;
begin
gd:=detect;
initgraph(gd,gm,'');
error:=graphresult;
if error <> grOk then begin
write ('Ошибка: ', grapherrormsg(error));
readln; halt;
end;
while(x<=100) do begin
y:=1/(x*x+1);
a:=round(x*100);
b:=round(y*100);
PutPixel(a,b+300,15);
x:=x+0.001;
end;
readln;
closegraph;
end.
Program graph1;
uses graph;
var gd,gm,error,a,b: integer; x,y:real;
begin
gd:=detect;
initgraph(gd,gm,'');
error:=graphresult;
if error <> grOk then begin
write ('Ошибка: ', grapherrormsg(error));
readln; halt;
end;
while(x<=100) do begin
y:=cos(x*x);
a:=round(x*100);
b:=round(y*100);
PutPixel(a,b+300,15);
x:=x+0.001;
end;
readln;
closegraph;
end.
closegraph;
end.
2)
Program graph1;
uses graph;
var gd,gm,error,a,b: integer; x,y:real;
begin
gd:=detect;
initgraph(gd,gm,'');
error:=graphresult;
if error <> grOk then begin
write ('Ошибка: ', grapherrormsg(error));
readln; halt;
end;
while(x<=100) do begin
y:=1/(x*x+1);
a:=round(x*100);
b:=round(y*100);
PutPixel(a,b+300,15);
x:=x+0.001;
end;
readln;
closegraph;
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Алгоритмдеу және программалау бжб
Автор: Мусаев Игоревич371
Определи название и назначение данных программ
Автор: tat72220525
Буква Х в кумире, алгоритм
Автор: mospaskrasnogorbukh
Укажите информационные модели
Автор: AHO436
