Форматирование:
Большинство пользователей ПК придерживаются мнения, что жесткие диски, впрочем, как и любой другой накопитель информации, должны быть отформатированы перед использованием. В вопросе форматирования есть некоторая путаница относительно того, что и как делает процедура форматирования жесткого диска, что мы и постараемся рассмотреть в этой статье. В современных жестких дисках используются методики, коренным образом отличающиеся от методов форматирования старых жестких дисков.
Форматирование диска на низком уровне. Это единственный "настоящий" метод форматирования диска. При этом процессе на жестком диске создаются физические структуры: треки, сектора, управляющая информация. Этот процесс выполняется заводом-изготовителем на пластинах, которые не содержат еще никакой информации.
Высокоуровневое форматирование. Этот процесс также контролируется операционной системой и зависит как от типа операционной системы, так и от утилиты, используемой для форматирования. Процесс записывает логические структуры, ответственные за правильное хранение файлов, а также, в некоторых случаях, системные загрузочные файлы в начало диска. Это форматирование можно разделить на два вида: быстрое и полное. При быстром форматировании перезаписывается лишь таблица файловой системы, при полном же — сначала производится верификация (проверка) поверхности накопителя, а уже потом производится запись таблицы файловой системы.
1.
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Spin;
const
n = 4;
type
TFormT = class(TForm)
Button1: TButton;
Memo1: TMemo;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
b: array[0..n-1, 0..n-1] of integer;
procedure FillArray;
public
end;
var
FormT: TFormT;
implementation
{$R *.dfm}
{ TForm2 }
procedure TFormT.Button1Click(Sender: TObject);
begin
memo1.Clear;
Label1.Caption := '';
FillArray;
end;
procedure TFormT.FillArray;
var
i, j, S : Integer;
P : Longint;
st : string;
begin
randomize;
P:=1;
S:=0;
for i:=0 to n-1 do begin
st:='';
for j:=0 to n-1 do begin
b[i, j]:= 1+ Random(10);
st := st + format('%2d ',[b[i, j]]);
if b[i, j] mod 2 <> 0 then begin
P := P * b[i, j];
S := S + b[i, j];
end;
end;
Memo1.Lines.Add(st);
end;
Label1.Caption :='Произведение=' + inttostr(p) +' Сумма=' + inttostr(s);
end;
end.