Версия для печати темы
Нажмите сюда для просмотра этой темы в обычном формате
Форум «Всё о Паскале» _ Задачи _ чередование слов в строке
Автор: 18192123 20.12.2006 23:02
Даны две строки, состоящие из слов. Получить строку, в которой чередуются слова первой и второй строки. Если в одной из строк слов больше, чем в другой, то оставшиеся слова этой строки дописать подряд в строку-результат.
помогите пожалуйста с алгоритмом чередования слов
????????? 
Автор: мисс_граффити 20.12.2006 23:08
разбиваешь на слова, получаешь 2 массива. потом из каждого берешь по одному слову-элементу и записываешь в результирующую строку, пока в одном не закончатся элементы.
Автор: klem4 20.12.2006 23:32
Можно и без дополнительной строки 
Автор: volvo 20.12.2006 23:37
18192123, чем могут разделяться слова в строках?
Автор: мисс_граффити 20.12.2006 23:52
Можно и без дополнительной строки
то есть? я где-то сказала, что у нас будет три строки?
результирующей может выступать и одна из исходных...
просто воспользовалась терминологией задачи:
или ты о каком-то принципиально ином способе решения?
Автор: volvo 20.12.2006 23:55
Юля, я как раз о принципиально ином способе - без массивов... 
Только мне для этого надо знать, могут ли слова разделяться чем-то кроме пробелов, или нет...
Автор: мисс_граффити 21.12.2006 0:11
Юля, я как раз о принципиально ином способе - без массивов...
Только мне для этого надо знать, могут ли слова разделяться чем-то кроме пробелов, или нет...Да я после таких вопросов ничего, кроме оригинально-интересного способа и не жду.
Кажется, даже есть подозрение: вырезать слова из одной строки (в смысле, копировать и удалять), и вставлять на место пробела (если только пробелы - разделители) во вторую?
Автор: klem4 21.12.2006 0:12
Я вот это и имел в виду (только удалять правда не обязательно) под своим вариантом без третьей строки, а ты как хотела сдалать ?
Автор: 18192123 21.12.2006 0:18
слова могут разделяться только пробелом. А как решать мою задачу без массивов?
Кстати, нужно без copy, delete.
Автор: мисс_граффити 21.12.2006 0:18
Я вот это и имел в виду (только удалять правда не обязательно) под своим вариантом без третьей строки, а ты как хотела сдалать ?
просто после того, как мы раскидали слова по массивам, нам не нужны старые строки, поэтому можем записывать в одну из них.
Автор: klem4 21.12.2006 0:23
Эм, ну массивы в принципе тоже не нужны
Ладно ждем что скажет автор темы
Упс автор уже сказал
Автор: мисс_граффити 21.12.2006 0:34
без copy и delete хуже 
insert можно?
Автор: 18192123 21.12.2006 0:38
без copy и delete хуже
insert можно?
увы, нельзя...
Автор: мисс_граффити 21.12.2006 0:43
можно еще так: заводим новую строку, посимвольно прибавляем к ней слово первой строки, пока не наткнемся на пробел (или не кончится строка). после этого посимвольно копируем кусочек второй... если первая не кончилась - возвращаемся к ней...
Автор: volvo 21.12.2006 0:59
В принципе, не очень-то и хотелось
Вполне реально обойтись БЕЗ них...
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 5.01.2007 16:34
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 ?
Автор: volvo 5.01.2007 17:11
А тебе что, удобнее делать Copy+Paste? Сначала - обрабатывать НЕпробелы, а потом - пробелы между словами? Тогда делай Copy+Paste... Я предпочитаю сделать один доп. цикл: сначала переменная B равна False, благодаря чему (s[i] = ' ') = b выполняется для НЕпробелов, при втором проходе B становится равно True, и в ЭТОМ ЖЕ цикле обрабатываются только пробелы между словами...
А did_it - дополнительная переменная, чобы не потерять нужный пробел между словами, и в то же время не добавлять лишние пробелы... Попробуй, убери ее, увидишь, что будет...
Автор: 18192123 10.01.2007 17:06
Я не поняла, за счёт чего чередуются слова, ведь у нас в цикле repeat два цикла, отдельно по каждой строке
???