SetLength(HeaderPer, 1)

Begin

Begin

Begin

Begin

Else

End

Begin

Begin

Begin

Else

Begin

Begin

Begin

If(nextS)then

Begin

Begin

Begin

Begin

Begin

Begin

Begin

Var

Begin

Begin

Var

Begin

Implementation

Var

Public

Private

Type

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Uses

Interface

Листинг программного кода

unit Unit1;

Dialogs, StdCtrls, ExtCtrls, Grids, Buttons;

TForm1 = class(TForm)

btn1: TButton;

lbl3: TLabel;

mmo2: TMemo;

edt4: TEdit;

SG: TStringGrid;

btn2: TBitBtn;

btn3: TBitBtn;

procedure FormCreate(Sender: TObject);

function isNumber(c: Char): boolean;

function isPMUR(c: Char): boolean;

function isPM(c: Char): boolean;

function isUR(c: Char): boolean;

function isSC(c: Char): boolean;

function Cleaner(S: String): String;

function Stepner(S: String): String;

function Preobr(S: String): String;

function ScoberU(S: String): String;

function Sokr(S: String): String;

function DelF(S,D: String): String;

//function DelFP(f1: String, f,s:Real):Real;

procedure btn1Click(Sender: TObject);

procedure btn2Click(Sender: TObject);

procedure btn3Click(Sender: TObject);

{ Private declarations }

{ Public declarations }

end;

Form1: TForm1;

otv,res:string;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

mmo2.clear;

SG.Cells[0,0]:='X=';

SG.Cells[0,1]:='Y=';

SG.Options:=SG.Options+[goEditing]

end;

function TForm1.Cleaner(S: String): String;

i:integer;

BackStr: string;

BackStr:='';

//Снос пробелов

for i:=1 to Length(S) do

if(S[i]<>' ') then

BackStr:=BackStr+S[i];

end;

Cleaner:=BackStr;

//mmo2.Lines.Add(BackStr);

end;

function TForm1.DelF(S,D:string): String;

i,h,j,l,k,elem,n,m:integer;

Preo, Temp, Res: string;

nextS,HB,Go:Boolean;

Dif:Char;

BigElenent: Array of string;

HeaderPer: Array of Char;

NumerikArray: Array of Real;

ElementArray: Array of Array of string;

DataPer: Array of Array of Integer;

Dif:=D[1];

//mmo2.Lines.Add('****start');

//(x+z)^2-y^2-1 // x^2-y^2-1 { y*(x-1)-1 x^2-y^2-1 }

Temp:=S;

for i:=Length(S) downto 1 do

if (S[i]=Dif) then

Delete(s, i, 1);

Insert('('+Dif+'+z)',S,i);

end;

//mmo2.Lines.Add('1:'+S+''+Temp+')');

S:=S+'-('+Temp+')';

S:=Cleaner(S);

S:=Stepner(S);

S:=Preobr(S);

S:=ScoberU(S);

//mmo2.Lines.Add('...5:'+S);

S:=Sokr(S);

//mmo2.Lines.Add('...6:'+S);

while(Length(S)<>Length(Sokr(S)))do

S:=Preobr(S);

S:=ScoberU(S);

S:=Sokr(S);

//mmo2.Lines.Add('...X:'+S);

end;

//mmo2.Lines.Add(s);

Go:=false;nextS:=False;HB:=false;

i:=0;h:=0;j:=0;l:=0;k:=0;elem:=0;n:=0;m:=0;

Preo:=''; Temp:=''; Res:='';

SetLength(BigElenent, 0); SetLength(HeaderPer, 0);

SetLength(NumerikArray, 0);SetLength(ElementArray, 0);SetLength(DataPer, 0);

for i:=1 to Length(S) do

if((S[1]<>'(') and (S[Length(S)]<>')')) then // (-3.1-4.333+2.2*x+4.25*x)

S:='('+S+')';

if(S[i]='(')then

nextS:=True;

for j:=i+1 to Length(S)-1 do

if (s[j+1]='(') then

nextS:=false;

Break;

//mmo2.Lines.Add(IntToStr(j));

end;

if (s[j+1]=')')then

Break;

end;

//Go:=True;

//ShowMessage('OK');

Preo:='';

//mmo2.Lines.Add(Copy(S,i+1,j-i));

Preo:=Copy(S,i+1,j-i);

Delete(S,i,j-i+2); //4+(3*х-2*х)-12

//mmo2.Lines.Add('D:'+s);

if(not isPM(Preo[1]))then

Preo:='+'+Preo;

l:=Length(Preo);

k:=0;

for j:=Length(Preo) downto 1 do

if isPM(Preo[j]) then

SetLength(BigElenent, k+1);

BigElenent[k]:=Copy(Preo, j, l-j+1);

k:=k+1;

l:=j-1;

end;

{for j:=0 to High(BigElenent) do

mmo2.Lines.Add(BigElenent[j]); }

SetLength(NumerikArray, High(BigElenent)+1);

SetLength(ElementArray, High(BigElenent)+1);

SetLength(HeaderPer, 0);

for j:=0 to High(BigElenent) do

l:=Length(BigElenent[j]);

k:=0;

elem:=0;

if(BigElenent[j][1]='-')then

NumerikArray[j]:=-1

NumerikArray[j]:=1;

for h:=Length(BigElenent[j]) downto 1 do

if((h=1)or(BigElenent[j][h]='*')) then

if(isNumber(BigElenent[j][h+1]))then

//mmo2.Lines.Add(Copy(BigElenent[j], h+1, l-h)); // 3*5*x-x*3+x*y = 12*x+x*y

NumerikArray[j]:=NumerikArray[j]*StrToFloat(Copy(BigElenent[j], h+1, l-h));

SetLength(ElementArray[j], elem+1);

ElementArray[j][elem]:=Copy(BigElenent[j], h+1, l-h);

elem:=elem+1;

end;

//mmo2.Lines.Add(Copy(BigElenent[j], h+1, l-h));

l:=h-1;

end;

if ((not isPMUR(BigElenent[j][h])) and (not isNumber(BigElenent[j][h])))then

HB:=True;

//mmo2.Lines.Add(IntToStr(High(HeaderPer)));

//mmo2.Lines.Add(BigElenent[j][h]);

for n:=0 to High(HeaderPer) do

if (HeaderPer[n] = BigElenent[j][h])then

//mmo2.Lines.Add(HeaderPer[n]+' '+BigElenent[j][h]);

HB:=False;

end;

if(HB)then // 3*5*x-y*x*3*5+x*y

//mmo2.Lines.Add(IntToStr(High(HeaderPer)));

if (High(HeaderPer) < 0) then

Дата добавления: 2015-03-29