Archive / ОТКА / Синтез4 / Unit3

unit Unit3;

interface

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

type
  TForm3 = class(TForm)
    Edit1: TEdit;
    OK: TButton;
    Button2: TButton;
    del: TSpeedButton;
    tabl: TStringGrid;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    plus: TSpeedButton;
    umn: TSpeedButton;
    nul: TBitBtn;
    one: TBitBtn;
    skobl: TButton;
    skobr: TButton;
    Enter: TButton;
    procedure Button2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure tablClick(Sender: TObject);
    procedure plusClick(Sender: TObject);
    procedure umnClick(Sender: TObject);
    procedure OKClick(Sender: TObject);
    procedure delClick(Sender: TObject);
    procedure nulClick(Sender: TObject);
    procedure oneClick(Sender: TObject);
    procedure skoblClick(Sender: TObject);
    procedure skobrClick(Sender: TObject);
    procedure EnterClick(Sender: TObject);
    procedure Ent(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;
  kor,kop:array [1..50] of integer;
  ur:array [0..21,0..21] of boolean;
  oper:array [0..21,0..50] of integer;
  s,ns,p,np:array [0..21,0..21] of integer;
  ki,jj,ik,ii,n,m,i,j,k,k1,k2,k3,k4,k5,cod1,nur,per,op,inv,numscob:integer;
  usl1,open:boolean;
  y:TObject;
  ne,ne1:string;
  st:TListBox;
implementation

uses Unit1,Unit2;

{$R *.dfm}

procedure TForm3.Button2Click(Sender: TObject);
begin
for i:=0 to 49 do
  oper[form1.mmOutput.ItemIndex,i]:=kop[i+1];
form3.Close;
end;

procedure TForm3.FormActivate(Sender: TObject);
begin
ne:=form1.mmOutput.Items[form1.mmOutput.ItemIndex];
form3.Caption:='Ввод функции '+ne[1]+ne[2];
if unit1.uslD then
begin
k:=0;
k1:=-1;
k2:=0;
k3:=-1;
inv:=1;
for i:=0 to 11 do
begin
if tabl.Cells[i,0]<>'' then
  inc(k3);
if tabl.Cells[i,1]<>'' then
  begin
  inc(k);
  inv:=2;
  end;
end;
for i:=0 to k+k3 do
  begin
  inc(k1);
  tabl.Cells[k1,inv]:='n'+tabl.Cells[k1,k2];
  if i=11 then
    begin
    inc(inv);
    inc(k2);
    k1:=-1;
    end;
  end;
unit1.uslD:=false;
end;
per:=-1;
k5:=1;
n:=length(edit1.Text);
if n=3 then
begin
plus.Enabled:=false;
umn.Enabled:=false;
nul.Enabled:=true;
one.Enabled:=true;
tabl.Enabled:=true;
del.Enabled:=true;
skobl.Enabled:=true;
skobr.Enabled:=true;
ok.Enabled:=false;
enter.Enabled:=false;
end
else
begin
plus.Enabled:=true;
umn.Enabled:=true;
nul.Enabled:=false;
one.Enabled:=false;
tabl.Enabled :=false;
ok.Enabled:=false;
enter.Enabled:=false;
del.Enabled:=true;
skobl.Enabled:=true;
skobr.Enabled:=true;
end;
//if i=0 then
for i:=0 to 49 do
  begin
  kop[i+1]:=oper[form1.mmOutput.ItemIndex,i];
  //kor[i]:=0;
  end;
  ki:=0;
  numscob:=0;
for jj:=0 to 50 do
  if (oper[form1.mmOutput.ItemIndex,jj]>20)and(oper[form1.mmOutput.ItemIndex,jj]<100) then
   begin
   numscob:=oper[form1.mmOutput.ItemIndex,jj];
     if kor[ki]=numscob then
       dec(ki)
     else
       begin
       inc(ki);
       kor[ki]:=numscob;
       end;
   end;
i:=0;
if numscob=0 then
numscob:=21
else
inc(numscob);
//ki:=0;
end;

procedure TForm3.tablClick(Sender: TObject);
begin
if k1<>-1 then
begin
n:=tabl.Col;
m:=tabl.row;
if tabl.Cells[n,m]<>'' then
begin
ne:=Edit1.Text;
k:=length(ne);
if (i=0)and (k<>3) then
begin
repeat
inc(i);
until oper[form1.mmOutput.ItemIndex,i]=252;
oper[form1.mmOutput.ItemIndex,i]:=0;
end;
k:=1;
edit1.Text:=edit1.Text+tabl.Cells[n,m];


if ((m=1)or(m=3))and(inv=3) then
begin
oper[form1.mmOutput.ItemIndex,i]:=n+12;
inc(i);
end
else
begin
oper[form1.mmOutput.ItemIndex,i]:=n;
inc(i);
end;

if ((m=1)and(inv=1))or((m>1)and(inv=3)) then
begin
oper[form1.mmOutput.ItemIndex,i]:=250;
inc(i);
end;

plus.Enabled:=true;
umn.Enabled:=true;
nul.Enabled:=false;
one.Enabled:=false;
tabl.Enabled :=false;
enter.Enabled:=true;
end;
end;
end;

procedure TForm3.plusClick(Sender: TObject);
begin
ne:=Edit1.Text;
k:=length(ne);
if (i=0)and (k<>3) then
begin
repeat
inc(i);
until oper[form1.mmOutput.ItemIndex,i]=252;
oper[form1.mmOutput.ItemIndex,i]:=0;
end;
oper[form1.mmOutput.ItemIndex,i]:=240;
edit1.Text:=edit1.Text+'+';
plus.Enabled:=false;
umn.Enabled:=false;
nul.Enabled:=true;
one.Enabled:=true;
tabl.Enabled :=true;
enter.Enabled:=false;
inc(i);
end;

procedure TForm3.umnClick(Sender: TObject);
begin
ne:=Edit1.Text;
k:=length(ne);
if (i=0)and (k<>3) then
begin
repeat
inc(i);
until oper[form1.mmOutput.ItemIndex,i]=252;
oper[form1.mmOutput.ItemIndex,i]:=0;
end;
oper[form1.mmOutput.ItemIndex,i]:=230;
edit1.Text:=edit1.Text+'*';
plus.Enabled:=false;
umn.Enabled:=false;
nul.Enabled:=true;
one.Enabled:=true;
tabl.Enabled :=true;
enter.Enabled:=false;
inc(i);
end;

procedure TForm3.OKClick(Sender: TObject);
begin

if i<>0 then
begin
oper[form1.mmOutput.ItemIndex,i]:=252;
inc(op);
end;
form1.mmOutput.Items[form1.mmOutput.ItemIndex]:=Edit1.Text;
if op=Form1.mmOutput.Count then
open:=true;
if (open)and(Unit2.open)then
  begin
  Form1.bbOutputF.Caption:='Сброс';
  Form1.play.Enabled:=true;
  Form1.Next.Enabled:=true;
  Form1.f11.Enabled:=true;
  open:=False;
  Unit2.open:=false;
  end;

  
form3.Close;
end;

procedure TForm3.delClick(Sender: TObject);
begin
skobr.Enabled:=true;
skobl.Enabled:=true;
ne:=Edit1.Text;
k:=length(ne);
edit1.Text:=ne[1]+ne[2]+ne[3];
if (i=0)and (k<>3) then
begin
repeat
inc(i);
until oper[form1.mmOutput.ItemIndex,i]=252;
oper[form1.mmOutput.ItemIndex,i]:=0;
end;
if (ne[k]='0')or(ne[k]='I') then
begin
i:=i-1;
oper[form1.mmOutput.ItemIndex,i]:=0;
k:=k-1;
umn.Enabled:=false;
plus.Enabled:=false;
nul.Enabled:=true;
one.Enabled:=true;
tabl.Enabled :=true;
enter.Enabled:=false;
end
else
if (ne[k]='(')or(ne[k]=')') then
begin
i:=i-1;
oper[form1.mmOutput.ItemIndex,i]:=0;
k:=k-1;
ent(y);
if (ne[k]='(') then
begin
{dec(ki);
dec(numscob);
kor[ki]:=numscob;}
umn.Enabled:=false;
plus.Enabled:=false;
nul.Enabled:=true;
one.Enabled:=true;
tabl.Enabled :=true;
enter.Enabled:=true;
end;
if (ne[k]=')') then
begin
umn.Enabled:=true;
plus.Enabled:=true;
nul.Enabled:=false;
one.Enabled:=false;
tabl.Enabled :=false;
enter.Enabled:=false;
end;
end
else
if (ne[k]='+')or(ne[k]='*') then
begin
i:=i-1;
oper[form1.mmOutput.ItemIndex,i]:=0;
k:=k-1;
umn.Enabled:=true;
plus.Enabled:=true;
nul.Enabled:=false;
one.Enabled:=false;
tabl.Enabled :=false;
enter.Enabled:=true;
end
else
if ne[k-2]='n' then
begin
i:=i-1;
oper[form1.mmOutput.ItemIndex,i]:=0;
i:=i-1;
oper[form1.mmOutput.ItemIndex,i]:=0;
k:=k-3;
umn.Enabled:=false;
plus.Enabled:=false;
nul.Enabled:=true;
one.Enabled:=true;
tabl.Enabled :=true;
enter.Enabled:=false;
end
else
begin
if ne[k-3]='n' then
begin
i:=i-1;
oper[form1.mmOutput.ItemIndex,i]:=0;
k:=k-2;
end;
if ne[k-2]='S' then
k:=k-1;
if i<>0 then
begin
i:=i-1;
oper[form1.mmOutput.ItemIndex,i]:=0;
k:=k-2;
end;
umn.Enabled:=false;
plus.Enabled:=false;
nul.Enabled:=true;
one.Enabled:=true;
tabl.Enabled :=true;
enter.Enabled:=false;
end;

for j:=4 to k do
edit1.Text:=edit1.Text+ne[j];
end;

procedure TForm3.nulClick(Sender: TObject);
begin
ne:=Edit1.Text;
k:=length(ne);
if (i=0)and (k<>3) then
begin
repeat
inc(i);
until oper[form1.mmOutput.ItemIndex,i]=252;
oper[form1.mmOutput.ItemIndex,i]:=0;
end;
oper[form1.mmOutput.ItemIndex,i]:=100;
edit1.Text:=edit1.Text+'0';
plus.Enabled:=true;
umn.Enabled:=true;
nul.Enabled:=false;
one.Enabled:=false;
tabl.Enabled :=false;
enter.Enabled:=true;
inc(i);
end;

procedure TForm3.oneClick(Sender: TObject);
begin
ne:=Edit1.Text;
k:=length(ne);
if (i=0)and (k<>3) then
begin
repeat
inc(i);
until oper[form1.mmOutput.ItemIndex,i]=252;
oper[form1.mmOutput.ItemIndex,i]:=0;
end;
oper[form1.mmOutput.ItemIndex,i]:=200;
edit1.Text:=edit1.Text+'I';
plus.Enabled:=true;
umn.Enabled:=true;
nul.Enabled:=false;
one.Enabled:=false;
tabl.Enabled :=false;
enter.Enabled:=true;
inc(i);
end;

procedure TForm3.skoblClick(Sender: TObject);
begin
ne:=Edit1.Text;
k:=length(ne);
if (i=0)and (k<>3) then
begin
repeat
inc(i);
until oper[form1.mmOutput.ItemIndex,i]=252;
oper[form1.mmOutput.ItemIndex,i]:=0;
end;


oper[form1.mmOutput.ItemIndex,i]:=numscob;
edit1.Text:=edit1.Text+'(';
plus.Enabled:=false;
umn.Enabled:=false;
nul.Enabled:=true;
one.Enabled:=true;
tabl.Enabled :=true;
enter.Enabled:=false;
inc(ki);
kor[ki]:=numscob;
inc(numscob);
inc(i);
end;

procedure TForm3.skobrClick(Sender: TObject);
begin
ne:=Edit1.Text;
k:=length(ne);
if (i=0)and (k<>3) then
begin
repeat
inc(i);
until oper[form1.mmOutput.ItemIndex,i]=252;
oper[form1.mmOutput.ItemIndex,i]:=0;
end;




oper[form1.mmOutput.ItemIndex,i]:=kor[ki];
edit1.Text:=edit1.Text+')';
plus.Enabled:=true;
umn.Enabled:=true;
nul.Enabled:=false;
one.Enabled:=false;
tabl.Enabled :=false;
enter.Enabled:=true;
dec(ki);
inc(i);
end;

procedure TForm3.EnterClick(Sender: TObject);
begin
ki:=0;
for jj:=0 to 50 do
  if (oper[form1.mmOutput.ItemIndex,jj]>20)and(oper[form1.mmOutput.ItemIndex,jj]<100) then
   begin
   numscob:=oper[form1.mmOutput.ItemIndex,jj];
     if kor[ki]=numscob then
       dec(ki)
     else
       begin
       inc(ki);
       kor[ki]:=numscob;
       end;
   end;
if ki=0 then
begin
ik:=MessageDlg('Функция заданна корректно',MtInformation,[mbOk],0);
plus.Enabled:=false;
umn.Enabled:=false;
nul.Enabled:=false;
one.Enabled:=false;
tabl.Enabled :=false;
ok.Enabled:=true;
del.Enabled:=false;
skobr.Enabled:=false;
skobl.Enabled:=false;
enter.Enabled:=false;
ne:=Edit1.Text;
//form3.Caption:='Ввод функции '+ne;
end
else
begin
ik:=MessageDlg('Проверте скобки',MtError,[mbOk],0);
plus.Enabled:=false;
umn.Enabled:=false;
nul.Enabled:=false;
one.Enabled:=false;
tabl.Enabled :=false;
ok.Enabled:=false;
del.Enabled:=true;
end;
end;

procedure TForm3.Ent(Sender: TObject);
begin
  ki:=0;
for jj:=0 to 50 do
  if (oper[form1.mmOutput.ItemIndex,jj]>20)and(oper[form1.mmOutput.ItemIndex,jj]<100) then
   begin
   numscob:=oper[form1.mmOutput.ItemIndex,jj];
     if kor[ki]=numscob then
       dec(ki)
     else
       begin
       inc(ki);
       kor[ki]:=numscob;
       end;
   end;
if numscob=0 then
numscob:=21
else
inc(numscob);
end;

end.