var mas:array[0..9] of integer; i,max,min,k:integer; arifm:real; begin k:=0; arifm:=0; Randomize; for i:=0 to 9 do mas[i]:=Random(15); for i:=0 to 9 do write(mas[i],' '); {poisk max} max:=mas[0]; for i:=1 to 9 do if max<mas[i] then max:=mas[i]; {poisk min} min:=mas[0]; for i:=1 to 9 do if min>mas[i] then min:=mas[i]; arifm:=(max+min)/2; writeln('max: ',max); writeln('min: ',min); writeln('arifm: ',arifm:0:3); for i:=0 to 9 do if mas[i]<arifm then inc(k); writeln('k: ',k); readln; end.
Объём информации о чём? Если о количестве сделанных ходов, то это 15=Fh, то есть достаточно 4бит(полубайта), но, подозреваю, что объём совсем не этой информации требуется найти. Уточни, какой.
Иначе "пойди туда, не знаю, куда; принеси то, не знаю, что". Не в сказке ж живём.
Да, ещё раз почитал, может речь идет о последовательности ходов и её объёме?
В этом случае всё просто - объём равен 15*n, где n-количество байт на один ход.
Ячейку можно кодировать двумя разными
1. последовательно их перенумеровав. В этом случае макс. номер будет 24(если нумеровать с 0). Так как 2^4 <24< 2^5, то для такой нумерации потребуется 5 бит.
2. Указавая строку,столбец, каждая из которых находится в интервале (1,5), ну или (0,4)
на что потребуется 3 бита, а на пару 6 бит.
Таким образом экономней.
И запись 15 ходов можно поместить в 15*5=75бит= 10байт
i,max,min,k:integer;
arifm:real;
begin
k:=0;
arifm:=0;
Randomize;
for i:=0 to 9 do
mas[i]:=Random(15);
for i:=0 to 9 do
write(mas[i],' ');
{poisk max}
max:=mas[0];
for i:=1 to 9 do
if max<mas[i] then
max:=mas[i];
{poisk min}
min:=mas[0];
for i:=1 to 9 do
if min>mas[i] then
min:=mas[i];
arifm:=(max+min)/2;
writeln('max: ',max);
writeln('min: ',min);
writeln('arifm: ',arifm:0:3);
for i:=0 to 9 do
if mas[i]<arifm then
inc(k);
writeln('k: ',k);
readln;
end.
Очень нечётко сформулировано!
Объём информации о чём? Если о количестве сделанных ходов, то это 15=Fh, то есть достаточно 4бит(полубайта), но, подозреваю, что объём совсем не этой информации требуется найти. Уточни, какой.
Иначе "пойди туда, не знаю, куда; принеси то, не знаю, что". Не в сказке ж живём.
Да, ещё раз почитал, может речь идет о последовательности ходов и её объёме?
В этом случае всё просто - объём равен 15*n, где n-количество байт на один ход.
Ячейку можно кодировать двумя разными
1. последовательно их перенумеровав. В этом случае макс. номер будет 24(если нумеровать с 0). Так как 2^4 <24< 2^5, то для такой нумерации потребуется 5 бит.
2. Указавая строку,столбец, каждая из которых находится в интервале (1,5), ну или (0,4)
на что потребуется 3 бита, а на пару 6 бит.
Таким образом экономней.
И запись 15 ходов можно поместить в 15*5=75бит= 10байт
Или всё же не это имелось в виду?