Курсовая работа: Сжатие данных при передаче изображений

s:= l;

for i:= 1 to 11 do

Begin

if s>=k then Begin

f:= f + '1';

s:= s – k;

end;

else f:= f + '0';

k:= (k/2);

end;

End;

BEGIN

{–сжатие–}

Writeln (' Введите 7 цифр значения яркости элементов строки ');

Readln (a[1], a[2], a[3], a[4], a[5], a[6], a[7]);

f:= «; {начальное значение строки f}

l:= 0;

for i:= 1 to 7 do

Begin

l:= l + a[i];

to_binary;

end;

f:= '11111111111' +f;

Writeln ('Содержимоебуфера', f);

{–восстанавление–}

e:=f;

For i:=1 to7 do Begin

b[i]:=0;

e:= Delete (e, 1,11);