Урок "Определение объема графического файла" Задача 2. Какой объем информации занимает черно-белое изображение размером 600 х 800?Решение: 600 х 800 = 480 000 точек 480 000 точек х 1 бит = 480 000 бит480 000 бит / 8 бит / 1024 байт ≈ 58, 59 Кбайтответ: 58, 59 Кбайт Задача 3. Определить объем растрового изображения размером 600 х 800 при глубине цвета 24 бита. Решение: 600 х 800 = 480 000 точек 480 000 точек х 24 бит = 11 520 000 бит11 520 000 бит / 8 бит / 1024 байт = 1406,25 Кбайт / 1024 байт ≈ 1,37 Мбайтответ: ≈ 1,37 Мбайт Задача 3. Определить объем видеопамяти компьютера, который необходим для реализации графического режима монитора с разрешающей и палитрой 65536 цветов.Решение: N = 2i = 65536 i = 16 бит Количество точек изображения равно: 1024 х 768 = 78643216 бит х 786432 = 12582912 бита / 8 бит / 1024 байт = 1536 Кбайт / 1024 байт = 1,5 М байтаответ: 1,5 М байта Задача 4. Определить объем растрового изображения размером 200 х 200 и 256 цветами.Решение: 200 х 200 х 8 бит = 320 000 бит / 8 бит / 1024 байт = 39,0625 Кбайт ≈ 39 Кбайтответ: 39 Кбайт
Var День,Месяц:byte; Begin Write('№ дня = ');ReadLn(День); Var C:=365-День; Write('№ месяца = ');ReadLn(Месяц); Case Месяц of 2:C:=C-31; 3:C:=C-59; 4:C:=C-90; 5:C:=C-120; 6:C:=C-151; 7:C:=C-181; 8:C:=C-212; 9:C:=C-243; 10:C:=C-273; 11:C:=C-304; 12:C:=C-334 End; if (C mod 100>10)and(C mod 100<20) then Write('До нового года осталось ',C,' дней') else Case C mod 10 of 1:Write('До нового года остался ',C,' день'); 2..4:Write('До нового года осталось ',C,' дня'); 0,5..9:Write('До нового года осталось ',C,' дней') End End.
