Хостинг портала RFpro.ru:
Московский хостер
Профессиональный ХОСТИНГ на базе Linux x64 и Windows x64

РАССЫЛКИ ПОРТАЛА RFPRO.RU

Лучшие эксперты данной рассылки

Асмик Александровна Статус: Академик Рейтинг: 7990 ∙ повысить рейтинг »

Boriss Статус: Академик Рейтинг: 2632 ∙ повысить рейтинг »

Роман Селиверстов Статус: Академик Рейтинг: 2413 ∙ повысить рейтинг »

Вопрос № 182890: Здравствуйте, уважаемые эксперты! Прошу вас помочь с программой: Модель преобразования виртуального адреса в физический адрес 1. Исходные данные: ∙ организация виртуальной памяти - страничная; ∙ разрядность виртуального адреса - 32 бита;<...

Здравствуйте, уважаемые эксперты! Прошу вас помочь с программой:
Модель преобразования виртуального адреса в физический адрес
1. Исходные данные:
∙ организация виртуальной памяти - страничная;
∙ разрядность виртуального адреса - 32 бита;
∙ максимальное число работающих процессов не более восьми;
∙ количество физических страниц в таблице страниц процесса не более четырех;
∙ объем оперативной памяти - 32 физических страницы;
∙ заполнение таблицы страниц - с использованием датчика случайных чисел;
∙ виртуальный адрес вводится с клавиатуры.
2. Результаты работы модели, отображаемые на дисплее должны включать в себя:
∙ виртуальный адрес;
∙ номер процесса;
∙ содержимое таблицы страниц данного процесса;
∙ физический адрес.
Инструменты: ABC-Pascal, Turbo-Pascal, Delphi-7.
Дополнительно 200 рублей переводом на РФПРО-счет (возможно обсуждение суммы).
Спасибо.

Отправлен: 19.04.2011, 17:02
Вопрос задал: lamed (Академик)
Всего ответов: 1
Страница вопроса »

