Решите Задачи «Подходы к измерению количества информации» 1. Определите, какое из сообщений содержит для Вас информацию.
Свой ответ обоснуйте.
а) Москва – столица России.
б) Пропедевтика – введение в какую-либо науку, предварительный вводный
курс, систематически изложенный в сжатой и элементарной форме.
в) Выходными днями в этом году считать 2-4 ноября.
г) ghk in baby dog.
2. В алфавите 2048 символа. Определите информационный вес 1
символа данного алфавита в байтах.
3. Какой объем информации содержит сообщение, уменьшающее
неопределенность знаний в 16 раз?
4. В ходе получения некоторого сообщения неопределенность знаний
уменьшилась в 20 раз. Какой информационный объем содержит
данное сообщение?
5. В коробке лежат 8 разноцветных карандашей. Сколько информации
получит ученик, вынув из коробки красный карандаш?
7. Определите, какое из сообщений содержит для Вас информацию.
Свой ответ обоснуйте.
а) Рим – столица Греции.
б) Стоимость билета на поездах дальнего следования при условии
нахождения в пути в новогоднюю ночь составит 50% от первоначальной
стоимости.
в) Отработка задолжностей по информатике состоится в среду на 4 паре.
г) Волга впадает в Каспийское море.
9. Сообщение о том, что нужный офис находится на 10 этаже несет 4
бит информации. Сколько этажей в здании?11.Пришло смс от мамы «Я приезжаю в 8 вагоне». Какое количество
информации было получено, если известно, что в поезде 15 вагонов?
13.На книжной полке стоят книги следующих тематик: фантастика,
драма, стихотворения, летопись государства – в единственном
варианте каждая. Сколько информации получит библиотекарь,
выбрав сборник стихов?
14.Сообщение, записанное буквами на из 32-символьного алфавита,
содержит 25 символов. Какой объем информации оно несет?
const
m=100;
var
a:array[1..m,1..m]of integer;
i,j,S,n,k: integer;
begin
Readln(n);
for i:=1 to n do
begin
writeln;
for j:=1 to n do
begin
a[i,j]:=random(100)-50;
write(a[i,j]:4);
end;
end;
for i:=1 to n do
if a[i,i]>0 then
begin
s:=s+a[i,i];
k:=k+1;
end;
writeln;
if k<>0 then
writeln('SR=', s/k)
else
writeln('Net <0');
end.