Строка. Поиск и удаление минимального слова.

[Катакомба]

скажите пожалуйста,в чем ошибка?

  writeln('vvedite predlozenie ');
   readln(st);
   n:=length(st);
   st:=copy(st,1,n-1);
   repeat
     i:=pos(' ',st);
     delete(st,1,i);
     if(i-1)<min then min:=i-1
   until i=0;
   writeln('minimalnoe slovo= ',min);
   delete(st,pos('min',st),min);
   readln;

в задаче требуется удалив из строки слово мин длинны сформулировать новую строку.

[Dvoishnik]

writeln('vvedite predlozenie ');
   readln(st);
   n:=length(st);  //присвоим дленну строки
   st:=copy(st,1,n-1);  //копируем строку без последнего символа
   repeat 
     i:=pos(' ',st);  //присваиваем   индекс первого пробела
     delete(st,1,i);  // удаляем первое слово
     if(i-1)<min then min:=i-1 // чему равно начальное значение min??  
   until i=0;
   writeln('minimalnoe slovo= ',min);
   delete(st,pos('min',st),min);
   readln;

что тут работать должно?

[Son Of Pain]

Тут много ошибок. Читается строка; из нее зачем-то удаляется последний символ; потом по очереди удаляются все слова, находится длина минимального слова (только в том случае, если переменную min где-то выше правильно инициализировали); выводится эта длина; предпоследняя строчка с delete вообще лишена смысла.

Да, и если скормить ей строку с двумя идущими подряд пробелами - случится epic fail.s

[Катакомба]

выводиться минимальная длина слова

[Катакомба]

последний символ это точка,её же убрать надо для дальнейшей работы

[Dvoishnik]

Сообщение от Катакомба

последний символ это точка,её же убрать надо для дальнейшей работы

зачем?
я код ваш откоментировал думайте что нужно зделать.
если цикл верно работает
вам нужно еше найти позицию начала минимального слова и строку нужно сохранить которую вы вводите
а иначе из чего вы будете удалять?

[Катакомба]

вот что получилось написать:

var
i,min,k,l:integer;
str1,str,z,minz:string;
begin
   writeln('vvedite stroky');
   readln(str);
   str1:=str;
   //
   z:=' ';
   min:=length(str);
   minz:=' ';

   min:=pos(' ',str)-1;
   str:=str+' ';
   while str<>' ' do
   begin
      k:=0;
       while pos(' ',str)<>0 do
     begin
       k:=pos(' ',str);
       z:=copy(str,1,k-1);
       delete(str,1,k);
       if min = k then
       minz:=minz+' '+z;
       if min > k then
       begin
        min:=k;
        minz:=z;
        z:=' ';
       end;
   end;
    delete(str1,pos(minz,str),min);
    writeln(str1);
    readln;
   end;
end.

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

[Serge_Bliznykov]

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

так пойдёт?

var s,w, sNew : string;
  i,j : integer;
  MinLen, IndexMinLen : integer;
begin
  s := 'Мало просто любить Pascal на нём ещё и писать надо';
  
  IndexMinLen := -1;
  MinLen := 9999;

  s := s + ' ';
  w := '';
  for i:=1 to length(s) do begin
    if s[i]<>' ' then w := w+s[i]
    else {пробел нашли, значит это конец слова}
     begin
       if (w<>'') and (Length(w)<MinLen) then begin
         IndexMinLen := i-Length(w);
         MinLen := Length(w);
       end;
       w := '';
     end;
  end;

  sNew := s;
  if IndexMinLen>0 then {удалим самое короткое слово из строки}
    Delete(sNew, IndexMinLen, MinLen);

  {выведем полученную строку-результат}
  WriteLn('Новая строка:',sNew);
  readln;
end.

[Катакомба]

да,спасибо за помощь!!!