Сканируется цветное изображение размером 10, 16×10, 16 дюйм. разрешающая сканера — 1200×1200 dpi, глубина цвета — 4 бита. какой информационный объём будет иметь полученный графический файл? ответ: бит

Количество точек сканируемого изображения = 10,16*1200*10,16*1200
Объем файла = 10,16*1200*10,16*1200*4 бит = 594 579 456 бит

1) Высчитаем количество пикселей в изображении.

128 * 128 = 16384 пикселя.

2) Узнаем информационный вес каждого пикселя.

Формула нахождения информации N = 2i (где N - количество цветов в палитре, i - количество информации в битах, которое несет каждый пиксель).

256 = 28

Один пиксель несет 8 бит информации.

3) Найдем информационный вес изображения.

16384 * 8 = 131072 бита

4) Переведем биты в байты. 1 Байт = 8 битам.

131072 : 8 = 16384 байта.

5) Переведем байты в Кбайты. 1 Кбайт = 1024 байт.

16384 : 1024 = 16 Кбайт.

ответ: объем памяти нужен минимум 16 Кбайт.

1)

var a,b,x,y:longint;

begin

write("Vvedite nachalo i konec otrezka: ");

read(a,b);

write("Vvedite x: ");

read(x);

y:=sqr(x)*x;

if (y>a)and(y<b) then write("Na dannom otrezke znachenie funkcii ravno ",y) else write("Na dannom otrezke net reshenii");

readln

end.

2)

var c,i:byte;

begin

for i:=49 to 215 do

if (i mod 4=0) then c:=c+1;

write("Kolichestvo chisel, kratnyh 4 na zadannom promezhutke ravno ",c);

readln

end.

3)

var i:integer;

p:longint;

for i:=1000 to 9999 do

if (i mod 10=3) then p:=p*i;

write("Proizvedenie chetyrehznachnyh chisel, okanchivaushihsya na 3 ravno ",p);

readln

end.

4)

var i:byte;

c:integer;

begin

for i:=221 to 778 do

if ((i mod 10)=(i div 100)) then c:=c+1;

write("Kolichestvo chisel ravno ",c);

readln

end.

5)

var i:longint;

c:integer;

begin

for i:=10000 to 99999 do

if ((i mod 10)=(i div 10000))and(((i mod 100)div 10)=((i div 1000)mod 10)) then c:=c+1;

write("Kolichestvo chisel ravno ",c);

readln

end.