1. рассчитайте объём памяти, необходимой для представления трехминутного фильма на экране монитора с пространственным разрешением 1280 x 1024 пикселей с палитрой из 4096 цветов (чтобы смена кадров не была заметна, нужно проецировать на экран 16 кадров в секунду 2. вычислите, какое количество информации содержит получасовой цветной фильм, если один его кадр содержит 512 кбайт информации, а за 1 секунду сменяется 24 кадра

Информационный объем фильма I определим по формуле:

I=t*k*i*n, где t- время видео(с), k-количество пикселей экрана, i- глубина цвета (бит), n- частота обновления экрана (кадр/с.).

Глубину цвета i определяется из соотношения N=2^i, где N- количество цветов в палитре.

i=㏒₂N= ㏒₂4096= 12 бит

I=(3*60)*(1280*1024)*12*16/(8*1024*1024*1024)= 5,27 Гбайт

Задача 2.

Один кадр содержит 512 Кбайт.  За секунду сменяется 24 кадр, значит объем информации за секунду: 512*24= 12288 Кбайт= 12 Мбайт
Умножив это значение на продолжительность фильма получим сколько информации содержит весь фильм
12*(30*60)= 21600 Мбайт= 21,09 Гбайт

Для начала составим уравнения перемещения:

S0 = (V0+V1)*t0

S1 = V1*(t0+4)

По условию: S0 = S1

Значит:

(V0+V1)*t0 = V1*(t0+4) = V1*t0+4V1

(V0+V1)*t0 - V1*t0 = V0*t0 = 4V1

t0 = 4*V1÷V0

Так как движутся в одном напралвении: V0 > 0

Отсюда видно, что зависимость обратно пропорциональная. И так как ограничения на скорость V0 в условии не задано, то можно подобрать скольугодно большую скорость, такую, что время t0 будет < 2.

Проверим в табличном процессоре.

Создадим документ со следующей структурой (рисунок 1).

Выставим V1 согласно условиям. V0 изначально пусть будет = 1. (рисунок 2)

Проведём поиск решений, оптимизируя время и изменяя скорость V0, со следующими ограничениями (рисунок 3)

В результате табличный процессор сообщает, что время может быть сколь угодно маленьким. (рисунок 4).

PascalABC.NET 3.7:

###RS.AdjacentGroup.SelectMany(x → x.Len >= 3 ? x.Len + x[0] : x.Str).Pr

Пояснение:

RS - ReadString: Возвращает значение типа string, введенное с клавиатуры.

AdjacentGroup: Группирует одинаковые подряд идущие элементы, получая последовательность массивов.

SelectMany: Проецирует каждый элемент последовательности в новую последовательность и объединяет результирующие последовательности в одну последовательность.

.Len - .Length: Длина массива.

.Str - .JoinToString: Преобразует последовательность символов в строку, не используя разделитель (при последовательность другого типа данных в качестве разделителя используется пробел).

.Pr - .Print: Выводит последовательность символов на экран, не используя разделитель (при последовательность другого типа данных в качестве разделителя используется пробел).

Пример работы: