Program Pr1;
uses crt;
var mas:array[1..15] of integer;
i,max,min,b,v:integer;
Begin
clrscr;
for i:=1 to 15 do mas[i]:=random(10);
for i:=1 to 15 do write(mas[i]);
max:=0;
min:=100000;
b:=0;
for i:=1 to 15 do begin
if mas[i]>max then max:=i;
if mas[i]<min then min:=i;
end;
if max>min then for i:=min to max div 2 do begin
v:=mas[max-b];
mas[max-b]:=mas[i];
mas[i]:=v;
b:=b+1;
end
else for i:=max to min div 2 do begin
v:=mas[min-b];
mas[min-b]:=mas[i];
mas[i]:=v;
b:=b+1;
end;
writeln();
for i:=1 to 15 do write(mas[i]);
end.
Объяснение:
1.
Определяем количество символов в сообщении, для этого количество символов умножаем на количество страниц:
128 х 4 = 512 символов.
Находим сколько информации отводится на кодирование 1 символа:
0,125 Кбайт х 1024 = 128 байт или 128 х 8= 1024 бита всего в сообщении
1024 бита : 512 символов = 2 бита на 1 символ
Находим количество символов в алфавите по формуле N = 2^i:
N=2²=4
Мощность алфавита составляет 4 символа.
2.
Количество пирожков с вишней К1=2
Всего пирожков в корзине N=4+10+2+4=20
Вероятность выбора пирожка с вишней составляет
р1=К1/N=2/20=0,1
Теперь вычислим количество информации, содержащееся в сообщении, что Маша выбрала пирожок с вишней:
I1=log₂ (1/р1)=log₂(1/0,1)=log₂ 10=3,322 бита ≈4 бита (поскольку бит- минимальная единица информации и число бит не может быть дробным)
3.
2^i=N, где N - объём информации, а i - кол-во бит, которым кодируется единица информации. N=15*5=75
2^i=75
i=log₂ 75=6,23 бита ≈ 7 бит
begin
var c:=random(1,16);
case c of
1,5,7,9,11,13,15: writeln(c,' - Красный');
2,4,6,8,10,12,14,16: writeln(c,' - Чёрный');
else writeln(c,' - Зелёный');
end;
end.
Пример:
7 - Красный