На белую доску 6x6 кидают шарики с синей краской. Шарик, попадая на некоторую клетку, красит её и всех её соседей по стороне. Каким наименьшим числом шариков можно покрасить всю доску целиком,
Сначала выведем нужную формулу.а) Определим объем памяти, необходимый для хранения 1с звучания.Частота дискретизации 44,1 кГц означает, что за 1с делается 44100 отсчетов (измерений) уровня звукового сигнала. Глубина кодирования 24 бита = 24/8 = 3 байта означает, что для хранения одного отсчета в одном канале потребуется 3 байта. В режиме стерео используется два канала, поэтому количество байт, необходимое для одного отсчета составит 2×3=6 байт. Тогда для 1с звучания потребуется 44100×6 = 264600 байт.
Предлагается следующий алгоритм. 1. Ввести время записи в минутах n. 2. Перевести минуты в секунды, умножив n на 60. 3. Получить размер файла в байтах, умножив результат (2) на 264600. 4. Перевести результат в мегабайты, поделив результат (3) на 1024². 5. Округлить результат (4) до целых в большую сторону. 6. Вывести значение, полученное в (5)
Конечная формула:
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018 Внимание! Если программа не работает, обновите версию!
begin var n:=ReadReal('Введите время записи в минутах'); var v:=Ceil(264600*60*n/1024/1024); // округление "вверх" Writeln('Размер файла ',v,' Мбайт') end.
Один кадр содержит 512 Кбайт. За секунду сменяется 24 кадр, значит объем информации за секунду: 512*24= 12288 Кбайт= 12 Мбайт Умножив это значение на продолжительность фильма получим сколько информации содержит весь фильм 12*(30*60)= 21600 Мбайт= 21,09 Гбайт
Предлагается следующий алгоритм.
1. Ввести время записи в минутах n.
2. Перевести минуты в секунды, умножив n на 60.
3. Получить размер файла в байтах, умножив результат (2) на 264600.
4. Перевести результат в мегабайты, поделив результат (3) на 1024².
5. Округлить результат (4) до целых в большую сторону.
6. Вывести значение, полученное в (5)
Конечная формула:
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadReal('Введите время записи в минутах');
var v:=Ceil(264600*60*n/1024/1024); // округление "вверх"
Writeln('Размер файла ',v,' Мбайт')
end.