ОЧЕНЬ Постройте таблицу истинности для логического выражения: X&¬YvZ. Выпишите варианты значений переменных, для которых выражение ложно * Постройте таблицу истинности для логического выражения: (AvB)&(¬Av¬B). Выпишите варианты значений переменных, для которых выражение ложно *
Постройте таблицу истинности для логического выражения: (AvB)&(¬Av¬B). Выпишите варианты значений переменных, для которых выражение ложно *
Постройте таблицу истинности для логического выражения: (AvB)&(¬A&¬B). Выпишите варианты значений переменных, для которых выражение истинно

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

Объяснение:

Program N70231806_1;
var a:array[ 1 .. 10 ] of shortint;
i:byte;
t:shortint;
begin
randomize;
writeln('Исходный массив: ');
for i := 1 to 10 do
begin
a[ i ] := random(21) - 10;
write(a[ i ]:4)
end;
writeln;
t := a[ 10 ];
for i := 10 downto 2 do
a[ i ] := a[ i - 1 ];
a[ 1 ] := t;
writeln('Результат: ');
for i := 1 to 10 do
write(a[ i ]:4);
readln
end.

2)
program N70231806_2;
var a:array[ 1 .. 12 ] of shortint;
i, j:byte;
t:shortint;
begin
randomize;
writeln('Исходный массив: ');
for i := 1 to 12 do
begin
a[ i ] := random(25) - 10;
write(a[ i ]:4)
end;
writeln;
for j := 1 to 4 do
begin
t := a[ 12 ];
for i := 12 downto 2 do
a[ i ] := a[ i - 1 ];
a[ 1 ] := t
end;
writeln('Результат: ');
for i := 1 to 12 do
write(a[ i ]:4);
readln
end.