Turbo Pascal 7.0 Пара не понятных мне задач.Строки.

[anbroider]

Вот несколько заданий, прошу выслать код
1.В заданном тексте удалить из текста пропуски , подсчитать длину сформированного текста/

 Оригинал: У заданому тексті видалити з тексту пропуски і підрахувати довжину сформованого тексту.

2.Определить самое длинное слово в тексте, учитывая что слова разделены одним пропуском /

Оригинал: Визначити щонайдовше слово в тексті. Вважати, що слова в тексті відокремлені один від одного одним пропуском.

Если появится человек готовый помочь, буду премного благодарен.

[anbroider]

Небольшой ап. Прошу помочь.

[Poma][a]

Самое длинное слово давайте возьмем у TinMan'a (не забудем сказать ему спасибо) - тыц

[Serge_Bliznykov]

по первому заданию.
если под пропусками понимаются два и более пробела подряд, то это удалить не просто, а ОЧЕНЬ просто (s - исходная строка):

var s : string;
begin
  WriteLn('zadaite vash tekst: '); Readln(s);

  { удалить "пропуски"}
  while Pos('  ',s)>0 do Delete(s, Pos('  ',s), 1);

  {выдать полученную строку на экран}
  WriteLn('Tekst: ', s);

  {выдать длину полученной строки на экран}
  WriteLn('dovjina = ', Length(s));
 
   Readln
end.

всё! это готовый код.

[Mad_Cat]

ну а если и один пробел считать пропуском то

{ удалить "пропуски"}
  while Pos(' ',s)>0 do Delete(s, Pos(' ',s), 1);

[Poma][a]

Эм.. 5 копеек :
Функция Pos сама по-себе не очень эффективна, а тут еще 2 раза её вызывать.. При массиве строк это может дать о себе знать..
Так что можно так :

var
    t : Word;
..
    t := Pos ('  ', s);
    while t <> 0 do begin
        Delete (s, t, 1);
        t := Pos ('  ', s)
    end;

Хотя, конечно, две лишние строчки, тож не хорошо..

[anbroider]

Спасибо всем.