yhjsf.~pas

操作系统的一个模拟算法的实现 银行家算法

unit yhjsf;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Memo1: TMemo;
    Timer1: TTimer;
    Label3: TLabel;
    Edit3: TEdit;
    Button4: TButton;
    Label4: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure InitMax();
    procedure InitAllocation();
    procedure InitNeed();
    procedure InitFinish();
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    function Issafe(x:integer):boolean;

  private
    { Private declarations }
  public
    { Public declarations }
  end;
  

var
  Form1: TForm1;
  max :array of array of integer;
  allocation:array of array of integer;
  need:array of array of integer;
  finish:array of boolean;
  work:array of integer;
  MyEdit2:array of array of TEdit ;
  MyEdit1:array of TEdit ;
  MyEdit3:array of Tedit;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
SetLength(MyEdit1,strtoint(edit2.Text));
for i:=0 to strtoint(edit2.Text)-1 do
begin
MyEdit1[i]:=TEdit.Create(self);
MyEdit1[i].Top:=120+i*20;
MyEdit1[i].Left:=20;
MyEdit1[i].Height:=30;
MyEdit1[i].Width:=60;
MyEdit1[i].Parent:=self;
MyEdit1[i].Show;
button3.Top:=140+strtoint(edit2.Text)*20;
button3.Left:=20;
button3.Visible:=true;
end;
end;


procedure TForm1.Button2Click(Sender: TObject);
var
i,j:integer;
begin
setlength(MyEdit2, strtoint(edit1.Text), strtoint(edit2.text));
for i:=0 to strtoint(edit1.Text)-1 do
begin
for j:=0 to strtoint(edit2.text)-1 do
begin
MyEdit2[i][j]:=TEdit.Create(self);
MyEdit2[i][j].Top:=120+i*30;
MyEdit2[i][j].Left:=350+j*60;
MyEdit2[i][j].Height:=30;
MyEdit2[i][j].Width:=60;
MyEdit2[i][j].Parent:=self;
MyEdit2[i][j].Show;
end;
end;
end;


procedure TForm1.InitFinish();
var
i:integer;
begin
setlength(finish,strtoint(edit1.Text));
for i:=0 to strtoint(edit1.Text)-1 do
begin
finish[i]:=false;
end;

end;

procedure TForm1.InitAllocation();
var
i,j:integer;
begin
setlength(allocation,strtoint(edit1.text),strtoint(edit2.text));
for i:=0 to  strtoint(edit1.text)-1 do
begin
for j:=0 to strtoint(edit2.text)-1 do
begin
Randomize;
allocation[i][j]:=Random(strtoint(MyEdit2[i][j].Text)div 2) ;
end;
end;
end;

procedure TForm1.InitMax();
var
i,j:integer;
begin
setlength(max,strtoint(edit1.text),strtoint(edit2.text));
for i:=0 to  strtoint(edit1.text)-1 do
begin
for j:=0 to strtoint(edit2.text)-1 do
begin
max[i][j]:=strtoint(MyEdit2[i][j].Text);
end;
end;
end;





procedure TForm1.InitNeed();
var
i,j:integer;
begin
setlength(need,strtoint(edit1.text),strtoint(edit2.text));
for i:=0 to strtoint(edit1.text)-1 do
begin
for j:=0 to strtoint(edit2.text)-1 do
begin
need[i][j]:=max[i][j]-allocation[i][j];
end;
end;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
i,j,k:integer;
a,b,c:string;
begin
memo1.Visible:=true;
memo1.Top:= 180+strtoint(edit2.Text)*20;
memo1.Left:=20;
memo1.Lines.Text:='分配情况如下：';
memo1.Lines.Add('进程'+#9+'最大需求'+#15+'已占有'+#15'还需要'+#13+'完成情况');
InitMax();
InitAllocation();
InitNeed();
InitFinish();
for i:=0 to strtoint(edit1.Text)-1do
begin
a:='';
b:='';
c:='';
for j:=0 to strtoint(edit2.Text)-1 do
begin
a:= a+inttostr(max[i][j])+' ';
b:=b+inttostr(allocation[i][j])+' ';
c:=c+inttostr(need[i][j])+' ';
end;
memo1.Lines.Add(inttostr(i+1)+#9+a+#9+b+#9+c+#9+'未完成');
end;
label3.Visible:=true;
label4.Visible:=true;
edit3.Visible:=true;
button4.Visible:=true;
label3.Top:=memo1.Top+memo1.Height+10;
label3.Left:=20;
edit3.Top:=label3.Top;
edit3.Left:=60+label3.Width;
label4.Top:=label3.Top+30;
setlength(MyEdit3,strtoint(edit2.Text));
for k:=0 to strtoint(edit2.Text)-1 do
begin
MyEdit3[k]:=TEdit.Create(self);
MyEdit3[k].Top:=label4.Top+40+k*20;
MyEdit3[k].Left:=20;
MyEdit3[k].Height:=30;
MyEdit3[k].Width:=60;
MyEdit3[k].Parent:=self;
MyEdit3[k].Show;
end;
button4.Top:=label4.Top+70+i*20;
button4.Left:=20;
end;


procedure TForm1.Button4Click(Sender: TObject);
var
i,j,a,k:integer;
begin
InitFinish();
setlength(work,strtoint(edit2.Text));
for i:=0 to strtoint(edit2.Text)-1 do
begin
a:=0;
for j:=0 to strtoint(edit1.Text)-1 do
begin
a:=allocation[j][i]+a;
end;
work[i]:=strtoint(Myedit1[i].Text)-a;
end;
k:=0;
while (k<strtoint(edit2.Text))and(strtoint(Myedit3[k].Text)<=work[k]) do
begin
k:=k+1;
end;
if k=strtoint(edit2.Text) then
begin
if Issafe(strtoint(edit3.Text)-1)=true then
begin
showmessage('该分配是安全的!') ;
end
else
showmessage('分配是不安全的!');
end
else
showmessage('指定资源不对');
end;

function TForm1.Issafe(x: integer): boolean;
var
j,k,m,n,l,u:integer;
begin
for n:=0 to strtoint(edit2.Text)-1 do
begin
need[x][n]:=need[x][n]-strtoint(MyEdit3[n].Text);
end;
for n:=0 to strtoint(edit2.Text)-1 do
begin
work[n]:=work[n]- strtoint(MyEdit3[n].Text);
end;
for n:=0 to strtoint(edit2.Text)-1 do
begin
allocation[x][n]:=allocation[x][n]+ strtoint(MyEdit3[n].Text);
end;
for j:=0 to strtoint(edit1.Text)-1 do
begin
m:=0;
while (m<strtoint(edit2.Text))and(need[j][m]<=work[m])do
begin
m:=m+1;
end;
if(finish[j]=false)and(m=strtoint(edit2.Text)) then
begin
finish[j]:=true;
for u:=0 to strtoint(edit2.Text)-1 do
begin
work[u]:=allocation[j][u]+work[u];
end;

end;

end;
k:=0;
while( k<strtoint(edit1.Text))and (finish[k]=true )do
begin
k:=k+1;
end;
if k=strtoint(edit1.Text) then
begin
result:=true;
end
else
result:=false;
end;

end.