Объем файла : С=t*b*N, где С- Объем звукозаписи в байтах, t - время в сек., b- разрядность в байтах, N - частота дискретизации в Гц или 1/сек.
С= 60*(16/8)*44000 = 5280000 байт = 5156 КБайт = 5,03 Мбайт
Продолжительность звукозаписи из той же формулы:
t=C/b*N C- Объем диска в байтах. b- разрядность в байтах, t- время в сек.
t=(700*1024*1024)/(16/8)*44000= 8340,94 сек = 139 мин.
N=s+n
N=s-n
N=sn
Как уровнение
<em>// PascalABC.NET 3.2, сборка 1379 от 21.01.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var m:=ReadInteger('Количество строк в матрице:');
var n:=ReadInteger('Количество столбцов в матрице:');
Writeln('*** Исходная матрица [',m,',',n,'] ***');
var a:=MatrRandom(m,n,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
var b:=a.Rows.SelectMany(x->x).ToArray;
var mx:=b.IndexMax; var mn:=b.IndexMin;
Swap(a[mx div n,mx mod n],a[mn div n,mn mod n]);
Writeln('*** Матрица-результат ***'); a.Println(4);
end.
<u>Пример</u>
Количество строк в матрице: 5
Количество столбцов в матрице: 6
*** Исходная матрица [5,6] ***
22 72 95 -18 48 15
-25 72 73 45 -62 75
49 95 -32 20 66 48
55 7 57 -98 -8 94
78 50 -49 73 0 -74
------------------------
*** Матрица-результат ***
22 72 -98 -18 48 15
-25 72 73 45 -62 75
49 95 -32 20 66 48
55 7 57 95 -8 94
78 50 -49 73 0 -74
C:\документы\учёба\диплом.doc
C:\документы\хобби\документ.xls
C:\документы\хобби\документ.txt
