Задание со строками

[-happy]

задали задачки я парился часа три никак не могу написать ченить путное помогите!

Дана строка символов до точки. Группы символов в ней между группами пробелов считаются словами. Определить длины самого короткого и самого длинного слов.

Дано слово. Удалить из него третью букву; К-ю букву (задается в ходе программы); первую из букв "о", если есть такая буква; последнюю из букв "т" если такаая буква есть.

[Данила]

язык то хоть укажите...

[-happy]

яп object pascal среда   программирования delphi

[Данила]

1.
бежите циклом по строке.
нашли пробел и следующий символ не пробел - записываете новоую подстроку,до тех пор пока i+1 Элемент  неравен пробелу. записываете в массив,и дальше до конца так.
далее бежите по массиву определяя длину слов,и выводите мин и мах

2.
просто сдвигаете все символы на 1 назад начиная с 4го(K+1- го). идете по слову, нашли о - сдвигаете  все последующие символы на 1 назад и заканчиваете цикл. делаете цикл с конца и как с буквой О,нашли Т - сдвинули, вышли.

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

[-happy]

спасибо! =)

[-happy]

var i,d,min:integer;
     st:string;
min:=length(st);
for i:=1 min do
  begin
    if st<>'_' then
    begin
      d:=d+1;
     end;
    else
    begin
     if (min>d)  then
     begin
       min:=d;
            end;
     d:=0;
    end;
  end;

вот это что есть на данный момент. я начал с минимального а максимальное по аналогии я думаю

[Данила]

смотрите косяк. вы делает цикл от 1 до min. скажем мин = 10. далее берете и делаете мин = 5(нашли такое слово) и получаете цикл уже до 5,а не до 10, и как следствие последние 5 символом вы теряете вообще. сделайте переменную len,например. туда длину строки, и в мин длину строки. мин будет меняться,а цикл пройдет всю строку. с максимумом аналогично,но мах в начале будет 0,а далее будете по мере нахождения присваивать значения длинных слов.