Некое растровое изображение было сохранено в файле как 256-цветный рисунок. во сколько раз уменьшится информационный объём файла, если это же изображение сохранить как монохромный (чёрно-белый без градаций серого) рисунок? с объяснением

👇

Ответ:

valdi5p0ch22

18.01.2023

По формуле N = 2^i или $i = \lceil {\log_2{N}} \rceil$

(N - кол-во цветов в палитре, i - глубина цвета)

Глубина цвета $i_1 = \lceil {\log_2{256}} \rceil = 8.0 = 8$ бит (округляем в большую сторону так как кусками тут быть не может)

Глубина цвета $i_2 = \lceil {\log_2{2}} \rceil = 1.0 = 1$ бит (округляем в большую сторону так как кусками тут быть не может)

Общий вес

I = K * i (K - кол-во пикселей, i - Глубина цвета)

Отношение объемов информации $\frac{I_1}{I_2} = \frac{Ki_1}{Ki_2} = \frac{i_1}{i_2} = \frac{8}{1} = 8.0$ раз

4,5(15 оценок)

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

Ответ:

дима22819

18.01.2023

Var a: byte; b:integer;
Begin
writeln('Введите день месяца');
readln(b);
writeln('Введите номер месяца');
Readln(a);
  Case a of
1: writeln(b,' янавря');
2: writeln(b,' февраля');
3: writeln(b,' марта ');
4: writeln(b,' апреля ');
5: writeln(b,' мая');
6: writeln(b,' июня ');
7: writeln(b,' июля');
8: writeln(b,' августа');
9: writeln(b,' сентября');
10: writeln(b,' октября');
11: writeln(b,' ноября');
12: writeln(b,' декабря');
else writeln('Месяца №', a,'нет');
end;
end.

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

Ответ:

sksool0360figf

18.01.2023

Function Otr(Ax, Ay, Bx, By: real): real;
begin
Otr := sqrt(sqr(Ax - Bx) + sqr(Ay - By))
end;

function Perim(Ax, Ay, Bx, By, Cx, Cy: real): real;
begin
Perim := Otr(Ax, Ay, Bx, By) + Otr(Bx, By, Cx, Cy) + Otr(aX, aY, Cx, Cy);
end;

function Area(Ax, Ay, Bx, By, Cx, Cy: real): real;
var
pp: real;
begin
pp := Perim(Ax, Ay, Bx, By, Cx, Cy) / 2;
Area := sqrt(pp * (pp - Otr(Ax, Ay, Bx, By)) * (pp - Otr(Bx, By, Cx, Cy)) *
(pp - Otr(Ax, Ay, Cx, Cy)))
end;

procedure Dist(Px, Py, Ax, Ay, Bx, By: real; var D: real);
begin
D := 2 * Area(Px, Py, Ax, Ay, Bx, By) / Otr(Ax, Ay, Bx, By)
end;

var
Px, Py, Ax, Ay, Bx, By, Cx, Cy: real;
d: real;

begin
writeln('Вводите координаты точкек парами чисел: ');
write('P-> ');
readln(Px, Py);
write('A-> ');
readln(Ax, Ay);
write('B-> ');
readln(Bx, By);
write('C-> ');
readln(Cx, Cy);
writeln;
Dist(Px, Py, Ax, Ay, Bx, By, d);
writeln('Расстояние от Р до АВ равно ', d);
Dist(Px, Py, Cx, Cy, Bx, By, d);
writeln('Расстояние от Р до ВC равно ', d);
Dist(Px, Py, Ax, Ay, Cx, Cy, d);
writeln('Расстояние от Р до АC равно ', d)
end.

Тестовое решение:
Вводите координаты точкек парами чисел:
P-> -3 6
A-> 5 8
B-> 9 -4
C-> 8 -2.5

Расстояние от Р до АВ равно 8.22192191643778
Расстояние от Р до ВC равно 4.43760156980184
Расстояние от Р до АC равно 8.24163383692135

4,5(74 оценок)

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

Взаимоотношения

09.04.2021

Как жить одному: советы и рекомендации для современного человека...

Финансы-и-бизнес

04.12.2021

5 шагов проведения анализа экономической целесообразности...

Компьютеры-и-электроника

17.10.2022

Как установить звуковую карту: шаг за шагом...

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