Приложение:
uses Crt, GraphABC; const {задание} PhisPage=31;{0..31=32} szPage=4095;{0..4095=4096} NumRec=1023;{0..4095=4096} ActiveProcces=8;{количество активных процессов} SysPage=3;{номер физической страницы системы} PdePage=(SysPage+1)mod(PhisPage+1);{} ipData=10000;{переменная для генерации указателя команд} stepData=400;{переменная для генерации счетчиков команд} {} BitJob=8;{бит работы} BitActive=4;{бит готовности} BitGlobal=2;{бит невыгружаемости} BitPresent=1;{наличия в памяти} {for screan} xBegin=10;{смещение от верхнего-левого угла экрана} yBegin=10; szScrean=700;{размер окна вывода} {цветовая гамма для вывода состаяний отображаемых блоков} colorFree=clGray; colorSystem=clRed; colorPTE=clNavy; colorPDE=clBlue; colorCode=clGreen; colorUnLoad=clAqua; colorLoad=clYellow; colorJob=clLime; type tOne = array[0..NumRec]of longint;{один физический блок размером 4Кб} pOne=^tOne;{ссылка на логический блок} {заголовок процесса} tProcces=record id:longint;{идентификатор процесса} ip:longint;{виртуальный указатель текущей комманды} pPDE:longint;{номер физичекого блока таблицы PDE} pPTE:longint;{номер физического блока таблицы РТЕ} TimeOut:word;{счетчик выполненых команд и времменная задержка загрузки выгрузки} status:word;{флаг состояния процесса} step:word;{квант кода-количество комманд выполяемых процессов за один раз} PTE:pOne;{ссылка на таблицу PTE} PDE:pOne{ссылка на таблицу PDE} end; {заголовок блока физической памяти} tMemory=record id:longint;{идентификатор владельца блока памяти} am:integer;{статус блока памяти} end; var i,j:integer; dXpx,dYpx:integer; Memory:array[0..PhisPage]of tMemory;{} Procces:array[0..ActiveProcces]of tProcces;{} {получение РТЕ} function PTE(a:longint):longint; begin PTE:=(Procces[Memory[a].id].ip div(szPage+1))mod(NumRec+1) end; {получение PDE} function PDE(a:longint):longint; begin PDE:=Procces[Memory[a].id].ip div((szPage+1)*(NumRec+1)) end; {поиск первой свободной страницы} function CheckPage(var a:integer):boolean; begin a:=PhisPage; while(Memory[a].id>=0)and(a>=0)do dec(a); CheckPage:=a>=0 end; {перевод 16-ю систему} function bin2hex(a:longint):string; const HEX:string=\'0123456789ABCDEF\'; var b:string; begin b:=\'\'; while a>0 do begin b:=Hex[1+(a mod 16)]+b;{в строку записываем символьное представление остатка от деления} a:=a div 16{убираем проверенную цифру} end; while length(b)<8 do b:=\'0\'+b;{выравниваем до восьми символов} bin2hex:=b{результат} end; {отображение информации физического блока} procedure ShowData(a:integer); var b:integer; d:string; begin {выбор цвета рисуемого блока} case Memory[a].am of 0:b:=colorFree; 1:b:=colorSystem; 2:b:=colorPTE; 3:b:=colorPDE; 4:b:=colorCode; 5:b:=colorUnLoad; 6:b:=colorLoad; 7:b:=colorJob; else b:=clWhite end; SetBrushColor(b);{устанавливаем кисть} FillRect(xBegin,a*dXpx+yBegin+1,xBegin+60,(a+1)*dXpx+yBegin-1);{рисуем блок} SetBrushColor(clWhite);{сбрасываем кисть} d:=\' mem:\'+bin2hex(a*(szPage+1))+\' id:\'+bin2hex(Memory[a].id);{формируем сообщение} {выбор надписи} case Memory[a].am of 1 :;{системный блок} 2 :d:=d+\' pte[\'+bin2hex(PTE(a))+ \']:=\'+{номер записи таблицы PТE} bin2hex(Procces[Memory[a].id].PTE^[PTE(a)]);{значение поля таблицы PTE} 3 :d:=d+\' pde[\'+bin2hex(PDE(a))+ \']:=\'+{номер записи таблицы PDE} bin2hex(Procces[Memory[a].id].PDE^[PDE(a)]);{значение поля таблицы PDE} 4,{процесс в памяти} 5,{процесс выгружается} 6 :d:=d+\' ip:\'+bin2hex(procces[Memory[a].id].ip);{процесс загружается} 7 :d:=d+\' ip:\'+bin2hex(procces[Memory[a].id].ip)+{виртуальный адрес} \' phis:\'+bin2hex(Procces[Memory[a].id].PTE^[PTE(a)]+(Procces[Memory[a].id].ip mod(szPage+1)));{физический адрес} else d:=\'\' end; {выравниваем строку и выводим сообщение} while length(d)<80 do d:=d + \' \'; TextOut(xBegin+80,a*dYpx+yBegin,d); {действия ОСи} case Memory[a].am of 4:if(Procces[Memory[a].id].status and BitJob)>0 then Memory[a].am:=7;{процесс в памяти готов к работе} 5:begin{выгружаем процесс} dec(Procces[Memory[a].id].TimeOut);{уменьшаем счетчик} if Procces[Memory[a].id].TimeOut=0 then begin Memory[a].am:=0;{помечаем как свободный} Procces[Memory[a].id].TimeOut:=Procces[Memory[a].id].step;{востанавливаем счетчик} Memory[a].id:=-1;{освобождаем блок} end end; 6:begin{загружаем блок} dec(Procces[Memory[a].id].TimeOut);{умеьшаем счетчик} if Procces[Memory[a].id].TimeOut=0 then begin Memory[a].am:=4;{в памяти} Procces[Memory[a].id].TimeOut:=Procces[Memory[a].id].step;{востанавливаем счетчик} end end; 7:if(Procces[Memory[a].id].status and BitJob)>0 then{процесс в памяти активный} begin dec(Procces[Memory[a].id].TimeOut);{уменьшаем счетчик команд} inc(Procces[Memory[a].id].ip);{увеличиваем указатель на следующую команду} if Procces[Memory[a].id].ip mod(szPage+1)=0 then{достигли конца страницы} begin Memory[a].am:=5;{помечаем блок как вызружаемый} Procces[Memory[a].id].status:=Procces[Memory[a].id].status xor BitJob;{снимаем активность процесса} Procces[Memory[a].id].TimeOut:=Procces[Memory[a].id].step;{востанавливаем счетчик команд} if CheckPage(b) then{выбираем свободный блок физичейской памяти} begin Memory[b].am:=6;{статус загружаемый процесс} Memory[b].id:=Memory[a].id;{передаем владельца} Procces[Memory[b].id].PTE^[PTE(a)]:=b*(szPage+1);{новая запись в таблице РТЕ} if PTE(a)=0 then{достигли конца РТЕ} begin Memory[Procces[Memory[a].id].pPTE].am:=5;{помечаем блок как выгружаемый} if CheckPage(b) then{выбираем сврбодный блок физичейской памяти} begin Memory[b].am:=2;{выбираем свободный блок физичейской памяти} Memory[b].id:=Memory[a].id;{передаем владельца} Procces[Memory[b].id].PDE^[PDE(a)]:=b*(szPage+1);{новая запись в таблице РDЕ} Procces[Memory[a].id].pPTE:=b{запоминаем в заголовке процесса} end end; repeat b:=1+random(ActiveProcces){ищем очередной процеес} until Procces[b].id<>Memory[a].id; Procces[b].status:=Procces[b].status or BitJob;{помечаем его как активный} Procces[b].timeOut:=Procces[Memory[a].id].step{востанавливаем счетчик} end end else if Procces[Memory[a].id].TimeOut=0 then{выполнили все положенные команды} begin Procces[Memory[a].id].status:=Procces[Memory[a].id].status xor BitJob;{снимаем активность} repeat b:=1+random(ActiveProcces){новый активный процесс} until b<>Memory[a].id; Procces[b].status:=Procces[b].status or BitJob;{устанавливаем активность} Memory[a].am:=4;{процесс в памяти и готов к работе} Procces[Memory[a].id].TimeOut:=Procces[Memory[a].id].step{востанавливаем счетчик} end end end end; begin{main} Randomize; SetWindowCaption(\'virtual memory model\');{заголовок окна} SetWindowSize(szScrean,szScrean);{размер окна} dXpx:=szScrean div(PhisPage+1);dYpx:=szScrean div(PhisPage+1); for i:=0 to PhisPage do Memory[i].id:=-1;{освобождаем физическую память} Memory[SysPage].id:=0;{системная страница} Memory[SysPage].am:=1;{тип физического блока} for i:=1 to ActiveProcces do begin Procces[i].id:=i;{идентификатор процесса} Procces[i].ip:=random(ipData)+1000*ipData;{генерируем указатель на команду} Procces[5].ip:=4190000;{контроль переключений таблиц} Procces[i].status:=BitActive or BitPresent;{????} Procces[i].step:=random(stepData)+stepData;{генерируем квант команд} New(Procces[i].PTE);{резервируем место под таблицу РТЕ} New(Procces[i].PDE);{резервируем место под таблицу PDE} if CheckPage(j) then{выбираем свободный блок физической памяти} begin Memory[j].id:=i;{владелец блока памяти} Memory[j].am:=2;{in memory color PTE} Procces[i].pPTE:=j;{запоминаем в заголовок процесса} Procces[i].PDE^[PDE(j)]:=j*(szPage+1){записываем физический адрес в таблицу PDE} end; if CheckPage(j) then{выбираем свободный блок физической памяти} begin Memory[j].id:=i;{владелец блока памяти} Memory[j].am:=3;{таблица PDE} Procces[i].pPDE:=j{запоминаем в заголовке процесса} end; if CheckPage(j) then{выбираем свободный блок физический памяти} begin Memory[j].id:=i;{владелец блока памяти} Memory[j].am:=4;{блок кода программы} Procces[i].TimeOut:=Procces[i].step;{устанавливаем счетчик} Procces[i].PTE^[PTE(j)]:=j*(szPage+1){записываем физический адрес в таблицу РТЕ} end end; j:=1+random(ActiveProcces);{выбираем случайно активный процесс} Procces[j].status:=Procces[j].status or BitJob;{устанавливаем бит активности} while true do for i:=0 to PhisPage do ShowData(i);{выводим информоцию об одном физическом блоке в цикле} ReadKey; end.{main}
-----
Итерация от человека. Рекурсия — от Бога. — Л. Питер Дойч

Ответ отправил: Зенченко Константин Николаевич (Модератор)
Ответ отправлен: 10.05.2011, 14:22
Номер ответа: 267064
Украина, Киев
Тел.: +38-097-238-60-03
Адрес: Украина, Киев

Оценка ответа: 5
Комментарий к оценке:
Качественная и солидная работа. Большое спасибо. С уважением.

Вам помог ответ? Пожалуйста, поблагодарите эксперта за это! Как сказать этому эксперту "спасибо"?

Отправить SMS #thank 267064 на номер 1151 (Россия) | Еще номера »

Отправить WebMoney: Неплохо (30 руб.) Хорошо (40 руб.) Отлично (55 руб.) БЛЕСТЯЩЕ! (80 руб.)

Оценить выпуск »
Нам очень важно Ваше мнение об этом выпуске рассылки!

Задать вопрос экспертам этой рассылки »