Var
a,b,c,d:real;
begin
Write('Введите коэффициенты уравнения a,b,c: ');
Readln(a,b,c);
d:=b*b-4*a*c;
if d<0 then Writeln('Корней нет')
else if d=0 then Writeln('Один корень')
else Writeln('Два корня')
end.
Что такое информация - это философский вопрос. Информация - это физическая субстанция, которую можно померять. Информация тесно связана с таким понятием, как вероятность - вероятность события.
Информация - это всё новое, неизведанное, всё, что может быть использовано для осознанного действия - действяи по улудшению своего состояния в этом мире.
Информация пропорциональна вероятности того, что событие произойдёт. При чём, чем больше вероятность, темменьше информации.
Тоесть 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.
Алгоритм, составленный для конкретного исполнителя, должен включать только те команды, которые входят в его систему команд. Это свойство алгоритма называется понятностью<span>. Алгоритм не должен быть рассчитан на принятие каких-либо самостоятельных решений исполнителем, не предусмотренных составителем алгоритм</span>
Смотря какие обозначения используются. Можно так
-A v B (линия сверху, над А)
A & B v C