Program Polik1907; uses crt; Var tur:real; mes:integer; begin writeln(''); writeln('* Мы рады приветствовать вас *'); writeln('* в нашем турагентстве *'); writeln('* P O L I K 1 9 0 7 *'); writeln('* ! ! ! *'); writeln(''); writeln(); writeln('Введите базовую стоимость путёвки: '); readln(tur); writeln('month Введите номер месяца: '); readln(mes); case mes of 1,5,10: writeln('Стоимость вашей путёвки составит ',tur,' рублей'); 6,7,8,9: writeln('Стоимость вашей путёвки составит ',tur*1.2,' рублей'); 2,3,4,11,12: writeln('Стоимость вашей путёвки составит ',tur*0.8,' рублей'); else writeln('Введите правильный номер месяца'); end; end.
С бит можно закодировать 2^32 = 4294967296 символов (похоже на ощибку в условии задачи)
С бит можно закодировать2^10 = 1024 вариантов.
1/512 Мбайт = (1024*1024)/512 байт = 2048 байт. 2048/2048 = 1 байт - нужен для кодировки одного символа 1 байт = 8 бит - информационный вес одного символа С бит можно закодировать 2^8 = 256 символов - это и есть размер алфавита
Всего двузначных чисел 90. Чтоб закодировать 90 чисел, нужно 7 бит (2^7=128). Значит каждое двузначное число несёт 7 бит информации
2^9 = 512 - чтоб закодировать 512 номеров страниц, нужно 9 бит. Сообщение о местопоожении закладки содержит 9 бит
Qw - к-во белых банок Qb - к-во синих банок Qr - к-во коричневых банок Iw=log2(1/Рw) 2= log2(1/Pw) 1/Pw=4 Pw=1/4 - вероятность расхода белой банки; N = Qw/Pw = 8/(1/4) = 32 - банoк с краской было всего Qr = N - Qw – Qb = 32 – 8 – 8 = 16 - банок коричневой краски
Пусть вероятности того, что выпадет определённая грань, будут такие: р1 = 1/2, р2 = 1/4, р3 = 1/8, р4 = 1/8, тогда к-во информации, получаемой после одного из этих событий, рассчитывается по формуле Шеннона: (бит).
Program Polik1907;
uses crt;
Var
tur:real;
mes:integer;
begin
writeln('');
writeln('* Мы рады приветствовать вас *');
writeln('* в нашем турагентстве *');
writeln('* P O L I K 1 9 0 7 *');
writeln('* ! ! ! *');
writeln('');
writeln();
writeln('Введите базовую стоимость путёвки: ');
readln(tur);
writeln('month Введите номер месяца: ');
readln(mes);
case mes of
1,5,10: writeln('Стоимость вашей путёвки составит ',tur,' рублей');
6,7,8,9: writeln('Стоимость вашей путёвки составит ',tur*1.2,' рублей');
2,3,4,11,12: writeln('Стоимость вашей путёвки составит ',tur*0.8,' рублей');
else writeln('Введите правильный номер месяца');
end;
end.
С бит можно закодировать 2^32 = 4294967296 символов (похоже на ощибку в условии задачи)
С бит можно закодировать2^10 = 1024 вариантов.
1/512 Мбайт = (1024*1024)/512 байт = 2048 байт.
2048/2048 = 1 байт - нужен для кодировки одного символа
1 байт = 8 бит - информационный вес одного символа
С бит можно закодировать 2^8 = 256 символов - это и есть размер алфавита
Всего двузначных чисел 90. Чтоб закодировать 90 чисел, нужно 7 бит (2^7=128). Значит каждое двузначное число несёт 7 бит информации
2^9 = 512 - чтоб закодировать 512 номеров страниц, нужно 9 бит. Сообщение о местопоожении закладки содержит 9 бит
Qw - к-во белых банок
Qb - к-во синих банок
Qr - к-во коричневых банок
Iw=log2(1/Рw)
2= log2(1/Pw)
1/Pw=4
Pw=1/4 - вероятность расхода белой банки;
N = Qw/Pw = 8/(1/4) = 32 - банoк с краской было всего
Qr = N - Qw – Qb = 32 – 8 – 8 = 16 - банок коричневой краски
Пусть вероятности того, что выпадет определённая грань, будут такие:
(бит).
р1 = 1/2,
р2 = 1/4,
р3 = 1/8,
р4 = 1/8,
тогда к-во информации, получаемой после одного из этих событий, рассчитывается по формуле Шеннона: