Задача №1 Формула , где N-количество цветов. i - кол-во бит на одну точку. 8=2^3 16=2^4 256=2^8
Задача №2 265(возможно опечатка), тк нужно будет пользоваться другой формулой: Подставив все получим:
i=8.0498, но тк память не может быть вещественной, то i=8 бит=1 байту - количество пикселей байт ответ: 480000 байт или 468,75 Кбайт
Задача №3 Формула A = D*t*i, где D - частота дискретизации (Гц) t - время звучания или записи звука i - разрядность регистра (разрешение) A - размер аудиофайла Если звук стерео нужно еще домножить на 2. Подставив все в формулу получим: A=48*1000*16*10*2 A=1536*10000 (бит) A=1920*1000 (байт) А= 1875 (Кбайт) ответ: 1875 Кбайт
begin var n := ReadlnInteger('n = '); var m := ReadlnInteger('m = '); var rand := ReadlnInteger('Для ручного ввода нажмите 0');
if rand = 0 then begin a := new integer[m, n]; for var i := 0 to m-1 do for var j := 0 to n-1 do a[i, j] := ReadlnInteger('a[' + i + ',' + j + '] = '); end else a := MatrixRandom(m, n, 1, 100); Println(a);
var b := ArrGen(n, x -> 1); for var i := 0 to m-1 do for var j := 0 to n-1 do if j mod 2 = 0 then b[j] := b[j] * a[i, j];
b.Where((x, i)-> i mod 2 = 0).SortedDescending().Println(); end.
Формула , где N-количество цветов.
i - кол-во бит на одну точку.
8=2^3
16=2^4
256=2^8
Задача №2
265(возможно опечатка), тк нужно будет пользоваться другой формулой:
Подставив все получим:
i=8.0498, но тк память не может быть вещественной, то i=8 бит=1 байту
- количество пикселей
байт
ответ: 480000 байт или 468,75 Кбайт
Задача №3
Формула A = D*t*i, где D - частота дискретизации (Гц)
t - время звучания или записи звука
i - разрядность регистра (разрешение)
A - размер аудиофайла
Если звук стерео нужно еще домножить на 2.
Подставив все в формулу получим:
A=48*1000*16*10*2
A=1536*10000 (бит)
A=1920*1000 (байт)
А= 1875 (Кбайт)
ответ: 1875 Кбайт
a: array [,] of integer;
begin
var n := ReadlnInteger('n = ');
var m := ReadlnInteger('m = ');
var rand := ReadlnInteger('Для ручного ввода нажмите 0');
if rand = 0 then begin
a := new integer[m, n];
for var i := 0 to m-1 do
for var j := 0 to n-1 do
a[i, j] := ReadlnInteger('a[' + i + ',' + j + '] = ');
end
else a := MatrixRandom(m, n, 1, 100);
Println(a);
var b := ArrGen(n, x -> 1);
for var i := 0 to m-1 do
for var j := 0 to n-1 do
if j mod 2 = 0 then
b[j] := b[j] * a[i, j];
b.Where((x, i)-> i mod 2 = 0).SortedDescending().Println();
end.