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

[bingooo]

В строке малыми латинскими буквами записаны слова, разделяющиеся запятыми. Первые буквы некоторых слов могут совпадать. Указать минимальное количество первых букв, по которым можно различить слова из заданного списка.
Вот мой исходник:

uses crt;
const zap:string[1]=',';
var s:string;
t,l,i,n:integer;
    begin
      clrscr;
      writeln('vvedi slova cherez zapiatuiu: ');
      readln(s);
      l:=length(s);
      t:=1;
      n:=1;
            for i:=1 to l do
             begin
               if s[i]=zap
                then
                begin
                 if s[t]<>s[i+n]
                   then writeln('t=',t) else begin
                    t:=t+1;
                   n:=n+1;
                   end;
                   end;
             end;
             writeln('t=',t);
    end.

у меня считает только когда совпадает 1 буква и не совпадают, помогите создать цикл для:

 if s[t]<>s[i+n]
                   then writeln('t=',t) else begin
                    t:=t+1;
                   n:=n+1;

Помогите плз!!!!!!

[Dark_Spirit]

 program analiz;
 var s,s1:string;
     i:integer;
     kilk:integer;
begin
 write('vvedite stroku -> ');
 readln(s);
 if s[1]<>','
  then
   begin
    s1:=s[1];
    kilk:=1;
   end
  else
   begin
    s1:='';
    kilk:=0;
   end;
 for i:=2 to length(s) do
   if s[i]=','
    then
     if pos(s[i+1],s1)=0
       then
        begin
         kilk:=kilk+1;
         s1:=s1+s[i+1];
        end;
  writeln(kilk);
  readln;
end.

[Serge_Bliznykov]

Dark_Spirit, к сожалению, реализованный Вами алгоритм неверен...
пробуйте:

vvedite stroku -> pust,rust

Ваш алгоритм сообщит, что достаточно 2 буквы.
правильный ответ 1 (одной буквы достаточно)
дальше - больше:

vvedite stroku -> pust,rust,gust

Ваш ответ: 3
правильный: 1

дальше:

vvedite stroku -> pust,ladya,pusyr

Ваш ответ: 2
но очевидно, что для того, чтобы отличить первое слово от третьего понадобится 4-ре буквы!

[bingooo]

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

[Serge_Bliznykov]

bingooo, сейчас времени нет.
но подсказать могу.
в паскале строка может быть длиной 255 символов максимально.
поэтому, если допустить, что введены все слова из ОДНОЙ буквы, то максимум может быть 128 слов.
поэтому заводите массив
Slova : array[1..128] of string;
разбирайте строку на слова, слова записывайте в массив.
ну а потом, я бы лично отсортировал массив (чтобы не перебирать все элементы каждый раз),
присвоил переменной NeedLetterCount := 1; (минимально одна буква, ибо пустые строчки - это не слова)

цикл по i от 1 до (КоличествоСлов - 1)
в цикле:
в отсортированном массив сравнивал, пока подстрока длиной NeedLetterCount i-го слова совпадает с подстрокой длиной NeedLetterCount i+1-го слова, то увеличивал бы NeedLetterCount. добавить проверку на то, что слово закончилось. всё. задача решена!

кстати, если в исходной строке два одинаковых слова, то данная задача вообще не имеет решения.

[Dark_Spirit]

Serge_Bliznykov , спасибо за критику, но здаётся мне что Вы немного не внимательно прочли задание.

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

Вы же предлагаете искать колличество букв которыми слова отличаются

[Serge_Bliznykov]

Dark_Spirit, всё может быть..

но, я процитированный Вами текст понимаю так:
нужно найти сколько букв из любого слова нужно взять, чтобы ОДНОЗНАЧНО определить, какое слово перед нами...

Вот, смотрите, в задании даже сказано, что "Первые буквы некоторых слов могут совпадать".
Вот и нужно найти МИНИМАЛЬНОЕ количество первых букв, по которыми слова можно РАЗЛИЧИТЬ!

__________________________________

Вы же предлагаете искать колличество букв которыми слова отличаются

это Вы вообще о чём?!! o_O
слова bugaga и lollollol сколькими буквами отличаются?!
а слова kusok kubok ?!

[Janch]

Не удержался, вот моё видение этой проблемы...
Uses crt;
Var S,Sr,Sj: String;
r,i: Integer;
BEGIN clrscr;
Write('Введите строку: '); ReadLn(S);
r:=1; Sr:=''; i:=1; Sj:='';
While (i<=Length(S))and(r<Length(S)) do begin
if (S[i]=' ') then Sj:='' else Sj:=Sj+S[i];
if (Length(Sj)=r) then begin
if (pos(Sj,Sr)>0)and( ((pos(Sj,Sr)-1) mod Length(Sj))=0) then begin
r:=r+1; Sr:=''; i:=0; Sj:='';
end else Sr:=Sr+Sj;
end;
i:=i+1;
end;
WriteLn('Минимальное количество символов для различения слов: ',r);
Repeat Until KeyPressed;
END.

[Serge_Bliznykov]

Janch, потестировал немножко.
Вроде бы всё работает так, как надо (с моей точки зрения!)

Но есть один недостаток! В задании сказано:

записаны слова, разделяющиеся запятыми.

а у Вас разделитель - пробел!

[Stilet]

Хы... Ну а вот мое видение решения этой проблемы

   var s:string;i:integer;c:char;
   q:set of 'a'..'z';
begin
 s:=' Pull,me,under,pull,me,under,im,not,afride';
 for i:=1 to length(s) do  if s[i]=',' then include(q,s[i+1]);
 i:=0;
 for c:='a' to 'z' do if c in q then inc(i);
 write(i);
  { TODO -oUser -cConsole Main : Insert code here }
  readln;
end.

По-моему красиво (от скромности не умру, не правда ли? )