Курсовая работа: Сжатие данных при передаче изображений
n:= 0;
For j:= 1 to 11 do
Begin
if e[j] = '1' then n:= n + k;
k:= (k/2);
end;
b[i]:=n;
Writeln ('b = ', b[i]);
End;
END.
5. Пример сжатия двухградационного черно-белого изображения по методу АПК
В соответствии с заданием на курсовое проектирование приводится пример сжатия двух строк
| Цвет белый | Цвет черный | Цвет белый | Цвет черный | Цвет белый | Цвет черный | Цвет белый | |
| Число пикселей |
600 |
70 |
591 |
79 |
582 |
88 |
0 |
| Число пикселей |
0 |
72 |
598 |
81 |
589 |
90 |
580 |
При вводе данных чисел в программу получим код:
1 строка:
11111111111 01001011000 01010011110 10011101101 10100111100 11110000010 11111011010 11111011010