На одного посетителя приходится 4 бита:
1бит - пол, 1бит - количество, 2бита - возраст.
300*4=1200 бит (или 150 байт)
А - топология "шина"
В - смешанная("кольцо" и "шина")
С - топология "звезда"
D - топология "кольцо"
Е - топология "шина"
F - смешанная ("звезда" и "шина")
G - смешанная("кольцо", "звезда" и "шина")
<em>// PascalABC.NET 3.3, сборка 1561 от 02.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
<u>1.</u>
begin
var a:=MatrGen(4,5,(i,j)->i+1);
a.Println(2)
end.
<u>Результат</u>
1 1 1 1 1
2 2 2 2 2
3 3 3 3 3
4 4 4 4 4
<u>2.</u>
begin
var n:=ReadInteger('Количество строк в массиве:');
var m:=ReadInteger('Количество столбцов в массиве:');
Writeln('*** Исходный массив ***');
var a:=MatrRandom(n,m,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
a.SwapRows(0,a.RowCount-1);
Writeln('*** Результирующий массив ***'); a.Println(4)
end.
<u>Пример</u>
Количество строк в массиве: 6
Количество столбцов в массиве: 5
*** Исходный массив ***
-68 64 -31 2 -73
-24 -17 17 97 57
-71 45 19 70 -78
-5 -81 -49 -94 -5
78 64 -8 -84 33
-30 2 26 -50 -47
--------------------
*** Результирующий массив ***
-30 2 26 -50 -47
-24 -17 17 97 57
-71 45 19 70 -78
-5 -81 -49 -94 -5
78 64 -8 -84 33
-68 64 -31 2 -73
1) I =log2 (39) = 5,285 бит (если надо в целых, то I =6 бит)
2) N=2^i =2^12 =4096 количество событий
3) 1+6=7
I = log2 7 = 2,81 бит количество информации о цвете
4) 1+6=7
р=1/7 - вероятность, что достали белый шар
I=-log2(1/7) = log2 7 =2,81 бит в сообщении, что достали белый шар
5) в сообщении 24 символа (без точки в конце)
в ASCII 1 символ кодируется 8-ю битами (=1 байт)
24*1 байт =24 байта.
( если в конце предложения есть точка, то тогда 25 байтов)
6) текст на кириллице, 1символ=1 байту
24байта ( или с точкой -25 байтов)
Любой материальный объект или среда, используемый человеком, способный достаточно длительное время сохранять в своей структуре занесённую на него информацию<span>, без использования дополнительных устройств.</span>