h] .Vremya:=inttostr (strtoint (process [h] .vremya) - 1); [h] .ran_1:=1; .cells [3 , process [h] .pid]:=process [h] .vremya;
(process [h] .stat= end ) and (process [h] .prohoj=proh) then:=(strtoint (process [h] .Razmer)/(razmerpam/100 )) * 5;:=round (razm); ListBox1.Canvas do.Color:=clwhite; .Color:=clwhite; (Bounds (0, strtoint (process [h] .adress), 400, razm1)) ;; (100) ;;:=0; j3:=1 to i - 1 do beginprocess [j3] .stat lt; gt; end then:=strtoint (process [j3] .Razmer) + sump; .Panels.items [0] .text:= Свободнопамяті: + inttostr (strtoint (edit1.Text) -sump) + Mb raquo ;;. Panels.items [1] .text:= Зайнято пам'яті: + inttostr (sump) + Mb raquo ;;
Очищення
ListBox1.Canvas do.Color:=clwhite; .Color:=clwhite; (Bounds (0, 0, 400,500)) ;;:=0;:=1;:=0;:= 0;:=0;:=1 ;; with StringGrid1 do beginvv:=0 to ColCount - 1 do [vv] .Clear ;; (process, 0);
4. Тестування
. Штатний режим роботи програми.
Малюнок 3
) Позаштатний режим роботи програми. Виникає при переповненні оперативної пам'яті і відсутності місця для вступників процесів.
Малюнок 4
Висновок
Динамічний розподіл оперативної пам'яті, хоча і було прогресивної знахідкою для свого часу, але повністю не задовольняло користувачів ПК, як через фрагментацію пам'яті, викликає втрату простору оперативної пам'яті, так і через неможливість використання дискового простору. Нехай дана система і не застосовується в даний час, вона гідно зайняла своє місце в історії розвитку обчислювальної техніки і дала безліч ідей розробникам наступних систем роботи з пам'яттю.
