Оптическая запись выполняется с импульсов лазера, который выжигает в рабочем слое диска углубления, или питы, глубиной около 0,1 мкм (от английского pit — канава, углубление) . Для записи аналоговых сигналов используется широтно-импульсная модуляция, при которой длина пита определяется размахом соответствующего отсчета аналогового видеосигнала. Минимальная и максимальная длина пита задаются принятым форматом записи. При цифровой записи используется позиционный принцип, при котором каждому 8-разрядному байту (кодовому слову) отводится участок дорожки строго определенной длины. На этом байтовом интервале можно записать до восьми питов одинаковой минимальной длины. Отсчитывая тактовые импульсы записи, несложно определить, какой пит соответствует тому или иному разряду байтового кодового слова. В пределах байтового интервала наличие пита, например, соответствует логической единице, а его отсутствие — условному нулю. Местоположение пита в пределах байтового интервала определяет соответствующий разряд.Принцип магнитной записи электрических сигналов на движущийся магнитный носитель основан на явлении остаточного намагничивания магнитных материалов. Запись и хранение информации на магнитном носителе производится путем преобразования электрических сигналов в соответствующие им изменения магнитного поля, воздействия его на магнитный носитель и сохранения следов этих воздействий в магнитном материале длительное время, благодаря явлению остаточного магнетизма. Воспроизведение электрических сигналов производится путем обратного преобразованияПри цифровой магнитной записи в магнитную головку поступает ток, при котором поле записи через определенные промежутки времени изменяет свое направление на противоположное. В результате под действием поля рассеяния магнитной головки происходят намагничивание или перемагничивание отдельных участков движущегося магнитного носителя.
// PascalABC.NET 3.3, сборка 1579 от 18.11.2017 // Внимание! Если программа не работает, обновите версию!
begin var a:=ArrRandom(ReadInteger('n='),2,5); a.Println; var b:=a.GroupBy(t->t).Select(t->(t.Key,t.Count)).OrderBy(t->t[0]) .Select(t->t[1]).ToArray; Writeln('Сдано на 5: ',b[3]); Writeln('Сдано на 4: ',b[2]); Writeln('Сдано на 3: ',b[1]); Writeln('Не допущено: ',b[0]) end.
Пример n= 20 4 4 3 5 4 5 2 4 4 4 5 4 3 3 4 2 3 2 2 2 Сдано на 5: 3 Сдано на 4: 8 Сдано на 3: 4 Не допущено: 5
L=Х*T
S=(x*T)`2/(4π)