Задача 1. Несжатое растровое изображение размером 64 х 512 пикселей занимает 32 Кб памяти. Каково максимально возможное число цветов в палитре изображения?
Задача 2. Вычислите необходимый объём видеопамяти для графического режима, если разрешение экрана монитора составляет 1024 х 768 пикселей, глубина цвета 24 бита.
Задача 3. Какой объём видеопамяти необходим для хранения графического изображения при разрешении монитора 256 х1024 пикселей, где каждая точка может иметь один из 512 цветов?
Задача 4. 32-цветный рисунок содержит 10 Кбайт информации. Определите количество пикселей в этом рисунке?
Задача 5. Для хранения изображения размером128 х 128 точек выделено 16Кбайта памяти. Определите какое максимальное число цветов допустимо использовать в этом случае.
Задача 6.(бонус) В процессе преобразования растрового графического изображения количество цветов уменьшилось с 262144 до 16. Во сколько раз уменьшится объём памяти?
t = 10;// количество чисел в массиве
var
a: array[1..t] of integer;
i, min, k, tmp, klv, z: integer;
b: boolean;
begin
for i := 1 to t do
a[i] := random(10) + 1; //Рандом чисел от 1 до 10
writeln('Массив:');
for i := 1 to t do
write(' ', a[i]:2);
writeln;
for i := 1 to t - 1 do
for k := i + 1 to t do
if a[i] > a[k] then
begin
tmp := a[k];
a[k] := a[i];
a[i] := tmp;
end;
writeln('После сортировки:');
for i := 1 to t do
write(' ', a[i]:2);
writeln;
klv := 0;
writeln('Введите число X:');
readln(z);
for i := 1 to t do
if a[i] = z then
begin
b := true;
inc(klv);
end;
if b then
begin
writeln('Число ', z, ' встречается ', klv, ' раз(а).');
end;
if b = false then writeln('Число ', z, ' не встречается.');
end.