|
Вопрос # 2 607/ вопрос открыт / |
|
Доброго времени суток, уважаемые эксперты! Делаю програмку по надежности. Даны строки
Х1 Х2 Х3
Х3 Х4 Х5 Х6
Х2 Х3 Х7
и т.д., каждую строку необходимо преобразовать в
х1
Х1 х2
Х1 Х2 х3 - это первая строка и т.д., а затем сложить между собой. Вот. Чет получается, но дальше не могу ничего придумать. Посоветуйте в каком направлении двигаться. Заранее благодарю.
Приложение: Переключить в обычный режим-
- procedure TForm1.Button4Click(Sender: TObject);
- var b:string;
- begin
- J:=0;
- S1:= Edit1.Text;
- S1:= trim(S1);
- S1:= S1+' ';
- b:='';
- for k := 0 to length(S1) do
- begin
- b:= copy(S1,k,1);
- if b=' ' then
- J:= J+1;
- end;
- SetLength(Ras,i+1);
- Ras[i]:= S1;
- i:=i+1;
- Memo1.Lines.Add(S1);
- SetLength(schet,s+1);
- schet[s]:=J;
- s:=s+1;
- Edit1.Clear;
- Edit1.SetFocus;
- end;
-
- procedure TForm1.Button1Click(Sender: TObject);
- type
- TDynArr = array of string;
- var S1,S2,S3: string;
- r,t, p: integer;
- begin
- for r := 0 to Memo1.Lines.Count-1 do
- begin
- S1:=Ras[r];
- S1:=trim(S1);
- S2:='';
- S1:=S1+' ';
- while pos(' ',S1)<>0 do
- delete(S1,pos(' ',S1),1);
- while S1<>'' do begin
- p:=pos(' ',S1);
- S3:=copy(S1,1,p);
- delete(S1,1,p);
- while pos(S3,S1)<>0 do
- delete(S1,pos(S3,S1),length(S3));
- S2:=S2+S3;
- Memo2.Lines.Add(S2);
- end;
- end;
- end;
 |
Вопрос задал: konkonych (статус: Посетитель)
Вопрос отправлен: 7 апреля 2009, 11:35
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 4; последнее сообщение — 7 апреля 2009, 13:04; участников в обсуждении: 2.
|
Вадим К (статус: Академик), 7 апреля 2009, 11:59 [#1]:
а строка Х2 Х3 Х7 должна преобразоваться в
Х2
Х2 x3
Х2 Х3 x7
Но как сложить? это числа скрываются или с какой то таблицы надо вычитать значения и что складывать? все/строки/столбцы???
и почему часть x в нижнем шрифте?
Галочка "подтверждения прочтения" - вселенское зло.
|
|
|
konkonych (статус: Посетитель), 7 апреля 2009, 12:45 [#2]:
Это все строки. В нижнем ригистре для замены отрицания элемента, при проверке строки с одинаковыми Х, но с разным регистром удаляются, с одинаковым регистром- убераются повторяющиеся символы. Складывать необходимо разложенную первую с разложенной второй, полученное сложить с разложенной третей и т.д.
|
|
|
konkonych (статус: Посетитель), 7 апреля 2009, 13:02 [#3]:
Извените, приведу задачу полностью:
Дано:
Х1Х2Х3
Х3Х4Х5Х6
Х2Х4Х6
Преобразовываем:
К1
К2
К3
Расчитываем:
К1'
K1'K2
K1'K2'K3
и далее:
X1'
K1'= X1X2'
X1X2X3'
Затем к К1' к каждой строке добавляем строку К2;
После
X3'
X3X4'
K2'= X3X4X5'
X3X4X5X6'
и к каждой строчке К1' добавляем каждую строчку К2' построчно
X1'+X3'
X1X2'+X3' и т.д. Вот.
|
|
|
konkonych (статус: Посетитель), 7 апреля 2009, 13:04 [#4]:
Извените поубирались пробелы. там где К'=, к этим К относятся строки и с верху и с низу , между текстом.
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
