принцип работы жёстких дисков похож на работу магнитофонов. рабочая поверхность диска движется относительно считывающей головки (например, в виде катушки индуктивности с зазором в магнитопроводе) . при подаче переменного электрического тока (при записи) на катушку головки возникающее переменное магнитное поле из зазора головки воздействует на ферромагнетик поверхности диска и изменяет направление вектора намагниченности доменов в зависимости от величины сигнала. при считывании перемещение доменов у зазора головки приводит к изменению магнитного потока в магнитопроводе головки, что приводит к возникновению переменного электрического сигнала в катушке из-за эффекта электромагнитной индукции.
технологии записи данных
принцип работы жёстких дисков похож на работу магнитофонов. рабочая поверхность диска движется относительно считывающей головки (например, в виде катушки индуктивности с зазором в магнитопроводе) . при подаче переменного электрического тока (при записи) на катушку головки возникающее переменное магнитное поле из зазора головки воздействует на ферромагнетик поверхности диска и изменяет направление вектора намагниченности доменов в зависимости от величины сигнала. при считывании перемещение доменов у зазора головки приводит к изменению магнитного потока в магнитопроводе головки, что приводит к возникновению переменного электрического сигнала в катушке из-за эффекта электромагнитной индукции.
намагничиваются его области микрозоны
точнее перемагничиваются.
program raf105;
var
sum: integer;
begin
for var i:=1 to 100 do
if i mod 2 = 0 then sum:= sum + i;
writeln('Вывод: ',sum);
end.
2.program raf105;
var
glas: string:= 'аяоёуюыиэе';
input: string;
glasCount: integer;
begin
write('Введите слово: ');
readln(input);
lowerCase(input);
for var i:= 1 to length(input) do
for var j:= 1 to length(glas) do
if input[i] = glas[j] then inc(glasCount);
writeln('Гласных букв: ',glasCount);
end.
3.program raf105;
var
count: integer;
begin
for var i:=1 to 500 do
if i mod 2 <> 0 then inc(count);
writeln('Вывод: ',count);
end.
PascalABC