Delete(S,k-1,1)

End

Begin

Else

Begin

Begin

Begin

Begin

Begin

Begin

Else

End

Begin

Begin

Begin

Begin

Begin

Begin

Begin

While(New) do

Begin

Var

If(New)then

Begin

Begin

Break

Begin

Begin

Else

End

Begin

Begin

Begin

While(true)do

Begin

Begin

Begin

While(New) do

Begin

Var

Begin

If(go)then

Begin

Begin

Begin

Begin

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

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;

end;

Break;

end;

end;

{BackStr:='';

for i:=1 to Length(S) do

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

BackStr:=BackStr+S[i];

end; }

Sokr:=S;

//mmo2.Lines.Add(BackStr);

end;

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

i,j,l,k,Step,Error:integer;

BackStr, Block: string;

New:Boolean;

New:= True;

New:=false;

for i:=1 to Length(S) do

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

l:=0;

k:=0;

Step:=0;

BackStr:='';

Block:='';

New:=True;

j:=1;

if (i+j+1 > Length(S)) then

Break;

if (isNumber(S[i+j+1])= false) then

Break;

j:=j+1;

end;

//i+1.... j - степень

l:=j; //сохраним степень

Val(Copy(S, i+1, j),Step, Error);

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

if isSC(S[i-1]) then

k:=0;

for j:=i-1 downto 1 do

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

k:=k+1

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

k:=k-1;

if (k=0)then

Break;

end;

Block:=Copy(S, j, i-j);

//mmo2.Lines.Add(Block);

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

j:=i-1;

while((isPMUR(S[j]) <> True)and(isSC(S[j])<> True)and(j>=1)) do

{if ((isNumber(S[i-1]))and(not isNumber(S[j])))then

else if((not isNumber(S[i-1]))and(isNumber(S[j]))) then

Break; }

j:=j-1;

end;

j:=j+1;

Block:=Copy(S, j, i-j);

//mmo2.Lines.Add(Block);

end;

Delete(S, j, i-j+l+1);

//mmo2.Lines.Add(IntToStr(j)+ ' '+ IntToStr(i)+ ' '+ IntToStr(l)+ ' '+ IntToStr(i-j+l));

for k:=1 to Step do

BackStr:=BackStr+Block;

if(k<>Step)then

BackStr:=BackStr+'*';

end;

//mmo2.Lines.Add(BackStr);

if (Step <> 1) then

BackStr:='('+BackStr+')';

end;

Insert(BackStr, S, j); //123+(x-14)^3+6

//mmo2.Lines.Add(S);

end;

Break;

end;

end;

Stepner:=S;

//mmo2.Lines.Add(BackStr);

end;

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

i,j,l,k,Step,Error,Num1,SavePoint:integer;

Numeric, BackStr, Block, S1, S2, T: string;

New,bl:Boolean;

FirstP: Array of string;

SecondP: Array of string;

New:= True;

New:=false;

for i:=2 to Length(S)-1 do //Берем счет со второго символа до предпоследнего

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

l:=0;

k:=0;

Step:=0;

j:=0;

Numeric:='';

Block:='';

if(isUR(S[i]))then

T:=S[i];

//mmo2.Lines.Add(T);

//New:=True;

// -144*(x+2)

if((not isPMUR(s[i-1]) and not IsSC(s[i-1])) and (IsSC(s[i+1])))then //-144*(x+2) 15+144*(x+2)-10

for j:=i-1 downto 1 do

if(isPMUR(s[j]))then

Break;

end;

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

if(j>0)then

SavePoint:=j;

Num1:=i-j+1;

Numeric:= Copy(S, j, i-j);

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

Num1:=i-j;

SavePoint:=j+1;

end;

if(isUR(Numeric[1]))then

Delete(Numeric, 1,1);

//mmo2.Lines.Add(Numeric);

//получаем скобку

bl:=true;

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

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

bl:=false;

Break;

end;

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

Break;

end;

if (bl) then //I+2 начало J конец -4*(-2+5*х)

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

//mmo2.Lines.Add(Copy(S,I+2,J-I-1));

//mmo2.Lines.Add(S[i+2]);

//New:=True;

l:=i+2;

New:=True;

for k:=j downto l+1 do

//mmo2.Lines.Add(S[k]);

if ((isPM(S[k-1]))or(k=l+1))then

if ((k=l+1)and(not isPM(S[k-1]))) then

Insert(Numeric+T, S, k-1)

Insert(Numeric+T, S, k);

//mmo2.Lines.Add(S[k-1]);

if ((S[k-1]='-')and(S[k]='-'))then

S[k-1]:='+';

Delete(S,k,1);

else if ((S[k-1]='+')and(S[k]='-'))then

else if ((S[k-1]='-')and(S[k]='+'))then

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