На рисунке изображен логический диск разделенный на кластеры . размер каждого кластера составляет 16 кбайт. используемые кластеры - серые , свободные - белые. на диск требуется записать файлы : файл а размером 20 кбайт, затем файл в размером 30 кбайт , затем файл с размером 65 кбайт и наконец файл д - размером 60 кбайт операционная система для хранения каждого файла пытается искать смежные свободные кластеры чтобы избежать фрагментации файла - рассеивания содержимого файла по диску, приводящего к уменьшению производительности . в какой кластер может быть записано содержимое файлов при соблюдении этого условия?
Ответы
Прости не отвечаешь мне не нравится когда ты так что ннне3 что это такое дело то житейское что не спишь уже что то
Выделение объектов в окне папки
В окне папки можно выделять как один объект (щелчком мыши по значку), так и группу объектов, т.е. несколько объектов сразу:
для выделения несмежных объектов щелкайте на них при нажатой клавише ;
для выделения смежных объектов, щелкните на первом из них, нажмите клавишу и, удерживая ее, щелкните на последнем;
для выделения всех объектов – выполните команду меню Правка Выделить все либо используйте сочетание клавиш +A .
Также группу объектов можно выделить протягиванием.
Чтобы снять выделение с объектов, достаточно щелкнуть в свободном месте окна папки.
В окне папки можно выделять как один объект (щелчком мыши по значку), так и группу объектов, т.е. несколько объектов сразу:
для выделения несмежных объектов щелкайте на них при нажатой клавише ;
для выделения смежных объектов, щелкните на первом из них, нажмите клавишу и, удерживая ее, щелкните на последнем;
для выделения всех объектов – выполните команду меню Правка Выделить все либо используйте сочетание клавиш +A .
Также группу объектов можно выделить протягиванием.
Чтобы снять выделение с объектов, достаточно щелкнуть в свободном месте окна папки.
Procedure TForm1.Button1Click(Sender: TObject);
var
i,j,k:Integer;
Chislo : Integer;
begin
Memo1.Clear;
for i := 0 to 31 do
begin
Chislo := 3;
for j := 0 to 4 do
begin
if ((i and Trunc(IntPower(2,j)))=0) then
Dec(Chislo)
else
Chislo := 3*Chislo;
if (Chislo=16) then
begin
Memo1.Lines.Append('УРА - Нашли');
for k := 0 to j do
if ((i and Trunc(IntPower(2,k)))=0) then
Memo1.Lines.Append('1')
else
Memo1.Lines.Append('2');
Memo1.Lines.Append('');
end;
end;
end;
end;
var
i,j,k:Integer;
Chislo : Integer;
begin
Memo1.Clear;
for i := 0 to 31 do
begin
Chislo := 3;
for j := 0 to 4 do
begin
if ((i and Trunc(IntPower(2,j)))=0) then
Dec(Chislo)
else
Chislo := 3*Chislo;
if (Chislo=16) then
begin
Memo1.Lines.Append('УРА - Нашли');
for k := 0 to j do
if ((i and Trunc(IntPower(2,k)))=0) then
Memo1.Lines.Append('1')
else
Memo1.Lines.Append('2');
Memo1.Lines.Append('');
end;
end;
end;
end;
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
7 сынып Информатика көмек тесіндерш
Автор: andruhovich
Кто такой клод шеннон и чем он был знаменит?
Автор: dmitriyb1
Скажите если вы профи по пк с каким прмложением очистить озу
Автор: Janaz842060
Построить таблицу истинности (х и у или не (х и у ))
Автор: olgalooo
преподаватель требует подробное решение.
Автор: ghjcnjtyjn64
