КАТЕГОРИИ:
Архитектура-(3434)Астрономия-(809)Биология-(7483)Биотехнологии-(1457)Военное дело-(14632)Высокие технологии-(1363)География-(913)Геология-(1438)Государство-(451)Демография-(1065)Дом-(47672)Журналистика и СМИ-(912)Изобретательство-(14524)Иностранные языки-(4268)Информатика-(17799)Искусство-(1338)История-(13644)Компьютеры-(11121)Косметика-(55)Кулинария-(373)Культура-(8427)Лингвистика-(374)Литература-(1642)Маркетинг-(23702)Математика-(16968)Машиностроение-(1700)Медицина-(12668)Менеджмент-(24684)Механика-(15423)Науковедение-(506)Образование-(11852)Охрана труда-(3308)Педагогика-(5571)Полиграфия-(1312)Политика-(7869)Право-(5454)Приборостроение-(1369)Программирование-(2801)Производство-(97182)Промышленность-(8706)Психология-(18388)Религия-(3217)Связь-(10668)Сельское хозяйство-(299)Социология-(6455)Спорт-(42831)Строительство-(4793)Торговля-(5050)Транспорт-(2929)Туризм-(1568)Физика-(3942)Философия-(17015)Финансы-(26596)Химия-(22929)Экология-(12095)Экономика-(9961)Электроника-(8441)Электротехника-(4623)Энергетика-(12629)Юриспруденция-(1492)Ядерная техника-(1748)
If (b) then
|
|
|
|
Begin
Begin
Begin
Begin
Begin
While(New) do
If(New)then
Begin
Begin
Begin
While(New) do
Begin
Begin
Begin
Var
Begin
If(New)then
End
Begin
End
Begin
End
Begin
End
Begin
Begin
Begin
Begin
Begin
Begin
Begin
If(bl)then
Begin
Begin
Begin
Begin
If(bl)then
Begin
Begin
Begin
End
Delete(S,k,1)
Delete(S,k-1,1)
End
Begin
Else
Begin
Begin
Begin
Begin
Begin
Begin
Begin
End
Begin
Delete(S,k,1)
else if ((S[k-1]='+')and(S[k]='+'))then
Delete(S,k,1);
end;
end;
//mmo2.Lines.Add(IntToStr(SavePoint));
if(SavePoint <> 1) then
case s[SavePoint] of
'-':Insert('+', S, SavePoint);
'+':Insert('+', S, SavePoint);
'*':Insert('*', S, SavePoint);
'/':Insert('/', S, SavePoint);
end;
SavePoint:=SavePoint+1;
end;
Delete(S,SavePoint,Num1);
end;
else if((not IsSC(s[i+1])) and (IsSC(s[i-1])))then // (x+2)*-12*x ((х+1)*у)
for j:=i+1 to Length(S)-1 do
if((isPMUR(s[j+1]))or(isSC(s[j+1])))then
Break;
end;
Numeric:= Copy(S, i+1, j-i);
//mmo2.Lines.Add(Numeric);
Delete(S,i,j-i+1);
bl:=true;
for j:=i-2 downto 2 do
if (s[j-1]=')') then
bl:=false;
Break;
end;
if (s[j-1]='(')then
Break;
end;
if (bl) then // (x+2)*-12*x
New:=True;
for k:=i-2 downto j+1 do
//mmo2.Lines.Add(S[k]);
if ((isPM(S[k-1]))or(k=j+1))then
if ((k=j+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
else if ((S[k-1]='+')and(S[k]='+'))then
Delete(S,k,1);
end;
end;
end;
else if((IsSC(s[i+1])) and (IsSC(s[i-1]))and(s[i]='*'))then // (x+2)*(12*x) --------------------------
bl:=true;
k:=2;
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;
S1:=Copy(S,I+2,J-I-1);
if not isPM(S1[1]) then
k:=k-1;
S1:='+'+S1;
end;
end;
//mmo2.Lines.Add(S1);
for j:=i-2 downto 2 do
if (s[j-1]=')') then
bl:=false;
Break;
end;
if (s[j-1]='(')then
Break;
end;
S2:=Copy(S,j,I-J-1);
if not isPM(S2[1]) then
k:=k-1;
S2:='+'+S2;
end;
end;
//mmo2.Lines.Add(S1);
//mmo2.Lines.Add(S2);
if (bl) then // (x+2)*(12*x) ((х+1)*(у))
SavePoint:=j;
Delete(S,j,Length(S1)+Length(S2)+1+k);
New:=True;
l:=Length(S1);
k:=0;
for j:=Length(S1) downto 1 do
if isPM(S1[j]) then
SetLength(FirstP, k+1);
FirstP[k]:=Copy(S1, j, l-j+1);
k:=k+1;
l:=j-1;
end;
l:=Length(S2);
k:=0;
for j:=Length(S2) downto 1 do
if isPM(S2[j]) then
SetLength(SecondP, k+1);
SecondP[k]:=Copy(S2, j, l-j+1);
k:=k+1;
l:=j-1;
end;
for j:=0 to High(SecondP) do
for k:=0 to High(FirstP) do
S1:=FirstP[k];
S2:=SecondP[j];
if ((S1[1]='-')and(S2[1]='-'))then
S1[1]:='+';
Delete(S2,1,1);
else if ((S1[1]='+')and(S2[1]='-'))then
S1[1]:='-';
Delete(S2,1,1);
else if ((S1[1]='-')and(S2[1]='+'))then
S1[1]:='-';
Delete(S2,1,1);
else if ((S1[1]='+')and(S2[1]='+'))then
S1[1]:='+';
Delete(S2,1,1);
end;
Block:=Block +S1+T+S2;
//mmo2.Lines.Add(Block);
end;
if (Block[1] = '+') then
Delete(Block,1,1);
Insert(Block, S, SavePoint); // (x+2)*(12+x)
//mmo2.Lines.Add(S);
end;
end;
end;
S:=Preobr(S);
Break;
end;
end;
end;
ScoberU:=S;
end;
function TForm1.Preobr(S: String): String;
i,j,l,k,Step,Error:integer;
BackStr, Block, FirstP, SecondP: string;
New,b,plm:Boolean;
New:= True;
{while(New) do
New:=false;
if ((S[1]='(')and(S[Length(S)]=')')) then
Delete(S, 1, 1);
Delete(S, Length(S), 1);
New:=True;
end;
end; }
New:=false;
for i:=1 to Length(S)-1 do
l:=0;
k:=0;
Step:=0;
j:=0;
BackStr:='';
Block:='';
if ((S[i]='-')and(S[i+1]='(')) then
Delete(S, i, 1);
Insert('-1*', S, i);
New:=True;
end;
Break;
end;
end;
New:= True;
New:=false;
for i:=1 to Length(S)-1 do
l:=0;
k:=0;
Step:=0;
j:=0;
BackStr:='';
Block:='';
b:=False;
if ((S[i]='(')and(S[i+1]='(')) then
for j:=i+2 to Length(s)-1 do
if S[j]='(' then
Break;
if ((S[j]=')')and(S[j+1]=')'))then
b:=True;
Break;
end;
end;
|
|
|
|
|
Дата добавления: 2015-03-29; Просмотров: 412; Нарушение авторских прав?; Мы поможем в написании вашей работы!