М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Neckbeardicus
Neckbeardicus
12.05.2021 17:07 •  Информатика

Сканируется цветное изображение размером 20 х 15 см. разрешающая сканера 400 х 600 dpi, глубина цвета 3 байта. какой информационный объём будет иметь полученный графический файл? каков минимальный объём видеопамяти необходимый для хранения графич. изображения, занимающего область экрана 800 х 800 точек, где каждая точка может иметь 1 из 256 цветов !

👇
Ответ:
Валерия11188
Валерия11188
12.05.2021
Вспоминаем, что 1 дюйм = 2.54 см, а dpi - это количество пикселей в одном дюйме.
Тогда изображение размером 20×15 см после сканирования будет состоять из (20/2.54×400)*(15/2.54×600) ≈ 11 160 023 пикселей.
При глубин цвета 3 байта файл займет 11 160 023×3 = 33 480 067 байт =
33 480 067/1024² ≈ 31.9 Мб

Цветность 256 = 2⁸ использует 8 бит = 1 байт для хранения информации о точке. Количество точек 800×800 = 640 000 и столько же байт они займут.
Или, в килобайтах, 640 000/1024 = 625 Кбайт
4,8(57 оценок)
Ответ:
anastasiabojko5
anastasiabojko5
12.05.2021
По второму вопросу 640000 байт примерно 640 кбайт
4,8(51 оценок)
Открыть все ответы
Ответ:
KathrynMay
KathrynMay
12.05.2021
1) Var a:integer;
Begin   
       Writeln('Введите число');     
           Readln(a);     
If (a mod 2  = 0) then writeln('Введённое число чётное.') 
 Else writeln('Введённое число чётное'); 
End.

2)  var A,A1,B,B1,C,C1:integer;
Begin   
     a:=4;b:=1;c:=7;   
        Writeln('Дан треугольник со сторонами A=4 B=1 C=7');   
        Writeln('Введите стороны треугольника A,B,C');     
         Readln(A1,B1,C1);     
If (A=A1) and (B=B1) and (C=C1) then writeln('треугольники равны') 
   Else writeln('треугольники не равны'); 
End.

3)var x,y:integer;
Begin 
   write('Введите первый промежуток: ');  readln(x); 
      write('Введите второй промежуток: ');  readln(y); 
if x<y then write('Отдаляется')
   else write('Приближается');
end.
4,4(74 оценок)
Ответ:
madoleh
madoleh
12.05.2021
1) Var a:integer;
Begin   
       Writeln('Введите число');     
           Readln(a);     
If (a mod 2  = 0) then writeln('Введённое число чётное.') 
 Else writeln('Введённое число чётное'); 
End.

2)  var A,A1,B,B1,C,C1:integer;
Begin   
     a:=4;b:=1;c:=7;   
        Writeln('Дан треугольник со сторонами A=4 B=1 C=7');   
        Writeln('Введите стороны треугольника A,B,C');     
         Readln(A1,B1,C1);     
If (A=A1) and (B=B1) and (C=C1) then writeln('треугольники равны') 
   Else writeln('треугольники не равны'); 
End.

3)var x,y:integer;
Begin 
   write('Введите первый промежуток: ');  readln(x); 
      write('Введите второй промежуток: ');  readln(y); 
if x<y then write('Отдаляется')
   else write('Приближается');
end.
4,5(50 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