If(nextS)then

Begin

Begin

Begin

Begin

Begin

Begin

Var

Begin

If(go)then

Begin

Begin

Begin

Begin

Begin

Begin

If (HB)then

Begin

Begin

Begin

Begin

Begin

Begin

Begin

Begin

Begin

Begin

Begin

Begin

Begin

Begin

Else

SetLength(HeaderPer, High(HeaderPer)+2);

//mmo2.Lines.Add(HeaderPer[High(HeaderPer)]);

HeaderPer[High(HeaderPer)]:=BigElenent[j][h];

end;

end;

end;

end;

for j:= 0 to High(ElementArray)do

for h:=0 to High(ElementArray[j])do

if ElementArray[j][h][1]='Q' then

ElementArray[j][h]:='';

Break;

end;

end;

{ y*(x-1)-1 x^2-y^2-1 }

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

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

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

mmo2.Lines.Add(FloatToStr(NumerikArray[j]));} // (-3.1-4.333+2.2*x+4.25*x)

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

for j:=0 to High(DataPer) do

SetLength(DataPer[j], High(HeaderPer)+1);

for l:=0 to High(DataPer[j]) do // 3*5*x-y*x*3*5+x*y

DataPer[j][l]:=0;

end;

end;

for j:=0 to High(ElementArray) do

for l:=0 to High(ElementArray[j]) do

for n:=0 to High(HeaderPer) do

if(HeaderPer[n]=ElementArray[j][l])then

Break;

end;

DataPer[j][n]:=DataPer[j][n]+1;

end;

end;

//ShowMessage('OK');

for j:=0 to High(ElementArray) do // 3*5*x-x*3+x*y

Temp:=FloatToStr(NumerikArray[j]);

for l:=0 to High(ElementArray[j]) do

Temp:=Temp+' '+ElementArray[j][l]+' ';

for l:=0 to High(DataPer[j]) do

Temp:=Temp+':'+IntToStr(DataPer[j][l]);

//mmo2.Lines.Add(Temp);

end;

for j:=0 to High(ElementArray)-1 do

if (NumerikArray[j]<>0)then

for l:=j+1 to High(ElementArray) do

if(NumerikArray[l]<>0)then

HB:=True;

for n:=0 to High(DataPer[j]) do

if(DataPer[j][n]<>DataPer[l][n])then

HB:=False;

end;

end;

NumerikArray[j]:=NumerikArray[j]+NumerikArray[l];

NumerikArray[l]:=0;

Go:=true

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

end;

end;

end;

end;

end; // 3*5*x-x*3+x*y = +12*x+x*y

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

mmo2.Lines.Add(FloatToStr(NumerikArray[j]));}

Temp:='';

Res:='';

for j:=0 to High(NumerikArray) do

if(NumerikArray[j]<>0) then

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

Temp:=FloatToStr(NumerikArray[j]);

for l:=0 to High(ElementArray[j]) do

if(ElementArray[j][l]<>'')then

temp:=temp+'*'+ElementArray[j][l];

end;

if(not isPMUR(Temp[1]))then

Temp:='+'+Temp;

end;

Res:=Temp+Res;

Temp:='';

end;

{else if(isPM(S[i+1]))then

case S[i+1] of

'+': Delete(S,i+1,1);

end; }

//mmo2.Lines.Add('I:'+IntToStr(i));

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

//mmo2.Lines.Add('Res:'+Res); //4+(3*х-2*х)-12

Insert(Res, S, i);

if Length(s)>1 then

if(isPM(S[i-1]))then

Delete(S,i-1,1);

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

end;

{for j:=Length(S) downto 1 do

if (S[j]='Q') then

S[j]:='0';

end;

S:=Preobr(S);

S:=ScoberU(S);

S:=Sokr(S);

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

S:=Preobr(S);

S:=ScoberU(S);

S:=Sokr(S);

end; }

//mmo2.Lines.Add(s);

end;

Break;

end;

{BackStr:='';

for i:=1 to Length(S) do

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

BackStr:=BackStr+S[i];

end; }

DelF:=S;

//mmo2.Lines.Add(BackStr);

end;

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

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

Preo, Temp, Res: string;

nextS,HB,Go:Boolean;

BigElenent: Array of string;

HeaderPer: Array of Char;

NumerikArray: Array of Real;

ElementArray: Array of Array of string;

DataPer: Array of Array of Integer;

//mmo2.Lines.Add(s);

Go:=true;

while(go)do //4+(3*х-2*х)-12 (x+y)^2-x^2

Go:=false;

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;

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