Строки...

[manchester_alan]

Дан текст из слов, разделенных пробелами. Вывести на экран все слова, в которых все буквы разные. Если таких слов нет, выдать соответствующее сообщение.

Помогите пожалуйста...

[WinCoder]

Помогите пожалуйста...

Помочь, или дать готовое решение? Если помочь, то чем?

Вывести на экран все слова

Сдаётся мне что это не делфи, а паскаль. Разделом ошиблись.

[manchester_alan]

наверно решение все таки, по нему разберусь...( У меня есть наподобие этой программа с решением про строки, но не получается переделать ее под эту... заранее благодарен...

Сообщение от WinCoder

Помочь, или дать готовое решение? Если помочь, то чем?

Сдаётся мне что это не делфи, а паскаль. Разделом ошиблись.

Ну это по делфи...

у меня есть решение оказывается, но по-моему не совсем правильное...

procedure Words(s:string;var x:mas;var n:byte);
var i,k:integer;
begin
k:=1; n:=0;
for i:=1 to length(s) do
if (s[i]in [' ', ',', '.']) then
begin
n:=n+1;
x[n]:=copy(s,k,i-k);
k:=i+1;
end;
end;

procedure OneBukva(s:string; x:mas; n:byte);
var i,j,n1:integer; f:boolean; d:mas;
begin
n1 :=0;
for i:=1 to n do
begin
f:=false;
for j:=1 to n1 do
if s[i]=s[j] then f:=true;
if f=false then
begin
n1:=n1+1;
d[n1]:=x[i];
end;
end;
for i:=1 to n1 do write(d[i],' ');
Writeln;
end;

[WinCoder]

Сообщение от manchester_alan

наверно решение все таки, по нему разберусь...

За готовым решением идите в раздел фриланс. Ну или попросите модераторов перенести тему, чтоб не плодить темы.

[manchester_alan]

а вот по этому коду не сможете помочь? Он выводит просто все слова из строки,а надо где буквы разные...

[WinCoder]

Ну прекрасно. Значит предложение на слова Вы можете разбить. Разбиваете предложение, и в цикле от первого до последнего слова делаете к примеру такой алгоритм. Начинаете отрезать от слова по одной букве через функцию Delete, и проверять, есть ли в слове ещё такие буквы через функцию pos. Если буквы есть, то выходим из цикла обработки слова ни чего не делая. Если до конца слова повторов не встретилось, то это слово искомое. Заносим его в буферный String. По окончанию процесса показываем, что накопилось в String. Это как один из вариантов. Так же можно воспользоваться функцией PosEx. Почитайте как она работает. Алгоритм будет почти таким же за исключением того, что не нужно применять Delete.

[Stilet]

Он выводит просто все слова из строки,а надо где буквы разные...

Предлагаю следующую функцию:

function OneWrid(s:String):Boolean;
var j,i:integer;
begin
 for i:=1 to Length(s) do begin
  for j:=i+1 to Length(s) do if s[i]=s[j] then begin OneWrid:=false; exit;  end;
 end;
 OneWrid:=true;
end;

Разбиваешь строку на слова (судя по всему у тебя есть код) Потом в цикле применяешь эту функу:

 if OneWrid(d[i]) then В d[i] нет повторов

[manchester_alan]

Сообщение от Stilet

Разбиваешь строку на слова (судя по всему у тебя есть код) Потом в цикле применяешь эту функцию:

 if OneWrid(d[i]) then В d[i] нет повторов

for j:=1 to n1 do
if s[i]=s[j] then f:=true;
if f=false then

вот здесь?

[Stilet]

вот здесь?

Что "здесь"?
Я твой вариант кода посчитал некорректным, поэтому предложил свой.
Вопрос: Разбить на массив слов ты сможешь?

[manchester_alan]

Сообщение от WinCoder

Ну прекрасно. Значит предложение на слова Вы можете разбить. Разбиваете предложение, и в цикле от первого до последнего слова делаете к примеру такой алгоритм. Начинаете отрезать от слова по одной букве через функцию Delete, и проверять, есть ли в слове ещё такие буквы через функцию pos. Если буквы есть, то выходим из цикла обработки слова ни чего не делая. Если до конца слова повторов не встретилось, то это слово искомое. Заносим его в буферный String. По окончанию процесса показываем, что накопилось в String. Это как один из вариантов. Так же можно воспользоваться функцией PosEx. Почитайте как она работает. Алгоритм будет почти таким же за исключением того, что не нужно применять Delete.

можете, пожалуйста, показать на коде, где именно что нужно, а то так не очень представляется мне..(