Количество информации в сообщении обычно равно количеству бит (округляемому до ближайшего целого с избытком) , которое необходимо для воспроизведения текста сообщения. то есть в сообщении 10101010 информации - 8 бит, в сообщении "погода сегодня будет зимняя, снег не растает, солнце взойдет утром и сядет вечером" - 350 бит (если считать, для простоты, что в языке 32 буквы) . в сообщении e=hν информации, если кодировку ситать юникодом, - 8 байт (64 битa) информации. но вот ценность этих сообщений несопоставима. но ценность информации не есть величина неизбывная и строго измеряемая для данного сообщения. она всегда зависит от того, кому эта информация предназначена, и от того, что путного можно извлечь из неё, а значит - слабо формализуема. в конце концов, запросто можно представить себе (путь и фантастическую)
lavr74
29.03.2022
Program Trapez; {название программы} uses Crt; {подключаемый модуль}
var a, b, alfa: real; {переменные: стороны и угол при основании трапеции} h, S: real; {переменные: высота и площадь}
begin {начало} ClrScr; {очистка экрана} repeat {цикл ввода} Write (' alfa (w grad) = '); {ввод угла} ReadLn(alfa); Write (' a = '); ReadLn(a); {ввод большей стороны} Write (' b = '); ReadLn(b); {ввод меньшей стороны} until (a>b) and (alfa<>90) ; {контроль за вводом: надо а>b и alfa<>90} alfa:=alfa*pi/180; {перевод в радианы} h:=(a-b)/2*sin(alfa)/cos(alfa); {вычисление высоты} S:=(a+b)*h/2; {вычисление площади} WriteLn(' S = ', S:6:2); {вывод результата} ReadLn; {ожидание нажатия ENTER} end. {конец}
глобус, модель літака, залізниця, макет