Какой объём памяти необходим для представления одноминутного фильма, если пространственное разрешение монитора равно 1024х768 пикселей, палитра состоит из 65536 цветов и скорость смены кадров:
равна 24 кадра в секунду? ответ введите в числовой форме, в мегабайтах.

👇

Открыть все ответы

Ответ:

Асият27

01.04.2020

1.Рассчитать объём видеопамяти для хранения одной картинки экрана, если разрешающая точек, глубина цвета 24 бита/пиксель.

2. Рассчитать объём видеопамяти для хранения одной картинки экрана, если разрешающая точек, глубина цвета 16 бит/пиксель.

3.Цветное изображение имеет размер 10*10 точек. Используется палитра 256 цветов. Найти объём видеопамяти, хранящей это изображение.

4.Файл, содержащий чёрно- белый квадратный рисунок, имеет объём 200 байт. Оцените, из скольких точек он состоит.

5. 256-цветный рисунок содержит 1 Кбайт информации. Из какого количества точек он состоит?

6.Сканируется цветное изображение размером 10*10 см. Разрешающая сканера 600 dpi. Глубина цвета 32 бита/точку. Какой информационный объём будет иметь полученный графический файл?

7.На диске книга занимает 20Мб. Всего в книге 880 страниц. Часть страниц – это цветные иллюстрации в 4-ной палитре и в формате 320*640 пикселей (одна иллюстрация – одна страница). Количество страниц с текстом на 80 больше, чем с иллюстрациями. Сколько символов на одной странице с текстом?

4,4(7 оценок)

Ответ:

olegtoda

01.04.2020

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

begin
var st1:=new Stack<integer>;
foreach var t in Seq(2,13,20,18,1) do st1.Push(t);
Write('Стек1: '); st1.Println;
var st2:=new Stack<integer>;
foreach var t in Seq(9,11,10,8,4) do st2.Push(t);
Write('Стек2: '); st2.Println;
var st3:=new Stack<integer>;
while st1.Count+st2.Count>0 do begin
    while st1.Count>0 do begin
      var k:=st1.Pop;
      if k.IsEven then begin
        st3.Push(k);
        break
        end
      end;
    while st2.Count>0 do begin
      var k:=st2.Pop;
      if k.IsOdd then begin
        st3.Push(k);
        break
        end
      end
    end;
Write('Стек3: '); st3.Println;
end.

(pascal) из двух стеков, создать новый стек: элементы брать по-очерёдно из исходных стеков из первог