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

[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 цикла. Внешний - пока не встретим пробел, внутренний - пока не встретим пробел или аналогичный символ
Смотрим на флажок - если повторов не было, аккуратненько по символам перекидываем кусок до пробела в новую строку.
Начинаем анализировать исходную строку с запомненного места.

пытаюсь что-то сделать по этому алгоритму, но это все, что смогла, дальше - просто не знаю как реализовывать. помогите.....

uses crt;
function one(var st:string;var c:char):string;
var i:integer; f:boolean;
begin
writeln ('vvedite stroky');
read (st);
while i<>length(st) do
      begin
       f:=true;
       for i:=1 to ' ' do
          begin
           c:=s[1];
           while s[i]<>' ' or c:=s[i] do
           if c=s[i] then f:=true; c:=c+1;
          end;
       end;