Принцип запись : жёсткий диск, флешку, магнитный диск (дискета) , бумага с записями, книга. не пиши если не знаешь. примеры как не надо: карандашом, запись на диск и т.д

технологии записи данных

принцип работы жёстких дисков похож на работу магнитофонов. рабочая поверхность диска движется относительно считывающей головки (например, в виде катушки индуктивности с зазором в магнитопроводе) . при подаче переменного электрического тока (при записи) на катушку головки возникающее переменное магнитное поле из зазора головки воздействует на ферромагнетик поверхности диска и изменяет направление вектора намагниченности доменов в зависимости от величины сигнала. при считывании перемещение доменов у зазора головки приводит к изменению магнитного потока в магнитопроводе головки, что приводит к возникновению переменного электрического сигнала в катушке из-за эффекта электромагнитной индукции.

намагничиваются его области микрозоны

точнее перемагничиваются.

Program ulitka; var sunnyday: array [1..30] of boolean; a, b, c, i: integer; begin writeln('a = '); readln(a); writeln('b = '); readln(b); b : = b * 100; randomize; for i : = 1 to 30 do begin       if random(2) = 1 then sunnyday[i] : = true else sunnyday[i] : = false; end; for i : = 1 to 30 do begin   if sunnyday[i] = true then begin     a : = a + 2;     if a > b then     a : = b;   end   else   begin     a : = a - 10;     if a < 0 then     a : = 0;   end;   end; writeln('дни месяца были таковы: '); for i : = 1 to 30 do begin if sunnyday[i] = true then writeln(i, '. солнечный') else writeln(i, '. пасмурный') end; writeln('к концу 30 дня местоположение улитки равно ', a, ' см над землей'); end.

Var day: array[1..30] of boolean; i, pos, tree_height : integer; begin   readln(pos, tree_height);   for i : = 1 to 30 do       day[i] : = (random(100) > 30);   for i : = 1 to 30 do begin       if day[i] then pos : = pos + 2       else pos : = pos - 10;       if pos > tree_height then pos : = tree_height;       if pos < 0 then pos : = 0;       writeln('день ', i: 2, '(', day[i]: 5,') pos = ',pos);   end;   writeln(pos); end.