слова с повторяющимися символами Опции

[18192123]

Дана строка, состоящая из слов, разделенных пробелом. Удалить из строки слова, содержащие повторяющиеся символы. ( c помощью функций, не использовать стандартн. ф-ции и процедуры для строк, кроме lenght,ord,char)


единственное, что пока сделала , нашла количество слов в строке

var
   st:string[40];
   i,k:integer;
begin
readln (st);
for i:=1 to length(st) do
    if st[i]=' ' then k:=k+1;
    writeln ('k=', k);

не пойму, как теперь работать с отдельными словами

Сообщение отредактировано: 18192123 - 20.11.2006 17:38

[мисс_граффити]

если ты хочешь делать

c:=st[1];

то исправь вот это:

function one(var st:string; var c:char):string;

Можно использовать такой алгоритм: заводим дополнительную строку - результирующую.
Анализируем первое слово в строке (посимвольно сравниваем. то есть берем первый символ и сравниваем с каждым следующим, пока не встретим такой же или пробел). Потом так же со вторым символом, с третьим... Пока не дойдем до пробела. Для того, чтобы отследить, были ли повторы, можно использовать логическую переменную. Запоминаем позицию пробела. Это будет начало нашего следующего исследования.
//описанное выше - по сути, 2 цикла. Внешний - пока не встретим пробел, внутренний - пока не встретим пробел или аналогичный символ
Смотрим на флажок - если повторов не было, аккуратненько по символам перекидываем кусок до пробела в новую строку.
Начинаем анализировать исходную строку с запомненного места.

[18192123]

Можно использовать такой алгоритм: заводим дополнительную строку - результирующую.
Анализируем первое слово в строке (посимвольно сравниваем. то есть берем первый символ и сравниваем с каждым следующим, пока не встретим такой же или пробел). Потом так же со вторым символом, с третьим... Пока не дойдем до пробела. Для того, чтобы отследить, были ли повторы, можно использовать логическую переменную. Запоминаем позицию пробела. Это будет начало нашего следующего исследования.
//описанное выше - по сути, 2 цикла. Внешний - пока не встретим пробел, внутренний - пока не встретим пробел или аналогичный символ
Смотрим на флажок - если повторов не было, аккуратненько по символам перекидываем кусок до пробела в новую строку.
Начинаем анализировать исходную строку с запомненного места.

я поняла, как нужно действовать в этой задаче, но больше ничего не получается(может опыта не хватает, может и ума...), в общем реализовать не получается. можешь объяснить именно насчет реализации