размер картинки 1024*768=786432 пикселей. Цветовая гамма каждого пикселя - 200 цветов, значит цвет будем кодировать 8 битами (2⁸=256 значений, а 7 битов будет мало, 2⁷=всего 128 значений), то есть 1 байтом кодируем цвет. Тогда в одном кадре будет 786432 * 1=786342 байта или 786342/1024=768 кб.
Кадры меняются 25 раз в секунду в течении 50 секунд. Всего их сменится 25*50=1250 шт. Тогда общий объем информации будет 768 кб*1250=960000 кб или 960000/1024=937,7 мб.
50-секундный ролик объемом почти в гигабайт.
Обычно видеоролики не хранят в таком формате, очень большой объем, а используют разные хитрые кодеки, сжимающие изображение, за счет потерь в качестве.
//PascalABC.NET //Постройте алгоритм и составьте программу, по которой будет реализован //следующий вариант сценарий: компьютер запрашивает номер дня недели, //после ввода компьютер сообщает название этого дня (типо если ввели //1 это понедельник 3 - среда)
type Arr = array [0..6] of string;
begin var DN: Arr := ('Воскресенье', 'Понедельник', 'Вторник', 'Среда', 'Четверг', 'Пятница', 'Суббота'); write('Введите порядковый номер дня недели: '); var n := ReadlnInteger; write('Этот день называется ', DN[n mod 7]) end.
937,7 мб
Объяснение:
размер картинки 1024*768=786432 пикселей. Цветовая гамма каждого пикселя - 200 цветов, значит цвет будем кодировать 8 битами (2⁸=256 значений, а 7 битов будет мало, 2⁷=всего 128 значений), то есть 1 байтом кодируем цвет. Тогда в одном кадре будет 786432 * 1=786342 байта или 786342/1024=768 кб.
Кадры меняются 25 раз в секунду в течении 50 секунд. Всего их сменится 25*50=1250 шт. Тогда общий объем информации будет 768 кб*1250=960000 кб или 960000/1024=937,7 мб.
50-секундный ролик объемом почти в гигабайт.
Обычно видеоролики не хранят в таком формате, очень большой объем, а используют разные хитрые кодеки, сжимающие изображение, за счет потерь в качестве.
//Постройте алгоритм и составьте программу, по которой будет реализован
//следующий вариант сценарий: компьютер запрашивает номер дня недели,
//после ввода компьютер сообщает название этого дня (типо если ввели
//1 это понедельник 3 - среда)
type Arr = array [0..6] of string;
begin
var DN: Arr := ('Воскресенье', 'Понедельник', 'Вторник', 'Среда',
'Четверг', 'Пятница', 'Суббота');
write('Введите порядковый номер дня недели: ');
var n := ReadlnInteger;
write('Этот день называется ', DN[n mod 7])
end.