ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ
Матем ИЗ "...\Отделы\Числа\",
Приём ИЗ "...\Отделы\Обмен\",
Вывод ИЗ "...\Отделы\Обмен\";
ПЕР
a: ДОСТУП К РЯД ИЗ РЯД ИЗ ЦЕЛ;
n, m, сч1, сч2: ЦЕЛ;
элементов: ЦЕЛ;
УКАЗ
Вывод.Цепь("Введите n (>=5): ");
n := Приём.Число();
Вывод.Цепь("^Введите m (>= 5): ");
m := Приём.Число();
ЕСЛИ (n < 5) ИЛИ (m < 5) ТО
Вывод.Цепь("^Некорректные параметры.")
ИНАЧЕ
СОЗДАТЬ(a, n, m);
ОТ сч1 := 0 ДО n - 1 ВЫП
ОТ сч2 := 0 ДО m - 1 ВЫП
a[сч1, сч2] := УЗК(ВШИРЦЕЛ(Матем.случ() * 10))
КОН
КОН;
элементов := 0;
ОТ сч1 := 0 ДО n - 1 ВЫП
ЕСЛИ a[сч1, 3] < 5 ТО УВЕЛИЧИТЬ(элементов) КОН
КОН;
Вывод.ЧЦел("^Элементов 4-го столбца, меньших 5: %d.", элементов, 0, 0, 0)
КОН
КОН Задание.
Палитра 256 цветов.
Размер 10x10 пикселей.
Найти:
Каков информационный объём этого файла?
Решение:
Вначале определяем глубину цвета по формуле
2^i = N. 2^i = 256 по условию, отсюда i = 8 бит.
Вычисляем общее количество пикселей в картинке:
10*10 = 100 пикселей
Информационный объём равен
100 пикселей * 8 бит = 800 бит.
Дано:
разрешающая экрана 1440*900 точек
глубина цвета 32 бит
Найти:
объём графического изображения
Решение:
Вначале вычисляем общее количество пикселей в картинке:
1440 * 900 = 1 296 000 пикселей.
Информационный объем вычисляется по формуле
Объем = количество пикселей * глубина цвета
Объем = 1 296 000 * 32 бит = 41 472 000 бит
Делим на 8 бит в байте, 41 472 000 / 8 = 5 184 000 байт