Задача 1.
Объем видео можно рассчитать из формулы:
X=R*i*n*t, где R- количество пикселей на кадр, i-глубина цвета (бит), n-частота кадров (ед/сек.), t- время(сек.)
Глубину цвета i получим из формулы: N=2^i, где N-количество цветов.У нас черно-белое изображение, значит 2 цвета.
2=2^i i=1 бит
R=800*600=480000
Х=480000*1*24*(30*60)= 20736000000 бит = 2592000000 байт= 2531250 Кбайт= 2471,92 Мбайт = 2,4 Гбайт
Ответ: 2,4 Гбайт
Задача 2.
Рассчитаем объем видео:
X=R*i*n*t, где R- количество пикселей на кадр, i-глубина цвета (бит), n-частота кадров (ед/сек.), t- время(сек.)
Х=(600*400)*8*25*(1,5*60)= 4320000000 бит= 540000000 байт= 527343,75 Кбайт= 514,98 Мбайт
Объем звука:
Х=i*n*t*k, где i - глубина кодирования звука (бит), n - частота дискретизации (Гц), t- время (сек.), k- количество каналов.
Глубину кодирования звука определим из формулы:N=2^i, где N- количество уровней громкости
128=2^i i=7
Х=7*32000*(1,5*60)*2= 40320000 бит = 5040000 байт= 4921,88 Кбайт= 4,81 Мбайт
Сложим полученные значения объема видео и звука:
514,98+4,81= 519,79 Мбайт
Ответ: 520 Мбайт
//Pascal
var
A: array [1 .. 5] of integer;
k, buf, i, j: integer;
ArithMean: real;
begin
for i := 1 to 5 do
begin
write('A[', i, '] = '); readln(A[i]);
ArithMean := ArithMean + A[i];
end;
for i := 1 to 5 - 1 do
begin
k := i;
for j := i + 1 to 5 do
if A[j] < A[k] then k := j;
buf := A[i];
A[i] := A[k];
A[k] := buf;
end;
for i := 1 to 5 do write(A[i]:4);
writeln;
writeln('Среднее арифметическое = ', (ArithMean / 5):0:2);
end.
Var
r:real;
Begin
Write('Введите радиус круга: ');ReadLn(r);
WriteLn('Площадь круга: ',Pi*r*r);
WriteLn('Длина окружности: ',2*Pi*r)
End.