unit Unit1;

interface

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

type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
UpDown1: TUpDown;
StringGrid2: TStringGrid;
StringGrid3: TStringGrid;
Label5: TLabel;
Edit2: TEdit;
GroupBox1: TGroupBox;
RadioGroup1: TRadioGroup;
Label6: TLabel;
Edit3: TEdit;
Label7: TLabel;
Edit4: TEdit;
Button4: TButton;
Label8: TLabel;
Label9: TLabel;
ProgressBar1: TProgressBar;
procedure FormCreate(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
procedure Cache(addr: integer; value: string; mode: byte; var InCache: byte);
end;

const CacheSize = 1024;
RAMSize = 8192;

var
Form1: TForm1;
InCache: byte;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var i,j: integer;
begin
with StringGrid1 do
begin
Cells[0,0]:='Номер';
Cells[1,0]:='РО';
Cells[2,0]:='Адрес';
Cells[3,0]:='Значение';
for i:=1 to CacheSize do
begin
Cells[0,i]:=IntToStr(i);
Cells[1,i]:='0';
Cells[2,i]:='0';
end;
end;
with StringGrid2 do
for i:=1 to CacheSize do
begin
Cells[0,i]:=IntToStr(i);
Cells[i,0]:=IntToStr(i);
for j:=1 to CacheSize do
Cells[j,i]:='0';
end;

with StringGrid3 do
begin
Cells[0,0]:='Адрес';
Cells[1,0]:='Значение';
for i:=1 to RAMSize do
Cells[0,i]:=IntToStr(i);
end;

Edit2.Text:='';
for i:=1 to 32 do
Edit2.Text:=Edit2.Text+IntToStr(Random(2));

Label9.Caption:='';
end;

procedure TForm1.Button3Click(Sender: TObject); //Заполнить ОЗУ случайными данными
var i: integer;
j:byte;
begin
Randomize;
for i:=1 to RAMSize do
begin
StringGrid3.Cells[1,i]:='';
for j:=1 to 32 do
StringGrid3.Cells[1,i]:=StringGrid3.Cells[1,i]+IntToStr(Random(2));
end;
end;

procedure TForm1.Cache(addr: integer; value: string; mode: byte; var InCache: byte);
var i,j,num,FirstEmpty: integer;
FullCache,fl: byte;
begin
InCache:=0;
FullCache:=1;
for i:=1 to CacheSize do //проверяем, есть ли в КЭШ
if addr = StrToInt(StringGrid1.Cells[2,i]) then
begin
InCache:=1;
num:=i;
break;
end
else
if StringGrid1.Cells[2,i] = '0' then
begin
FullCache:=0;
FirstEmpty:=i;
break;
end;

if InCache = 1 then //если информация есть в КЭШ
begin
for i:=1 to CacheSize do
StringGrid1.Cells[1,i]:='0';
StringGrid1.Cells[1,num]:='1';

if mode = 0 then //считывание
value:=StringGrid1.Cells[3,num]
else //запись
begin
StringGrid1.Cells[3,num]:=value;
StringGrid3.Cells[1,addr]:=value;
end;

for i:=1 to CacheSize do
StringGrid2.Cells[i,num]:='1';
for i:=1 to CacheSize do
StringGrid2.Cells[num,i]:='0';
end //если информации нет в КЭШ
else
begin
if mode = 0 then //считывание из ОЗУ
value:=StringGrid3.Cells[1,addr]
else //запись в ОЗУ
StringGrid3.Cells[1,addr]:=value;

if FullCache = 0 then //КЭШ не заполнена
begin
for i:=1 to CacheSize do
StringGrid1.Cells[1,i]:='0';
//StringGrid1.Cells[1,FirstEmpty]:='1';
StringGrid1.Cells[2,FirstEmpty]:=IntToStr(addr);
StringGrid1.Cells[3,FirstEmpty]:=value;

for i:=1 to CacheSize do
StringGrid2.Cells[i,FirstEmpty]:='1';
for i:=1 to CacheSize do
StringGrid2.Cells[FirstEmpty,i]:='0';
end
else //КЭШ заполнена
begin
for i:=1 to CacheSize do
begin
fl:=1;
for j:=1 to CacheSize do
if StringGrid2.Cells[j,i] = '1' then
begin
fl:=0;
break;
end;
if fl = 1 then //найдена ячейка КЭШ для замены
begin
for j:=1 to CacheSize do
StringGrid1.Cells[1,j]:='0';
//StringGrid1.Cells[1,i]:='1';
StringGrid1.Cells[2,i]:=IntToStr(addr);
StringGrid1.Cells[3,i]:=value;

for j:=1 to CacheSize do
StringGrid2.Cells[j,i]:='1';
for j:=1 to CacheSize do
StringGrid2.Cells[i,j]:='0';

break;
end;
end;
end;
end;

if mode = 0 then
Edit2.Text:=value;
end;

procedure TForm1.Button1Click(Sender: TObject); //запись
begin
Cache(UpDown1.Position,Edit2.Text,1,InCache);
end;

procedure TForm1.Button2Click(Sender: TObject); //чтение
begin
Cache(UpDown1.Position,'',0,InCache);
end;

procedure TForm1.Button4Click(Sender: TObject);
var i,addr1,addr2,k_in: integer;
begin
addr1:=StrToInt(Edit3.Text);
addr2:=StrToInt(Edit4.Text);
k_in:=0;
ProgressBar1.Min:=0;
ProgressBar1.Max:=addr2-addr1;
Randomize;
if RadioGroup1.ItemIndex = 0 then //последовательные адреса
for i:=addr1 to addr2 do
begin
Cache(i,'',0,InCache);
if InCache = 1 then inc(k_in);
Label9.Caption:=FloatToStrF(k_in/(i-addr1+1),ffFixed,16,3);
ProgressBar1.StepIt;
Refresh;
end
else //случайные
for i:=addr1 to addr2 do
begin
Cache(addr1+random(addr2-addr1+1),'',0,InCache);
if InCache = 1 then inc(k_in);
Label9.Caption:=FloatToStrF(k_in/(i-addr1+1),ffFixed,16,3);
ProgressBar1.StepIt;
Refresh;
end;
end;

end.