Исследовать работу функции abs(y) int(y) sqrt(y) round(y)

1) N -мощность алфавита (кол-во символов в алфавите), находится по формуле N=2^i, где i - информационный вес символа в битах.
32=2^i => i=5 бит

ответ: 5 бит

2) N = 2^i; 16=2^i => i = 4 бит

I (заглавная i) - информационный объём сообщения, находится по формуле:
I = K × i, где K - кол-во символов в сообщении.
I = 50 × 4 = 200 бит

ответ: 200 бит

3) 1/16 мб = 1024 кб × (1/16) = 64 кб = 2^6 кб = 2^16 байт = 2^24 бит

16=2^i => i =4 бит

I = K × i => K = I/i = 2^24/2^2 = 2^22 бита = 2^14 байт = 2^4 кб = 16 кб

ответ: 16 кб

4) 16 = 2^i => i = 4 бит

I = K × i = 384 × 4 = 1536 бит = 1536 ÷ 4 = 192 байт = 192 ÷ 1024 = 0,1875 кб (странгое число, но ладно)

ответ: 0,1875

5) Итак, мощность алфавита до 10 символов. Значит, из формулы N=2^i, i = либо 1, либо 2, либо 3, либо 4. Нам подходит только 2 и 3, так как 3/2 = 1,5, что подходит по условию (учитывая тот факт, что кол-во символов одинаковое, а объём больше в 1,5 раза, то значит и i в первом сообщении больше в 1,5 раза).

N = 2^i
N = 2^3 = 8
N = 2^2 = 4

ответ: в первом алфавите - 8 символов, во втором - 4 символа.

program SortV;

const

 n = 100;   // количество элементов в массиве

 r = 1000;  // максимальное значение числа

 w = 4;     // ширина поля для вывода на экран

var

 a: Array [1..n] of Integer;

 i, j, jmin, atmp: Integer;

begin

 Randomize;

 for i := Low (a) to High (a) do begin

   a [i] := Random (r);

   Write (a [i] :w);

 end;

 for i := Low (a) to High (a) do begin

   jmin := i;

   for j := i + 1 to High (a) do begin

     if a [j] < a [jmin] then             // возрастание и убывание меняется знаком "<" или ">" в этом операторе

       jmin := j;

   end;

   atmp := a [i];

   a [i] := a [jmin];

   a [jmin] := atmp;

 end;

 WriteLn; WriteLn;

 for i := Low (a) to High (a) do begin

   Write (a [i] :w);

 end;

 ReadLn;

end.

program SortU;

const

 n = 100;   // количество элементов в массиве

 r = 1000;  // максимальное значение числа

 w = 4;     // ширина поля для вывода на экран

var

 a: Array [1..n] of Integer;

 i, j, jmax, atmp: Integer;

begin

 Randomize;

 for i := Low (a) to High (a) do begin

   a [i] := Random (r);

   Write (a [i] :w);

 end;

 for i := Low (a) to High (a) do begin

   jmax := i;

   for j := i + 1 to High (a) do begin

     if a [j] > a [jmax] then        // возрастание и убывание меняется знаком "<" или ">" в этом операторе

       jmax := j;

   end;

   atmp := a [i];

   a [i] := a [jmax];

   a [jmax] := atmp;

 end;

 WriteLn; WriteLn;

 for i := Low (a) to High (a) do begin

   Write (a [i] :w);

 end;

 ReadLn;

end.