Дано:
Разрешающая способность сканера 600 х 1200 dpi.
Размер 10см x 10см.
Глубина цвета - 2байта.
Найти:
Каков информационный объём этого файла?
Решение:
Вначале переводим глубину цвета из байт в биты
2 байта * 8бит в байте = 16 бит
Вычисляем разрешение сканера в 1 дюйме квадрат
600*1200 = 720 000 пикселей в 1 дюйм^2
Переводим размер картинки из квадратных сантиметров в квадратные дюймы.
10см = 3.937дюйма
10*10=100 см^2 = 3.937 * 3.937 = 15,5 дюйм^2
Вычисляем количество пикселей в изображении
15,5 дюйм^2 * 720 000 пикселей в 1 дюйм^2 = 11 160 000 пикселей
Информационный объём вычисляем по формуле
количество пикселей * глубину цвета =
11 160 000 пикселей * 16 бит = 178 560 000 бит.
Переводим в байты делением на 8.
22 320 000 байт
или же делим на 1024*1024 чтобы получить количество мегабайт
21,29 Мегабайт
Ответ:
Информационный объём сканированного изображения =
22 320 000 байт или 21,29 Мегабайт
<u>PascalABC.NET 3.3.5, сборка 1648 от 31.03.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
ReadlnString.ToWords.JoinIntoString(' ').Println
end.
Мощность алфавита - это N, а N=2^i
i-это один символ из алфавита.
В твоей задаче известно, что i=9 бит, а значит N = 2^9= 512
Ответ: 512
^ - это степень
Sub Main() Dim x As Single Dim y As Single
Console.WriteLine("Введите координаты точки x ") x = Console.ReadLine() Console.WriteLine("Введите координаты точки y ") y = Console.ReadLine() If (x <= 4 And y <= 4 And y >= 4 - x) Or (y <= -4 - x And y >= -4 And x >= -4) Then Console.WriteLine("Точка принадлежит области") Else Console.WriteLine("Точка не принадлежит области") End If Console.ReadKey() End Sub