Лабораторная работа - Сетевая объектная модель
Подождите немного. Документ загружается.
Министерство образования и науки Российской Федерации
Череповецкий Государственный университет
Инженерно –
экономический
институт
Кафедра Программного
Обеспечения ЭВМ
Дисциплина:
ТВП
Лабораторная работа №3
“Сетевая объектная модель”.
Выполнила:
Гр. 5ПО – 31
Колтакова И.Е.
Проверила:
Ганичева О.Г.
Череповец, 2006
Цель работы
Изучить основные понятия сетей Петри и способы их задания.
Задание:
1) Построить сеть Петри, эквивалентную автомату из работы №2.
2) Написать программу, моделирующую работу этой сети.
Количество позиций:
V1,V2,V3,V4,q0,q1,q2,q3,q4,q5,q6,q7,q8,q9,q10,W1,W2,W3,W4,W5,W6.
Количество переходов:
t1,t2,t3,t4,t5,t6,t7,t8,t9,t10,t11,t12,t13,t14,t15,t16,t17,t18,t19,t20,t21,t22.
Листинг программы:
var
Form1: TForm1;
mas,mas1: array [1..21] of integer;
S:String;
t1:record
I:array [1..21] of integer; O:array [1..21] of integer; end;
t2:record
I:array [1..21] of integer; O:array [1..21] of integer; end;
t3:record
I:array [1..21] of integer; O:array [1..21] of integer; end;
t4:record
I:array [1..21] of integer; O:array [1..21] of integer; end;
t5:record
I:array [1..21] of integer; O:array [1..21] of integer; end;
t6:record
I:array [1..21] of integer; O:array [1..21] of integer; end;
t7:record
I:array [1..21] of integer; O:array [1..21] of integer; end;
t8:record
I:array [1..21] of integer; O:array [1..21] of integer; end;
t9:record
I:array [1..21] of integer; O:array [1..21] of integer; end;
t10:record
I:array [1..21] of integer; O:array [1..21] of integer; end;
t11:record
I:array [1..21] of integer; O:array [1..21] of integer; end;
t12:record
I:array [1..21] of integer; O:array [1..21] of integer; end;
t13:record
I:array [1..21] of integer; O:array [1..21] of integer; end;
t14:record
I:array [1..21] of integer; O:array [1..21] of integer; end;
t15:record
I:array [1..21] of integer; O:array [1..21] of integer; end;
t16:record
I:array [1..21] of integer; O:array [1..21] of integer; end;
t17:record
I:array [1..21] of integer; O:array [1..21] of integer; end;
t18:record
I:array [1..21] of integer; O:array [1..21] of integer; end;
t19:record
I:array [1..21] of integer; O:array [1..21] of integer end;
t20:record
I:array [1..21] of integer; O:array [1..21] of integer; end;
t21:record
I:array [1..21] of integer; O:array [1..21] of integer; end;
t22:record
I:array [1..21] of integer; O:array [1..21] of integer; end;
implementation
{$R *.dfm}
procedure Mark();
var i:integer;
begin
for i:=0 to 20 do begin
mas[i+1]:=StrToInt(Form1.StringGrid1.Cells[i,1]);
mas1[i+1]:=0;end;end;
procedure TForm1.FormCreate(Sender: TObject);
var i,j:integer;
begin
StringGrid2.Cells[1,0]:='t1';StringGrid2.Cells[2,0]:='t2';StringGrid2.Cells[3,0]:='t3';StringGrid2.Cells[4,0]:='t4';
StringGrid2.Cells[5,0]:='t5';StringGrid2.Cells[6,0]:='t6';StringGrid2.Cells[7,0]:='t7';StringGrid2.Cells[8,0]:='t8';
StringGrid2.Cells[9,0]:='t9';StringGrid2.Cells[10,0]:='t10';StringGrid2.Cells[11,0]:='t11';StringGrid2.Cells[12,0]:='t12';
StringGrid2.Cells[13,0]:='t13';StringGrid2.Cells[14,0]:='t14';StringGrid2.Cells[15,0]:='t15';StringGrid2.Cells[16,0]:='t16';
StringGrid2.Cells[17,0]:='t17';StringGrid2.Cells[18,0]:='t18';StringGrid2.Cells[19,0]:='t19';StringGrid2.Cells[20,0]:='t20';
StringGrid2.Cells[21,0]:='t21';StringGrid2.Cells[22,0]:='t22';
//---------------------------------------------------------
StringGrid2.Cells[0,1]:='V1';StringGrid2.Cells[0,2]:='V2';StringGrid2.Cells[0,3]:='V3';StringGrid2.Cells[0,4]:='V4';
StringGrid2.Cells[0,5]:='q0';StringGrid2.Cells[0,6]:='q1';StringGrid2.Cells[0,7]:='q2';StringGrid2.Cells[0,8]:='q3';
StringGrid2.Cells[0,9]:='q4';StringGrid2.Cells[0,10]:='q5';StringGrid2.Cells[0,11]:='q6';StringGrid2.Cells[0,12]:='q7';
StringGrid2.Cells[0,13]:='q8';StringGrid2.Cells[0,14]:='q9';StringGrid2.Cells[0,15]:='q10';StringGrid2.Cells[0,16]:='W1';
StringGrid2.Cells[0,17]:='W2';StringGrid2.Cells[0,18]:='W3';StringGrid2.Cells[0,19]:='W4';StringGrid2.Cells[0,20]:='W5';
StringGrid2.Cells[0,21]:='W6';
//---------------------------------------------------------
StringGrid3.Cells[1,0]:='t1';StringGrid3.Cells[2,0]:='t2';StringGrid3.Cells[3,0]:='t3';StringGrid3.Cells[4,0]:='t4';
StringGrid3.Cells[5,0]:='t5';StringGrid3.Cells[6,0]:='t6';StringGrid3.Cells[7,0]:='t7';StringGrid3.Cells[8,0]:='t8';
StringGrid3.Cells[9,0]:='t9';StringGrid3.Cells[10,0]:='t10'; StringGrid3.Cells[11,0]:='t11';StringGrid3.Cells[12,0]:='t12';
StringGrid3.Cells[13,0]:='t13';StringGrid3.Cells[14,0]:='t14';StringGrid3.Cells[15,0]:='t15';StringGrid3.Cells[16,0]:='t16';
StringGrid3.Cells[17,0]:='t17';StringGrid3.Cells[18,0]:='t18';StringGrid3.Cells[19,0]:='t19';StringGrid3.Cells[20,0]:='t20';
StringGrid3.Cells[21,0]:='t21';StringGrid3.Cells[22,0]:='t22';
//---------------------------------------------------------
StringGrid3.Cells[0,1]:='V1';StringGrid3.Cells[0,2]:='V2';StringGrid3.Cells[0,3]:='V3';StringGrid3.Cells[0,4]:='V4';
StringGrid3.Cells[0,5]:='q0';StringGrid3.Cells[0,6]:='q1';StringGrid3.Cells[0,7]:='q2';StringGrid3.Cells[0,8]:='q3';
StringGrid3.Cells[0,9]:='q4';StringGrid3.Cells[0,10]:='q5';StringGrid3.Cells[0,11]:='q6';StringGrid3.Cells[0,12]:='q7';
StringGrid3.Cells[0,13]:='q8';StringGrid3.Cells[0,14]:='q9';StringGrid3.Cells[0,15]:='q10';StringGrid3.Cells[0,16]:='W1';
StringGrid3.Cells[0,17]:='W2';StringGrid3.Cells[0,18]:='W3';StringGrid3.Cells[0,19]:='W4';StringGrid3.Cells[0,20]:='W5';
StringGrid3.Cells[0,21]:='W6';
//----------------------------------------------------------
StringGrid1.Cells[0,0]:='V1';StringGrid1.Cells[1,0]:='V2';StringGrid1.Cells[2,0]:='V3';StringGrid1.Cells[3,0]:='V4';
StringGrid1.Cells[4,0]:='q0';StringGrid1.Cells[5,0]:='q1';StringGrid1.Cells[6,0]:='q2';StringGrid1.Cells[7,0]:='q3';
StringGrid1.Cells[8,0]:='q4';StringGrid1.Cells[9,0]:='q5';StringGrid1.Cells[10,0]:='q6';StringGrid1.Cells[11,0]:='q7';
StringGrid1.Cells[12,0]:='q8';StringGrid1.Cells[13,0]:='q9';StringGrid1.Cells[14,0]:='q10';StringGrid1.Cells[15,0]:='W1';
StringGrid1.Cells[16,0]:='W2';StringGrid1.Cells[17,0]:='W3';StringGrid1.Cells[18,0]:='W4';StringGrid1.Cells[19,0]:='W5';
StringGrid1.Cells[20,0]:='W6';
//---------------------------------------------------------
StringGrid4.Cells[0,0]:='V1';StringGrid4.Cells[1,0]:='V2';StringGrid4.Cells[2,0]:='V3';StringGrid4.Cells[3,0]:='V4';
StringGrid4.Cells[4,0]:='q0';StringGrid4.Cells[5,0]:='q1';StringGrid4.Cells[6,0]:='q2';StringGrid4.Cells[7,0]:='q3';
StringGrid4.Cells[8,0]:='q4';StringGrid4.Cells[9,0]:='q5';StringGrid4.Cells[10,0]:='q6';StringGrid4.Cells[11,0]:='q7';
StringGrid4.Cells[12,0]:='q8';StringGrid4.Cells[13,0]:='q9';StringGrid4.Cells[14,0]:='q10';StringGrid4.Cells[15,0]:='W1';
StringGrid4.Cells[16,0]:='W2';StringGrid4.Cells[17,0]:='W3';StringGrid4.Cells[18,0]:='W4';StringGrid4.Cells[19,0]:='W5';
StringGrid4.Cells[20,0]:='W6';
//---------------------------------------------------------
StringGrid2.Cells[1,1]:='1';StringGrid2.Cells[1,2]:='0';StringGrid2.Cells[1,3]:='0';StringGrid2.Cells[1,4]:='0';
StringGrid2.Cells[1,5]:='1';
for i:=6 to 21 do begin
StringGrid2.Cells[1,i]:='0';end;
for j:=2 to 4 do
for i:=1 to 21 do begin
StringGrid2.Cells[j,i]:='0' ;end;
StringGrid2.Cells[5,1]:='0' ;StringGrid2.Cells[5,2]:='0' ;StringGrid2.Cells[5,3]:='0' ;StringGrid2.Cells[5,4]:='1' ;
StringGrid2.Cells[5,5]:='0' ;StringGrid2.Cells[5,6]:='1' ;
for i:=7 to 21 do begin
StringGrid2.Cells[5,i]:='0' ;end;
for j:=6 to 8 do for i:=1 to 21 do begin
StringGrid2.Cells[j,i]:='0' ;end;
StringGrid2.Cells[9,1]:='0' ;StringGrid2.Cells[9,2]:='0' ;
StringGrid2.Cells[9,3]:='1' ;
for i:=4 to 9 do begin
StringGrid2.Cells[9,i]:='0' ;end;
StringGrid2.Cells[9,10]:='1';
for i:=11 to 21 do begin
StringGrid2.Cells[9,i]:='0' ;end;
for j:=10 to 19 do
for i:=1 to 21 do begin
StringGrid2.Cells[j,i]:='0' ;end;
StringGrid2.Cells[20,1]:='0' ;StringGrid2.Cells[20,2]:='0' ;
StringGrid2.Cells[20,3]:='0' ;StringGrid2.Cells[20,4]:='1' ;
for i:=5 to 13 do begin
StringGrid2.Cells[20,i]:='0' ;end;
StringGrid2.Cells[20,14]:='1' ;
for i:=15 to 21 do begin
StringGrid2.Cells[20,i]:='0' ; end;
for j:=21 to 22 do
for i:=1 to 21 do begin
StringGrid2.Cells[j,i]:='0' ;end;
//----------------------------------------------------------
for i:=1 to 5 do begin
StringGrid3.Cells[1,i]:='0' ;end;
StringGrid3.Cells[1,6]:='1' ;
for i:=7 to 15 do begin
StringGrid3.Cells[1,i]:='0' ;end;
StringGrid3.Cells[1,16]:='1' ;
for i:=17 to 21 do begin
StringGrid3.Cells[1,i]:='0' ;end;
for j:=2 to 4 do
for i:=1 to 21 do begin
StringGrid3.Cells[j,i]:='0' ;end;
for i:=1 to 9 do begin
StringGrid3.Cells[5,i]:='0' ;end;
StringGrid3.Cells[5,10]:='1' ;
for i:=11 to 21 do begin
StringGrid3.Cells[5,i]:='0' ;end;
for j:=6 to 8 do
for i:=1 to 21 do begin
StringGrid3.Cells[j,i]:='0' ;end;
for i:=1 to 13 do begin
StringGrid3.Cells[9,i]:='0' ;end;
StringGrid3.Cells[9,14]:='1' ;
for i:=15 to 21 do begin
StringGrid3.Cells[9,i]:='0' ;end;
for j:=10 to 19 do
for i:=1 to 21 do begin
StringGrid3.Cells[j,i]:='0' ;end;
for i:=1 to 4 do begin
StringGrid3.Cells[20,i]:='0' ;end;
StringGrid3.Cells[20,5]:='1' ;
for i:=6 to 19 do begin
StringGrid3.Cells[20,i]:='0' ;end;
StringGrid3.Cells[20,20]:='1' ;
StringGrid3.Cells[20,21]:='0' ;
for j:=21 to 22 do
for i:=1 to 21 do begin
StringGrid3.Cells[j,i]:='0' ;end;
//-----------------------------------------------------------
Form1.StringGrid1.Cells[0,1]:='1';Form1.StringGrid1.Cells[1,1]:='0';
Form1.StringGrid1.Cells[2,1]:='1';Form1.StringGrid1.Cells[3,1]:='2';
Form1.StringGrid1.Cells[4,1]:='1';
for i:=5 to 20 do begin
Form1.StringGrid1.Cells[i,1]:='0';end;
BitBtn1.Enabled:=false;BitBtn2.Enabled:=false;BitBtn3.Enabled:=false;BitBtn4.Enabled:=false;
BitBtn5.Enabled:=false;BitBtn6.Enabled:=false;BitBtn7.Enabled:=false;BitBtn8.Enabled:=false;
BitBtn9.Enabled:=false;BitBtn10.Enabled:=false;BitBtn11.Enabled:=false;BitBtn12.Enabled:=false;
BitBtn13.Enabled:=false;BitBtn14.Enabled:=false;BitBtn15.Enabled:=false;BitBtn16.Enabled:=false;
BitBtn17.Enabled:=false;BitBtn19.Enabled:=false;BitBtn20.Enabled:=false;BitBtn21.Enabled:=false;
BitBtn22.Enabled:=false;BitBtn23.Enabled:=false;end;
Procedure Tform1.D();
var i:integer;
begin
for i:=1 to 21 do begin
t1.I[i]:=StrToInt(StringGrid2.Cells[1,i]);end; for i:=1 to 21 do begin t1.O[i]:=StrToInt(StringGrid3.Cells[1,i]);end;
for i:=1 to 21 do begin
t2.I[i]:=StrToInt(StringGrid2.Cells[2,i]);end; for i:=1 to 21 do begin t2.O[i]:=StrToInt(StringGrid3.Cells[2,i]);end;
for i:=1 to 21 do begin
t3.I[i]:=StrToInt(StringGrid2.Cells[3,i]);end; for i:=1 to 21 do begin t3.O[i]:=StrToInt(StringGrid3.Cells[3,i]);end;
for i:=1 to 21 do begin
t4.I[i]:=StrToInt(StringGrid2.Cells[4,i]);end; for i:=1 to 21 do begin t4.O[i]:=StrToInt(StringGrid3.Cells[4,i]);end;
for i:=1 to 21 do begin
t5.I[i]:=StrToInt(StringGrid2.Cells[5,i]);end; for i:=1 to 21 do begin t5.O[i]:=StrToInt(StringGrid3.Cells[5,i]);end;
for i:=1 to 21 do begin
t6.I[i]:=StrToInt(StringGrid2.Cells[6,i]);end; for i:=1 to 21 do begin t6.O[i]:=StrToInt(StringGrid3.Cells[6,i]);end;
for i:=1 to 21 do begin
t7.I[i]:=StrToInt(StringGrid2.Cells[7,i]);end; for i:=1 to 21 do begin t7.O[i]:=StrToInt(StringGrid3.Cells[7,i]);end;
for i:=1 to 21 do begin
t8.I[i]:=StrToInt(StringGrid2.Cells[8,i]);end; for i:=1 to 21 do begin t8.O[i]:=StrToInt(StringGrid3.Cells[8,i]);end;
for i:=1 to 21 do begin
t9.I[i]:=StrToInt(StringGrid2.Cells[9,i]);end; for i:=1 to 21 do begin t9.O[i]:=StrToInt(StringGrid3.Cells[9,i]);end;
for i:=1 to 21 do begin
t10.I[i]:=StrToInt(StringGrid2.Cells[10,i]);end; for i:=1 to 21 do begin t10.O[i]:=StrToInt(StringGrid3.Cells[10,i]);end;
for i:=1 to 21 do begin
t11.I[i]:=StrToInt(StringGrid2.Cells[11,i]);end; for i:=1 to 21 do begin t11.O[i]:=StrToInt(StringGrid3.Cells[11,i]);end;
for i:=1 to 21 do begin
t12.I[i]:=StrToInt(StringGrid2.Cells[12,i]);end; for i:=1 to 21 do begin t12.O[i]:=StrToInt(StringGrid3.Cells[12,i]);end;
for i:=1 to 21 do begin
t13.I[i]:=StrToInt(StringGrid2.Cells[13,i]);end; for i:=1 to 21 do begin t13.O[i]:=StrToInt(StringGrid3.Cells[13,i]);end;
for i:=1 to 21 do begin
t14.I[i]:=StrToInt(StringGrid2.Cells[14,i]);end; for i:=1 to 21 do begin t14.O[i]:=StrToInt(StringGrid3.Cells[14,i]);end;
for i:=1 to 21 do begin
t15.I[i]:=StrToInt(StringGrid2.Cells[15,i]);end; for i:=1 to 21 do begin t15.O[i]:=StrToInt(StringGrid3.Cells[15,i]);end;
for i:=1 to 21 do begin
t16.I[i]:=StrToInt(StringGrid2.Cells[16,i]);end; for i:=1 to 21 do begin t16.O[i]:=StrToInt(StringGrid3.Cells[16,i]);end;
for i:=1 to 21 do begin
t17.I[i]:=StrToInt(StringGrid2.Cells[17,i]); end; for i:=1 to 21 do begin t17.O[i]:=StrToInt(StringGrid3.Cells[17,i]); end;
for i:=1 to 21 do begin
t18.I[i]:=StrToInt(StringGrid2.Cells[18,i]); end; for i:=1 to 21 do begin t18.O[i]:=StrToInt(StringGrid3.Cells[18,i]); end;
for i:=1 to 21 do begin
t19.I[i]:=StrToInt(StringGrid2.Cells[19,i]); end; for i:=1 to 21 do begin t19.O[i]:=StrToInt(StringGrid3.Cells[19,i]); end;
for i:=1 to 21 do begin
t20.I[i]:=StrToInt(StringGrid2.Cells[20,i]);end; for i:=1 to 21 do begin t20.O[i]:=StrToInt(StringGrid3.Cells[20,i]); end;
for i:=1 to 21 do begin
t21.I[i]:=StrToInt(StringGrid2.Cells[21,i]); end; for i:=1 to 21 do begin t21.O[i]:=StrToInt(StringGrid3.Cells[21,i]); end;
for i:=1 to 21 do begin
t22.I[i]:=StrToInt(StringGrid2.Cells[22,i]); end; for i:=1 to 21 do begin t22.O[i]:=StrToInt(StringGrid3.Cells[22,i]); end; end;
procedure TForm1.BitBtn1Click(Sender: TObject);
var i:integer;
begin for i:=1 to 21 do begin mas[i]:=mas[i]-t1.I[i]; mas[i]:=mas[i]+t1.O[i];
StringGrid4.Cells[i-1,1]:=inttostr(mas[i]);end;end;
procedure TForm1.BitBtn2Click(Sender: TObject);
var i:integer;
begin for i:=1 to 21 do begin mas[i]:=mas[i]-t2.I[i]; mas[i]:=mas[i]+t2.O[i];
StringGrid4.Cells[i-1,1]:=inttostr(mas[i]);end;end;
procedure TForm1.BitBtn3Click(Sender: TObject);
var i:integer;
begin for i:=1 to 21 do begin mas[i]:=mas[i]-t3.I[i]; mas[i]:=mas[i]+t3.O[i];
StringGrid4.Cells[i-1,1]:=inttostr(mas[i]);end;end;
procedure TForm1.BitBtn4Click(Sender: TObject);
var i:integer;
begin for i:=1 to 21 do begin mas[i]:=mas[i]-t4.I[i]; mas[i]:=mas[i]+t4.O[i];
StringGrid4.Cells[i-1,1]:=inttostr(mas[i]);end;end;
procedure TForm1.BitBtn5Click(Sender: TObject);
var i:integer;
begin for i:=1 to 21 do begin mas[i]:=mas[i]-t5.I[i]; mas[i]:=mas[i]+t5.O[i];
StringGrid4.Cells[i-1,1]:=inttostr(mas[i]);end;end;
procedure TForm1.BitBtn6Click(Sender: TObject);
var i:integer;
begin for i:=1 to 21 do begin mas[i]:=mas[i]-t6.I[i]; mas[i]:=mas[i]+t6.O[i];
StringGrid4.Cells[i-1,1]:=inttostr(mas[i]);end;end;
procedure TForm1.BitBtn7Click(Sender: TObject);
var i:integer;
begin for i:=1 to 21 do begin mas[i]:=mas[i]-t7.I[i]; mas[i]:=mas[i]+t7.O[i];
StringGrid4.Cells[i-1,1]:=inttostr(mas[i]);end;end;
procedure TForm1.BitBtn8Click(Sender: TObject);
var i:integer;
begin for i:=1 to 21 do begin mas[i]:=mas[i]-t8.I[i]; mas[i]:=mas[i]+t8.O[i];
StringGrid4.Cells[i-1,1]:=inttostr(mas[i]);end;end;
procedure TForm1.BitBtn9Click(Sender: TObject);
var i:integer;
begin for i:=1 to 21 do begin mas[i]:=mas[i]+t9.O[i];
StringGrid4.Cells[i-1,1]:=inttostr(mas[i]);end;end;
procedure TForm1.BitBtn10Click(Sender: TObject);
var i:integer;
begin for i:=1 to 21 do begin mas[i]:=mas[i]-t10.I[i]; mas[i]:=mas[i]+t10.O[i];
StringGrid4.Cells[i-1,1]:=inttostr(mas[i]);end;end;
procedure TForm1.BitBtn11Click(Sender: TObject);
var i:integer;
begin for i:=1 to 21 do begin mas[i]:=mas[i]-t11.I[i]; mas[i]:=mas[i]+t11.O[i];
StringGrid4.Cells[i-1,1]:=inttostr(mas[i]); BitBtn11.Enabled:=False;end;end;
procedure TForm1.BitBtn12Click(Sender: TObject);
var i:integer;
begin for i:=1 to 21 do begin mas[i]:=mas[i]-t12.I[i]; mas[i]:=mas[i]+t12.O[i];
StringGrid4.Cells[i-1,1]:=inttostr(mas[i]); BitBtn12.Enabled:=False;end;end;
procedure TForm1.BitBtn13Click(Sender: TObject);
var i:integer;
begin for i:=1 to 21 do begin mas[i]:=mas[i]-t13.I[i]; mas[i]:=mas[i]+t13.O[i];
StringGrid4.Cells[i-1,1]:=inttostr(mas[i]); BitBtn13.Enabled:=False;end;end;
procedure TForm1.BitBtn14Click(Sender: TObject);
var i:integer;
begin for i:=1 to 21 do begin mas[i]:=mas[i]-t14.I[i]; mas[i]:=mas[i]+t14.O[i];
StringGrid4.Cells[i-1,1]:=inttostr(mas[i]); BitBtn14.Enabled:=False;end;end;
procedure TForm1.BitBtn15Click(Sender: TObject);
var i:integer;
begin for i:=1 to 21 do begin mas[i]:=mas[i]-t15.I[i]; mas[i]:=mas[i]+t15.O[i];
StringGrid4.Cells[i-1,1]:=inttostr(mas[i]); BitBtn15.Enabled:=False;end;end;
procedure TForm1.BitBtn16Click(Sender: TObject);
var i:integer;
begin for i:=1 to 21 do begin mas[i]:=mas[i]-t16.I[i]; mas[i]:=mas[i]+t16.O[i];
StringGrid4.Cells[i-1,1]:=inttostr(mas[i]); BitBtn16.Enabled:=False;end;end;
procedure TForm1.BitBtn17Click(Sender: TObject);
var i:integer;
begin for i:=1 to 21 do begin mas[i]:=mas[i]-t17.I[i];
mas[i]:=mas[i]+t17.O[i]; StringGrid4.Cells[i-1,1]:=inttostr(mas[i]);
BitBtn17.Enabled:=False;end;end;
procedure TForm1.BitBtn19Click(Sender: TObject);
var i:integer;
begin for i:=1 to 21 do begin mas[i]:=mas[i]-t18.I[i]; mas[i]:=mas[i]+t18.O[i];
StringGrid4.Cells[i-1,1]:=inttostr(mas[i]); BitBtn19.Enabled:=False;end;end;
procedure TForm1.BitBtn20Click(Sender: TObject);
var i:integer;
begin for i:=1 to 21 do begin mas[i]:=mas[i]-t19.I[i]; mas[i]:=mas[i]+t19.O[i];
StringGrid4.Cells[i-1,1]:=inttostr(mas[i]); BitBtn20.Enabled:=False;end;end;
procedure TForm1.BitBtn21Click(Sender: TObject);
var i:integer;
begin for i:=1 to 21 do begin mas[i]:=mas[i]-t20.I[i]; mas[i]:=mas[i]+t20.O[i];
StringGrid4.Cells[i-1,1]:=inttostr(mas[i]); BitBtn21.Enabled:=False;end;end;
procedure TForm1.BitBtn22Click(Sender: TObject);
var i:integer;
begin for i:=1 to 21 do begin mas[i]:=mas[i]-t21.I[i]; mas[i]:=mas[i]+t21.O[i];
StringGrid4.Cells[i-1,1]:=inttostr(mas[i]); BitBtn22.Enabled:=False;end;end;
procedure TForm1.BitBtn23Click(Sender: TObject);
var i:integer;
begin for i:=1 to 21 do begin mas[i]:=mas[i]-t22.I[i]; mas[i]:=mas[i]+t22.O[i];
StringGrid4.Cells[i-1,1]:=inttostr(mas[i]); BitBtn23.Enabled:=False;end;end;
procedure TForm1.BitBtn18Click(Sender: TObject);
var i,j:integer;
begin D(); Mark();
if stringGrid4.Cells[20,1]=inttostr(0) then begin for i:=1 to 21 do
mas[i]:=strtoint(Form1.StringGrid4.Cells[i-1,1]); end;
//проверяем первый переход
for i:=1 to 4 do begin if (t1.I[i]<>0)and(mas[i]<>0)
then for j:=5 to 21 do begin
if (t1.I[j]<>0)and(mas[j]<>0) then begin
Form1.BitBtn1.Enabled:=true; break;end else
Form1.BitBtn1.Enabled:=false;end;end;
//проверяем второй переход
for i:=1 to 4 do begin if (t2.I[i]<>0)and(mas[i]<>0)
then for j:=5 to 21 do begin
if (t2.I[j]<>0)and(mas[j]<>0) then begin
Form1.BitBtn2.Enabled:=true; break;end else
Form1.BitBtn2.Enabled:=false;end;end;
//проверяем третий преход
for i:=1 to 4 do begin if (t3.I[i]<>0)and(mas[i]<>0)
then for j:=5 to 21 do begin
if (t3.I[j]<>0)and(mas[j]<>0) then begin
Form1.BitBtn3.Enabled:=true;
Form1.BitBtn1.Enabled:=false; break;end else
Form1.BitBtn3.Enabled:=false;end;end;
//проверяем четвёртый переход
for i:=1 to 4 do begin if (t4.I[i]<>0)and(mas[i]<>0)
then for j:=5 to 21 do begin
if (t4.I[j]<>0)and(mas[j]<>0) then begin
Form1.BitBtn4.Enabled:=true;
Form1.BitBtn2.Enabled:=false; break;end else
Form1.BitBtn4.Enabled:=false;end;end;
//проверяем пятый переход
for i:=1 to 4 do begin if (t5.I[i]<>0)and(mas[i]<>0)
then for j:=5 to 21 do begin
if (t5.I[j]<>0)and(mas[j]<>0) then begin
Form1.BitBtn5.Enabled:=true;
Form1.BitBtn1.Enabled:=false; break;end else
Form1.BitBtn5.Enabled:=false;end;end;
//проверяем шестой переход
for i:=1 to 4 do begin if (t6.I[i]<>0)and(mas[i]<>0)
then for j:=5 to 21 do begin
if (t6.I[j]<>0)and(mas[j]<>0) then begin
Form1.BitBtn6.Enabled:=true;
Form1.BitBtn2.Enabled:=false; break;end else
Form1.BitBtn6.Enabled:=false;end;end;
//проверяем седьмой переход
for i:=1 to 4 do begin if (t7.I[i]<>0)and(mas[i]<>0)
then for j:=5 to 21 do begin
if (t7.I[j]<>0)and(mas[j]<>0) then begin
Form1.BitBtn7.Enabled:=true;
Form1.BitBtn3.Enabled:=false; break;end else
Form1.BitBtn7.Enabled:=false;end;end;
//проверяем 8 переход
for i:=1 to 4 do begin if (t8.I[i]<>0)and(mas[i]<>0)
then for j:=5 to 21 do begin
if (t8.I[j]<>0)and(mas[j]<>0) then begin
Form1.BitBtn8.Enabled:=true;
Form1.BitBtn3.Enabled:=false; break;end else
Form1.BitBtn8.Enabled:=false;end;end;
//проверяем 9 переход
for i:=1 to 4 do begin if (t9.I[i]<>0)and(mas[i]<>0)
then for j:=5 to 21 do begin
if (t9.I[j]<>0)and(mas[j]<>0) then begin
Form1.BitBtn9.Enabled:=true;
Form1.BitBtn5.Enabled:=false; break;end else
Form1.BitBtn9.Enabled:=false;end;end;
//проверяем 10 переход
for i:=1 to 4 do begin if (t10.I[i]<>0)and(mas[i]<>0)
then for j:=5 to 21 do begin
if (t10.I[j]<>0)and(mas[j]<>0) then begin
Form1.BitBtn10.Enabled:=true;
Form1.BitBtn5.Enabled:=false; break;end else
Form1.BitBtn10.Enabled:=false;end;end;
//проверяем 11 переход
for i:=1 to 4 do begin if (t11.I[i]<>0)and(mas[i]<>0)
then for j:=5 to 21 do begin
if (t11.I[j]<>0)and(mas[j]<>0) then begin
Form1.BitBtn11.Enabled:=true;
Form1.BitBtn4.Enabled:=false; break;end else
Form1.BitBtn11.Enabled:=false;end;end;
//проверяем 12 переход
for i:=1 to 4 do begin if (t12.I[i]<>0)and(mas[i]<>0)
then for j:=5 to 21 do begin
if (t12.I[j]<>0)and(mas[j]<>0) then begin
Form1.BitBtn12.Enabled:=true;
Form1.BitBtn4.Enabled:=false; break;end else
Form1.BitBtn12.Enabled:=false;end;end;
//проверяем 13 переход
for i:=1 to 4 do begin if (t13.I[i]<>0)and(mas[i]<>0)
then for j:=5 to 21 do begin
if (t13.I[j]<>0)and(mas[j]<>0) then begin
Form1.BitBtn13.Enabled:=true;
Form1.BitBtn6.Enabled:=false; break;end else
Form1.BitBtn13.Enabled:=false;end;end;
//проверяем 14 переход
for i:=1 to 4 do begin if (t14.I[i]<>0)and(mas[i]<>0)
then for j:=5 to 21 do begin
if (t14.I[j]<>0)and(mas[j]<>0) then begin
Form1.BitBtn14.Enabled:=true;
Form1.BitBtn6.Enabled:=false; break;end else
Form1.BitBtn14.Enabled:=false;end;end;
//проверяем 15 переход
for i:=1 to 4 do begin if (t15.I[i]<>0)and(mas[i]<>0)
then for j:=5 to 21 do begin
if (t15.I[j]<>0)and(mas[j]<>0) then begin
Form1.BitBtn15.Enabled:=true;
Form1.BitBtn7.Enabled:=false; break;end else
Form1.BitBtn15.Enabled:=false;end;end;
//проверяем 16 переход
for i:=1 to 4 do begin if (t16.I[i]<>0)and(mas[i]<>0)
then for j:=5 to 21 do begin
if (t16.I[j]<>0)and(mas[j]<>0) then begin
Form1.BitBtn16.Enabled:=true;
Form1.BitBtn7.Enabled:=false; break;end else
Form1.BitBtn16.Enabled:=false;end;end;
//проверяем 17 переход
for i:=1 to 4 do begin if (t17.I[i]<>0)and(mas[i]<>0)
then for j:=5 to 21 do begin
if (t17.I[j]<>0)and(mas[j]<>0) then begin
Form1.BitBtn17.Enabled:=true;
Form1.BitBtn8.Enabled:=false; break;end else
Form1.BitBtn17.Enabled:=false;end;end;
//проверяем 18 переход
for i:=1 to 4 do begin if (t18.I[i]<>0)and(mas[i]<>0)
then for j:=5 to 21 do begin
if (t18.I[j]<>0)and(mas[j]<>0) then begin
Form1.BitBtn19.Enabled:=true;
Form1.BitBtn8.Enabled:=false; break;end else
Form1.BitBtn19.Enabled:=false;end;end;
//проверяем 19 переход
for i:=1 to 4 do begin if (t19.I[i]<>0)and(mas[i]<>0)
then for j:=5 to 21 do begin
if (t19.I[j]<>0)and(mas[j]<>0) then begin
Form1.BitBtn20.Enabled:=true;
Form1.BitBtn9.Enabled:=false; break;end else
Form1.BitBtn20.Enabled:=false;end;end;
//проверяем 20 переход
for i:=1 to 4 do begin if (t20.I[i]<>0)and(mas[i]<>0)
then for j:=5 to 21 do begin
if (t20.I[j]<>0)and(mas[j]<>0) then begin
Form1.BitBtn21.Enabled:=true;
Form1.BitBtn9.Enabled:=false; break;end else
Form1.BitBtn21.Enabled:=false;end;end;
//проверяем 21 переход
for i:=1 to 4 do begin if (t21.I[i]<>0)and(mas[i]<>0)
then for j:=5 to 21 do begin
if (t21.I[j]<>0)and(mas[j]<>0) then begin
Form1.BitBtn22.Enabled:=true;
Form1.BitBtn10.Enabled:=false; break;end else
Form1.BitBtn22.Enabled:=false;end;end;
//проверяем 22 переход
for i:=1 to 4 do begin if (t22.I[i]<>0)and(mas[i]<>0)
then for j:=5 to 21 do begin
if (t22.I[j]<>0)and(mas[j]<>0) then begin
Form1.BitBtn23.Enabled:=true;
Form1.BitBtn10.Enabled:=false; break;end else
Form1.BitBtn23.Enabled:=false;end;end;
if (Form1.BitBtn1.Enabled=false) and (Form1.BitBtn2.Enabled=false) and (Form1.BitBtn3.Enabled=false) and
(Form1.BitBtn4.Enabled=false) and (Form1.BitBtn5.Enabled=false) and (Form1.BitBtn6.Enabled=false) and
(Form1.BitBtn7.Enabled=false) and (Form1.BitBtn8.Enabled=false) and (Form1.BitBtn9.Enabled=false) and
(Form1.BitBtn10.Enabled=false) and (Form1.BitBtn11.Enabled=false) and (Form1.BitBtn12.Enabled=false) and
(Form1.BitBtn13.Enabled=false) and (Form1.BitBtn14.Enabled=false) and (Form1.BitBtn15.Enabled=false) and
(Form1.BitBtn16.Enabled=false) and (Form1.BitBtn17.Enabled=false) and (Form1.BitBtn19.Enabled=false) and
(Form1.BitBtn20.Enabled=false) and (Form1.BitBtn21.Enabled=false) and (Form1.BitBtn22.Enabled=false) and
(Form1.BitBtn23.Enabled=false)
then ShowMessage('Переходов нет');end;
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin for i:=0 to 20 do
StringGrid4.Cells[i,1]:=' ';
BitBtn7.Enabled:=false;BitBtn8.Enabled:=false;BitBtn9.Enabled:=false;BitBtn10.Enabled:=false;
BitBtn11.Enabled:=false;BitBtn12.Enabled:=false;BitBtn13.Enabled:=false;BitBtn14.Enabled:=false;
BitBtn15.Enabled:=false;BitBtn16.Enabled:=false;BitBtn17.Enabled:=false;BitBtn19.Enabled:=false;
BitBtn20.Enabled:=false;BitBtn21.Enabled:=false;BitBtn22.Enabled:=false;BitBtn23.Enabled:=false;end;end.
Результаты работы: