Текстовый файл, записанный в однобайтной кодировке, содержит только 33 заглавные русские буквы, цифры и пробел а) какое минимальное число бит нужно выделить на символ при передаче, если каждый символ кодируется одинаковым числом бит? б) сколько при этом будет занимать заголовок пакета данных? в) при какой минимальной длине текста коэффициент сжатия будет больше 1?

1. первая правая цифра числа показывает число единиц, вторая - число двоек (1·2) , третья - число четверок (2·2), четвертая - число восьмерок (4·2) и т.д. имеем:

111101₂ = 1·1 + 2·0 + 4·1 + 8·1 + 16·1 + 32·1 = 1+4+8+16+32 = 61₁₀

2. число нужно поделить на два, найти остаток. полученный результат снова поделить на два и найти остаток и т.д. остатки, записанные в обратном порядке и есть запись в двоичном исчислении.

65÷2 = 32 (ост.1)

32÷2 = 16 (ост.0) 

16÷2 = 8   (ост.0) 

8÷2 = 4     (ост.0) 

4÷2 = 2     (ост.0) 

2÷2 = 1     (ост.0)

1÷2 = 0     (ост.1)

65₁₀ = 1000001₂     

в цикле sum [i]: =sum+mas[i,j];

uses graphabc;

type fun = function (x: real): real;

function f(x: real): real; begin f: =0.5*x*cos(2*x); end;

// l (logical) - логические координаты// s (screen) - координатыprocedure drawgraph(x1,x2,y1,y2: real; f: fun); var xl,xl0,wl,yl,yl0,hl: real; xs0,ws,ys0,hs: integer; function ltosx(xl: real): integer; begin result: =round(ws/wl*(xl-xl0)+xs0); end; function ltosy(yl: real): integer; begin result: =round(hs/hl*(yl-yl0)+ys0); end; function stolx(xs: integer): real; begin result: =wl/ws*(xs-xs0)+xl0; end; var xi: integer; begin // drawgraph xs0: =0; ys0: =windowheight; ws: =windowwidth; hs: =windowheight; xl0: =x1; yl0: =y1; wl: =x2-x1; hl: =-(y2-y1); moveto(xs0,ltosy(f(stolx(; for xi: =xs0+1 to xs0+ws do lineto(xi,ltosy(f(stolx(; end;

begin // program setwindowcaption('график функции'); drawgraph(-12,12,-23,23,f); end.

номер 4, так как две собаки в этой части не допущены.