Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 2 607

/ вопрос открыт /

Доброго времени суток, уважаемые эксперты! Делаю програмку по надежности. Даны строки
Х1 Х2 Х3
Х3 Х4 Х5 Х6
Х2 Х3 Х7
и т.д., каждую строку необходимо преобразовать в
х1
Х1 х2
Х1 Х2 х3 - это первая строка и т.д., а затем сложить между собой. Вот. Чет получается, но дальше не могу ничего придумать. Посоветуйте в каком направлении двигаться. Заранее благодарю.

Приложение:
  1.  
  2. procedure TForm1.Button4Click(Sender: TObject);
  3. var b:string;
  4. begin
  5. J:=0;
  6. S1:= Edit1.Text;
  7. S1:= trim(S1);
  8. S1:= S1+' ';
  9. b:='';
  10. for k := 0 to length(S1) do
  11. begin
  12. b:= copy(S1,k,1);
  13. if b=' ' then
  14. J:= J+1;
  15. end;
  16. SetLength(Ras,i+1);
  17. Ras[i]:= S1;
  18. i:=i+1;
  19. Memo1.Lines.Add(S1);
  20. SetLength(schet,s+1);
  21. schet[s]:=J;
  22. s:=s+1;
  23. Edit1.Clear;
  24. Edit1.SetFocus;
  25. end;
  26.  
  27. procedure TForm1.Button1Click(Sender: TObject);
  28. type
  29. TDynArr = array of string;
  30. var S1,S2,S3: string;
  31. r,t, p: integer;
  32. begin
  33. for r := 0 to Memo1.Lines.Count-1 do
  34. begin
  35. S1:=Ras[r];
  36. S1:=trim(S1);
  37. S2:='';
  38. S1:=S1+' ';
  39. while pos(' ',S1)<>0 do
  40. delete(S1,pos(' ',S1),1);
  41. while S1<>'' do begin
  42. p:=pos(' ',S1);
  43. S3:=copy(S1,1,p);
  44. delete(S1,1,p);
  45. while pos(S3,S1)<>0 do
  46. delete(S1,pos(S3,S1),length(S3));
  47. S2:=S2+S3;
  48. Memo2.Lines.Add(S2);
  49. end;
  50. end;
  51. end;


konkonych Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: 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

konkonych (статус: Посетитель), 7 апреля 2009, 12:45 [#2]:

Это все строки. В нижнем ригистре для замены отрицания элемента, при проверке строки с одинаковыми Х, но с разным регистром удаляются, с одинаковым регистром- убераются повторяющиеся символы. Складывать необходимо разложенную первую с разложенной второй, полученное сложить с разложенной третей и т.д.
konkonych

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

konkonych (статус: Посетитель), 7 апреля 2009, 13:04 [#4]:

Извените поубирались пробелы. там где К'=, к этим К относятся строки и с верху и с низу , между текстом.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 10 апреля 2020, 03:51
Выполнено за 0.02 сек.
Рейтинг@Mail.ru