1. Частота 48 КГц требует для записи 48 000 отсчетов в секунду на каждый канал. 2. Стереофоническая (двухканальная) запись потребует 48 000 х 2= 96 000 отсчетов в секунду. 3. Каждый отсчет содержит 16-битный уровень сигнала (амплитуду); 16 бит это 16/8=2 байта. 4. Итого, для записи одной секунды сигнала потребуется 2х96 000=192 000 байт 5. Размер файла 2 Мбайта - это 2х1024х1024=2 097 152 байт. 6. Определяем максимальное время звучания при указанном размере файла: 2 097 152 / 192 000 ≈ 10.92 (секунды)
Uses graphabc; var i, j: integer; ar: array[1..10]of integer; b: boolean;
label l1; begin b := false; for i := 1 to 10 do ar[i] := random(10, 300); l1: b := false; for i := 1 to 10 do for j := 1 to 10 do if((ar[i] = ar[j]) or (abs(ar[i] - ar[j]) < 10)) and (i <> j) then begin b := true; ar[i] := random(30, 300); end; if b = true then goto l1; window.Init(0, 0, 800, 600, clwhite); window.IsFixedSize := true; randomize; lockdrawing; pen.Width := 5; for i := 1 to 10 do begin pen.Color := rgb(random(0, 255), random(0, 255), random(0, 255)); drawcircle(400, 300, ar[i]); redraw; end; end.
Output to console:
6+6=12