В этой проге 1,2,3 program p1; uses crt; var a:array [1..10] of integer; i,k,s,p,min,max,k2:integer; begin P:=1; s:=0; for i := 1 to 10 do begin a[i]:= random(31); write(a[i]:4); end; writeln; min:=a[1]; max:=a[1];
for i:=1 to 10 do begin
If min>a[i] then begin min:=a[i]; k:=i; end;
s:=a[i]+s; p:=a[i]*p;
If max<a[i] then max:=a[i]; K2:=i; end; writeln('МИнимальное число:',min,' номер :',k); writeln('Сумма :',s,' Произведение :',p); for i:=1 to 10 do begin If a[i] <> max then write(a[i]:3) else write(' 999'); end; writeln; writeln('Максимальное число :',max,' номер ',k2); end.
Вот 4; program p2; uses crt; var a:array [1..10] of integer; i,p:integer; begin P:=1; for i := 1 to 10 do begin a[i]:= random(60)-30; write(a[i]:4); end; writeln; p:=1; for i:=1 to 10 do begin If a[i] < 0 then p:=p*a[i]; ; end; writeln('Произведение :',p); end.
1. После получения сообщения о номере пути был сделан выбор 1 из 8, т.е. неопределенность информации о номере пути уменьшилась в 8 раз. Логарифм по основанию 2 от 8 равен 3, следовательно мы получили 3 бита информации.
2. от 10 до 16
3. 6 бит
4. 30*70=2100 2100*5=10500
5. По формуле 2^b>=A (где A-мощность алфавита, b-количество бит, приходящееся на 1 символ). 2^b>=256 b=8 бит=1 байт на символ 1/32 мб=32 кб=32768 байт Так как каждому байту соответствует 1 символ, ответ 32768. ответ: 32768
6. Запишем условие: К=2048, I-1/512 Mб, i-? решение: из формулы I=K*i выразим i - i=I/K выразим информационный объем I в битах: I=1/512*1024*1024*8=16384 бит вычислим i=I/K=16384/2048=8 бит если i=8 бит, то мощность алфавита равна N=256 символов (т.к. 2 в 8 степени равно 256) ответ : 256
program p1;
uses crt;
var a:array [1..10] of integer;
i,k,s,p,min,max,k2:integer;
begin
P:=1;
s:=0;
for i := 1 to 10 do begin
a[i]:= random(31);
write(a[i]:4);
end;
writeln;
min:=a[1];
max:=a[1];
for i:=1 to 10 do begin
If min>a[i] then begin
min:=a[i];
k:=i;
end;
s:=a[i]+s;
p:=a[i]*p;
If max<a[i] then
max:=a[i];
K2:=i;
end;
writeln('МИнимальное число:',min,' номер :',k);
writeln('Сумма :',s,' Произведение :',p);
for i:=1 to 10 do begin
If a[i] <> max then
write(a[i]:3)
else write(' 999');
end;
writeln;
writeln('Максимальное число :',max,' номер ',k2);
end.
Вот 4;
program p2;
uses crt;
var a:array [1..10] of integer;
i,p:integer;
begin
P:=1;
for i := 1 to 10 do begin
a[i]:= random(60)-30;
write(a[i]:4);
end;
writeln;
p:=1;
for i:=1 to 10 do begin
If a[i] < 0 then
p:=p*a[i]; ;
end;
writeln('Произведение :',p);
end.
2. от 10 до 16
3. 6 бит
4. 30*70=2100 2100*5=10500
5. По формуле 2^b>=A (где A-мощность алфавита, b-количество бит, приходящееся на 1 символ). 2^b>=256 b=8 бит=1 байт на символ 1/32 мб=32 кб=32768 байт Так как каждому байту соответствует 1 символ, ответ 32768. ответ: 32768
6. Запишем условие: К=2048, I-1/512 Mб, i-? решение: из формулы I=K*i выразим i - i=I/K выразим информационный объем I в битах: I=1/512*1024*1024*8=16384 бит вычислим i=I/K=16384/2048=8 бит если i=8 бит, то мощность алфавита равна N=256 символов (т.к. 2 в 8 степени равно 256)
ответ : 256
7. 2^i= 1/P P=1/4 N=100/4=25
ответ:25
8. Дано: N(ч) = 8; N(б) = 24. Найти: i(ч) = ? Решение: 1) N = 8 + 24 = 32 — всего шаров. 2) р(ч) = 8/32 =1/4 — вероятность доставания черного шара. 3) i(ч) = log2 ( 1/(1/4)) = 2 бита.
ответ: 2 бита.
9. 100010 100000000 1000 101101100 1010000001