чередование слов в строке Опции

[18192123]

Даны две строки, состоящие из слов. Получить строку, в которой чередуются слова первой и второй строки. Если в одной из строк слов больше, чем в другой, то оставшиеся слова этой строки дописать подряд в строку-результат.

помогите пожалуйста с алгоритмом чередования слов

?????????

[18192123]

слова могут разделяться только пробелом. А как решать мою задачу без массивов?
Кстати, нужно без copy, delete.

Сообщение отредактировано: 18192123 - 20.12.2006 20:21

[volvo]

Кстати, нужно без copy, delete.

В принципе, не очень-то и хотелось

Вполне реально обойтись БЕЗ них...

var
  s, T, s1, s2: string;
  i, j: integer;
  res: string;

  did_it: boolean;
  b: boolean;

begin
  s1 := 'one two three four five';
  { s2 := 'raz dva tri chetire pyat shest sem'; }
  s2 := 'raz dva tri';
  res := '';

  s := s1;
  T := s2 + ' ';

  i := 1; j := 1;
  did_it := false;
  repeat

    for b := false to true do
      while (i <= length(s)) and ((s[i] = ' ') = b) do begin
        res := res + s[i]; inc(i);
      end;

    if (i > length(s)) then begin
      if not did_it then begin
        res := res + ' '; 
        did_it := true;
      end;
    end;

    for b := false to true do
      while (j <= length(T)) and ((T[j] = ' ') = b) do begin
        res := res + T[j]; inc(j);
      end;

  until (i > length(s)) and (j > length(T));
  writeln('result = ', res);

end.

(дополнительные строки - только для того, чтобы НЕ портить исходные... Так было бы достаточно трех строк)

[18192123]

var
  s, T, s1, s2: string;
  i, j: integer;
  res: string;

  did_it: boolean;
  b: boolean;

begin
  s1 := 'one two three four five';
  { s2 := 'raz dva tri chetire pyat shest sem'; }
  s2 := 'raz dva tri';
  res := '';

  s := s1;
  T := s2 + ' ';

  i := 1; j := 1;
  did_it := false;
  repeat

    for b := false to true do
      while (i <= length(s)) and ((s[i] = ' ') = b) do begin
        res := res + s[i]; inc(i);
      end;

    if (i > length(s)) then begin
      if not did_it then begin
        res := res + ' '; 
        did_it := true;
      end;
    end;

    for b := false to true do
      while (j <= length(T)) and ((T[j] = ' ') = b) do begin
        res := res + T[j]; inc(j);
      end;

  until (i > length(s)) and (j > length(T));
  writeln('result = ', res);

end.

Объясни пожалуйста некоторые моменты:

for b := false to true do

Для чего эта операция? И за что отвечают b и did_it ?