При реализации страничной виртуальной памяти виртуальное адресное пространство делится на части одинакового фиксированного размера, называемые виртуальными страницами. Если виртуальное адресное пространство какого-то процесса не кратно размеру страницы, то последняя страница дополняется фиктивной областью. Физическая оперативная память также делится на части такого же размера, называемые физическими страницами. Размер страницы выбирается кратным степени двойки. Копия всех виртуальных страниц хранится на диске.
Страничное распределение памяти предусматривает только механическое разбиение на страницы, оно не позволяет различным образом организовать работу со страницами, содержащими команды и данные. При сегментном распределении памяти виртуальное адресное пространство делится на части, называемые сегментами, размер которых определяется смысловым значением содержащейся в них информации. Максимальный размер сегмента определяется разрядностью процессора, для 32-разрядного процессора он равен 4 Гбайт. Сегменты никак не упорядочиваются друг относительно друга. Виртуальный адрес задается парой чисел: номером сегмента и смещением внутри сегмента. При загрузке процесса в оперативную память помещается только часть его сегментов, полный образ виртуального адресного пространства находится на диске. Для каждого загружаемого сегмента подыскивается непрерывный участок свободной физической памяти достаточного размера.
program Numfind;
uses
System.SysUtils;
var
a: array [1..10] of Integer; // 1..10 размерность массива можно изменять, программа будет работать правильно
i, s: Integer;
begin
Randomize;
for i := Low(a) to High(a) do
a[i] := - 25 + Random (151);
WriteLn ('Массив чисел:');
for i := Low(a) to High(a) do
Write (a [i], ' ');
s := 0;
WriteLn;
WriteLn;
WriteLn ('Выбрано: ');
for i := Low(a) to High(a) do begin // цикл выбора чисел больше 20
if (a [i] > 20) then begin
s := s + a [i];
Write (A [i], ' ');
end;
end;
WriteLn;
WriteLn ('Сумма чисел больше 20 = ', s);
s := 0;
WriteLn;
WriteLn ('Выбрано: ');
for i := Low(a) to High(a) do begin // цикл выбора чисел меньше 100
if (a [i] > 0) and (a [i] < 100) then begin
s := s + a [i];
Write (A [i], ' ');
end;
end;
WriteLn;
WriteLn ('Сумма чисел меньше 100 = ', s);
s := 0;
WriteLn;
WriteLn ('Выбрано: ');
for i := Low(a) to High(a) do begin // цикл выбора чисел кратных 3
if (a [i] > 0) and (a [i] mod 3 = 0) then begin
s := s + a [i];
Write (A [i], ' ');
end;
end;
WriteLn;
WriteLn ('Сумма чисел кратных 3 = ', s);
ReadLn
end.
