Что такое информация - это философский вопрос. Информация - это физическая субстанция, которую можно померять. Информация тесно связана с таким понятием, как вероятность - вероятность события.
Информация - это всё новое, неизведанное, всё, что может быть использовано для осознанного действия - действяи по улудшению своего состояния в этом мире.
Информация пропорциональна вероятности того, что событие произойдёт. При чём, чем больше вероятность, темменьше информации.
Тоесть I~1/P
Но информация должна обладать эффектом аддитивности. Тоесть информация о суммарном событии должна быть равна сумме информация о каждом из (независимых!!!) событий:
I(Q1*Q2)= 1/P(Q1*Q2) = 1/(P(Q1) * P(Q2)) не равно I(Q1)+I(Q2)
Что бы добиться равинства, надо взять логорифм:
I(Q1*Q2) = I(Q1) + I(Q2) = log(1/(P(Q1) * P(Q2))) = log(1/P(Q1)) + log(1/P(Q2)) = -log(P(Q1)) - log(P(Q2))
Основание логорифма определяет единицу измерения информации. Если основание "2", то единица измерения "бит".
Таким образом мы определяем что такое 1 бит информации:
1 = log2(P(Q)) => P(Q) = 1/2
1 бит - это информация о событии, вероятность которого равна 1/2.
231=11100111(в двоичной)
231=153(в восьмеричной)
231=817(в шестнадцатиричной)
Объяснение:
Исходное слово: Дорога.........
Ответ врде будет
x=2.5+x2
Procedure TForm1.Button1Click(Sender: TObject);
var
xn, e, m : Extended;
xnn : Extended;
begin
Memo1.Clear;
xn := StrToFloat(Edit1.Text);
e := StrToFloat(Edit2.Text);
m := StrToFloat(Edit3.Text);
repeat
xnn := xn;
xn := (1/3)*(2*xnn + (m/(xnn*xnn)));
Memo1.Lines.Append('xn = '+floattostr(xn));
until (Abs(xn-xnn)<e);
<span>end;
</span>