Кодирование информации провести кодирование ф. и. о по - : а) равномерное кодирование б) кодирование по методу шенона - фано в) кодирование по методу хаффмана г) арифметическое кодирование. записать полученный код через внутреннее представление вещественного числа в компьютере. д) коды хемминга возьмите любое ф. и. о, я просто хочу понять на примере что надо позязя

👇

Открыть все ответы

Ответ:

muxametzhanovad

16.09.2020

1. В цветовой модели RGB для кодирования одного пикселя используется 3 байта. Фотографию размером 2048x1536 пикселей сохранили в виде несжатого файла с использованием RGB-кодирования. Определите размер получившегося файла.

Дано: Решение:

х*у=2048*1536 V= x*y*i=2048*1536*3байта= 9437184 байта=9216 Кбайт = 9 Мбайт

i=3 байта

V – ?

2. Для хранения растрового изображения размером 128*128 пикселей отвели 4 килобайта памяти. Каково максимально возможное число цветов в палитре изображения?

Решение: i=V/x*y=4*1024*8/(128*128)=2 N=4

3. Укажите минимальный объем памяти (в килобайтах), достаточный для хранения любого растрового изображения размером 64*64 пикселя, если известно, что в изображении используется палитра из 256 цветов. Саму палитру хранить не нужно.

V= 64*64*8=32768 бит = 4096 байт = 4 Кбайт

ответ: 4 Кбайт

4. Для хранения растрового изображения размером 64*64 пикселя отвели 512 байтов памяти. Каково максимально возможное число цветов в палитре изображения?

Дано: Решение:

х*у= 64*64 V=x*y*i; i=V/(x*y)=512*8 бит/(64*64)= 4096 бит/4096=1бит

V= 512 байтов N=2i =2

Объяснение:

4,4(44 оценок)

Ответ:

vasx

16.09.2020

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
type
Matrix=array[,] of integer;

procedure MatPrint(a:Matrix);
begin
var m:=Length(a,1)-1;
for var i:=0 to Length(a,0)-1 do begin
    for var j:=0 to m do Write(a[i,j]:4);
    Writeln
    end
end;

function IsEqual(a:Matrix; col:integer):boolean;
begin
var s:=sign(a[0,col]);
for var i:=1 to Length(a,0)-1 do s+=sign(a[i,col]);
if (s=0) then Result:=(a[0,col]<>0)
else Result:=false
end;

procedure DeleteCol(var a:Matrix; col:integer);
begin
var n:=Length(a,0)-1;
var m:=Length(a,1)-1;
for var j:=col+1 to Length(a,1)-1 do
    for var i:=0 to n do a[i,j-1]:=a[i,j];
SetLength(a,n+1,m)
end;

begin
var n:=ReadInteger('Строк:');
var m:=ReadInteger('Столбцов:');
var a:=MatrixRandom(n,m,-99,99);
Writeln('Исходная матрица');
MatPrint(a);
for var j:=Length(a,1)-1 downto 0 do
    if IsEqual(a,j) then DeleteCol(a,j);
Writeln('Результирующая матрица');
MatPrint(a);
end.

Тестовое решение
Строк: 8
Столбцов: 10
Исходная матрица
-3 -82 -25 -22 65   1 79 -67 -64 -82
17 36 48 -32 51 11 43   9 -35   4
-10 -5 80 82 -24 66 -12 -58 50 -94
52 70 53 85 -32 -59 46 57 -84 -44
81 71 -55 37 46 -15 -61 25 22 -7
-49 98 -42 -18 -44 -97 -63 -7 -98 99
-86 37 -17 -69 -35 46 82 62 99 11
65 85 -7 -90 23 19 -50 -56 -64 91
Результирующая матрица
-82 -25 -22   1 -64
36 48 -32 11 -35
-5 80 82 66 50
70 53 85 -59 -84
71 -55 37 -15 22
98 -42 -18 -97 -98
37 -17 -69 46 99
85 -7 -90 19 -64

4,7(16 оценок)

Это интересно:

Стиль-и-уход-за-собой

28.08.2020

Как правильно расчесывать волосы: события волосистой жизни...

Здоровье

02.05.2020

Не мучайтесь болью: Как эффективно и безопасно растворить камни в почках...

Образование-и-коммуникации

28.08.2021

Как написать описательный абзац: эффективные советы и примеры...

Образование-и-коммуникации