<span>S(y+x, y, z);
- ошибка
y+x имеет тип real+byte = real и не может быть подставлен туда, где ожидался byte. Это связано с запретом в Паскале неявного приведения вещественного типа к целочисленному.
</span>
Windows 10
Mac OS Sierra
Linux
1 в четыре раза уменьшает неопределённость знания
По формуле или
(N - мощность алфавита, i - вес одного символа)
Вес одного символа бит (округляем в большую сторону так как кусками тут быть не может)
Вес одного символа бит (округляем в большую сторону так как кусками тут быть не может)
Общий вес текста/сообщения
I = K * i (K - кол-во символов, i - вес одного символа)
Отношение объемов информации раз
Очевидно, что в подмножество войдут сигналы, для которых значение будет не меньше 1, поскольку меньшие значения уменьшают произведение.
<em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=SeqRandom(ReadInteger('n='),0,99).Select(t->0.1*t).ToArray;
a.Println.Where(t->t>=1.0).Println
end.
<u>Пример</u>
n= 15
1.3 2.8 0.7 5.1 1 0.9 7.9 5.5 3.4 3.6 9.1 2.7 2.5 9 7.9
1.3 2.8 5.1 1 7.9 5.5 3.4 3.6 9.1 2.7 2.5 9 7.9