Разбиение уравнения на два

@ivanss · Регистрация: 27.03.2012

Author24 — интернет-сервис помощи студентам

Добрый день! Помогите пожалуйста с дипломом.
На данный момент есть два Edit'a, в которых записываются два уравнения и считываются в файл следующим образом:

Delphi

k:=TStringList.Create;
k.Add(Form1.Edit1.Text);
k.Add(Form1.Edit2.Text);
k.SaveToFile('C:\Users\...');
k.Free;

Данным образом эти уравнения записываются в текстовый файл удобным мне видом, построчно, потом мне их проще считать тут же для матлаба и запустить его скрипт выполняться.
Проблема следующая, нужно убрать один Edit, чтобы в один оставшийся пользователь записывал уравнение вида:
(1+3*x-5*x^2)+(3-7*x+9*x^2-2*x^3)*s+(7*x-5*x^3)*s^2+...
Это уравнение надо разбить на два и записать оба в файл. Разбиение надо произвести таким образом, чтобы получились следующие уравнения:
1: (1+3*x-5*x^2)-(7*x-5*x^3)*s^2+(...)*s^4-(...)*s^6+...
2: (3-7*x+9*x^2-2*x^3)*s-(...)*s^3+(...)*s^5-...

Как-то у меня совсем все плохо с разбором текста в Delphi.
Наброски кода:

Delphi

a[i]:=Form1.Edit1.Text;
len:=length(a);
for i:=0 to len do
if a[i]='s' and (StrToInt(a[i]+2) mod 2=0) then

Все что пока пришло в голову, и то тут получается не запишется первая скобка, без s которая вообще. Точнее тут вообще ничего не запишется.
Не могу додумать как записывать длину уже считанных символов, чтобы когда напоролся на "s" записал все знаки до и 2 знака после, ну и "+\-" чтобы вставлять.

Помогите пожалуйста, а то диплом пишу, сам уже не соображаю ничего.

Комментарий модератора

Теги кода добавлены модератором. По правилам форума, код должен быть оформлен соответствующими тегами. Для оформления кода Delphi следует выделить этот код и на панели редактирования сообщения нажать кнопку: "DELPHI".

@_taddy · 04.04.2012, 12:04

Delphi

procedure TfMain.btn5Click(Sender: TObject);
var s, s_temp, s_even, s_uneven : string;
begin
  s_even := '';
  s_uneven := '';
  s := Trim(Edit1.Text);
  s_temp := Copy(s, 1, Pos(')', s));
  // Обработаем выражения при нулевой и первой степенях s
  if (s[Pos(')', s) + 1] = '+') or (s[Pos(')', s) + 1] = '-') then
  begin
    s_even := s_temp;
    s := Copy(s, Pos(')', s) + 1, length(s));
  end
  else
    if s[1] = '(' then
      s := '+' + s;
  s := StringReplace(s, ')*s+', ')*s^1+', []);
  s := StringReplace(s, ')*s-', ')*s^1-', []);
 
  // Теперь уравнение выглядит так: -(+)(...)*s^1-(+)(...)*s^2-(+)(...)*s^3-...
  while Length(s) > 0 do
  begin
    s_temp := Copy(s, 1, Pos('^', s) + 1);
    if (Ord(s[Pos('^', s) + 1]) mod 2) = 0 then
      s_even := s_even + s_temp
    else
      s_uneven := s_uneven + s_temp;
    s := Copy(s, Pos('^', s) + 2, Length(s));
  end;
 
  memo1.Lines.Add('1:  '  + s_even);
  memo1.Lines.Add('2:  '  + s_uneven);

Можно еще лишние плюсики в начале строки убирать, степень ^1, ну отшлифовать, короче...

@Andretti · 04.04.2012, 13:44

вот посмотри

Delphi

unit Unit1;
 
interface
 
uses
  SysUtils, Types, Classes, Variants, QTypes, QGraphics, QControls, QForms, 
  QDialogs, QStdCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  i:word;
  nachalo,schet:word;
  str,str1,str2:string;
 
implementation
 
{$R *.xfm}
 
procedure razdel (konec:word);
begin
case (schet mod 2) of
    0:  str1:=str1+copy(str,nachalo,konec);
    1:  str2:=str2+copy(str,nachalo,konec);
    end;
    inc(schet);
    nachalo:=i;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
str:=Edit1.Text;
str1:='';
str2:='';
schet:=0;
nachalo:=1;
for i:=1 to Length(str) do
 if (i=Length(str)) then razdel((i-nachalo)+1) else
  if ((str[i]='+') or (str[i]='-')) and (str[i+1]='(') then razdel((i-nachalo));
 Label1.Caption:=str1;
 Label2.Caption:=copy(str2,2,length(str2));
end;
 
end.

@Andretti · 04.04.2012, 13:44

о, блин.. опоздал я ))

Комментарий модератора

Будет два решения в теме - это хорошо.

	04.04.2012, 13:44