Сколько байтов занимает на сd одна минута звукозаписи ( частота дискретизации-44 000, разрядность-16 битов).какова максимальная продолжительность звукозаписи на диске ёмкостью 700 мбайт? с объяснениями
Function IsPrime(n As Integer) As Boolean Dim found As Integer found = n Mod 2 = 0 Dim p As Integer p = 3 Do While Not found And p * p <= n found = n Mod p = 0 p = p + 2 Loop IsPrime = Not found End Function
Sub main() Randomize Timer Dim n As Integer, i As Integer, k As Integer n = 100 + Int(Round(899 * Rnd)) ReDim a(1 To n) As Integer ReDim b(1 To n) As Integer i = 0: k = 0 MsgBox n Do While i < n i = i + 1 a(i) = 1000 + Int(Round(8999 * Rnd)) If IsPrime(a(i)) Then k = k + 1 b(k) = a(i) End If Loop Rows("1:1000").Clear Range(Cells(1, 1), Cells(n, 1)) = a For i = 1 To k Cells(i, 1) = a(i) Cells(i, 2) = b(i) Next i If k > 1 Then 'Сортировка второй колонки, так красивее Dim r As Range Set r = Range(Cells(1, 2), Cells(k, 2)) r.Sort Range("B1") End If For i = k + 1 To n Cells(i, 1) = a(i) Next i End Sub
public class Test { public static void Main() { Console.Write("Введите координату х исходной точки (1-8): "); int x1=Convert.ToInt32(Console.ReadLine()); Console.Write("Введите координату y исходной точки (1-8): "); int y1=Convert.ToInt32(Console.ReadLine()); Console.Write("Введите координату х нужной точки (1-8): "); int x=Convert.ToInt32(Console.ReadLine()); Console.Write("Введите координату y нужной точки (1-8): "); int y=Convert.ToInt32(Console.ReadLine()); bool r=(Math.Abs(x-x1)*Math.Abs(y-y1)==2) && (x>0) && (x1>0) && (x<9) && (x1<9) && (y>0) && (y1>0) && (y<9) && (y1<9); Console.WriteLine(r); } }
С= 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 мин.