Количество информации определяется величиной, показывающей насколько уменьшилось наше незнание в вопросе. 1. Если на светофоре горит желтый свет и мы не знаем, какой свет горел на нем до желтого, то возможны два исхода - зеленый свет и красный свет. Какой бы из них потом не загорелся, мы получим выбор 1 из 2 возможных. А этому соответствует один бит информации. 2. Если на светофоре горит красный свет и это "нормальный светофор", то мы ЗНАЕМ, что после красного света всегда следует желтый. Поэтому при зажигании желтого света наше незнание не меняется, следовательно, мы получаем ноль бит информации.
Program prognoz; var Z, K, p, q: real; M: Integer; BEGIN Write('Введите среднюю зарплату в январе Z = '); ReadLn(Z); Write('Введите среднюю потреб.корзину в январе K = '); ReadLn(K); Write('Введите предполагаемый ежемесячный рост зарплаты в % p = '); ReadLn(p); Write('Введите предполагаемый ежемесячный рост потреб.корзины в % q = '); ReadLn(q); M := 2; Z := Z*(1+p/100); K := K*(1+q/100); while (Z >= K) AND (M < 13) do begin WriteLn('Прогноз разности зарплаты и потреб.корзины в ', M:2, '-й месяц:', (Z-K):10:2, ' руб.'); Inc(M); Z := Z*(1+p/100); К := K*(1+q/100); end END.
1. Если на светофоре горит желтый свет и мы не знаем, какой свет горел на нем до желтого, то возможны два исхода - зеленый свет и красный свет. Какой бы из них потом не загорелся, мы получим выбор 1 из 2 возможных. А этому соответствует один бит информации.
2. Если на светофоре горит красный свет и это "нормальный светофор", то мы ЗНАЕМ, что после красного света всегда следует желтый. Поэтому при зажигании желтого света наше незнание не меняется, следовательно, мы получаем ноль бит информации.
var Z, K, p, q: real;
M: Integer;
BEGIN
Write('Введите среднюю зарплату в январе Z = '); ReadLn(Z);
Write('Введите среднюю потреб.корзину в январе K = '); ReadLn(K);
Write('Введите предполагаемый ежемесячный рост зарплаты в % p = '); ReadLn(p);
Write('Введите предполагаемый ежемесячный рост потреб.корзины в % q = '); ReadLn(q);
M := 2;
Z := Z*(1+p/100);
K := K*(1+q/100);
while (Z >= K) AND (M < 13) do
begin
WriteLn('Прогноз разности зарплаты и потреб.корзины в ', M:2, '-й месяц:', (Z-K):10:2, ' руб.');
Inc(M);
Z := Z*(1+p/100);
К := K*(1+q/100);
end
END.