Наименьшая длина слова Опции

[18192123]

Преобразовать данную строку, удалив из неё три слова наименьшей длины.

Слова могут разделяться только пробелами. Для строк использовать только length, chr, ord.

Вопрос такой: как задать условие, чтобы избавиться именно от трёх слов наименьшей длины и как такие слова искать?

Сообщение отредактировано: 18192123 - 7.01.2007 17:00

[volvo]

Основа будет выглядеть так:

...
s1 := '123 1234567 12 12345 123456 123 12 123456';
for kol := 1 to 3 do begin
  min := 255; n1 := 1;
  while slovo ( s1, n1, start ) <> '' do begin
    if min > length(slovo(s1, n1, start)) then begin
      i := start;
      min := length(slovo(s1, n1, start));
    end;
    inc(n1);
  end;

  delete(s1, i, min);
end;
writeln(s1);
...

Правда, придется немного подкорректировать функцию Slovo, чтобы она возвращала еще и позицию начала текущего слова в строке:

function Slovo(s: string; n: integer; var start: integer): string;
const lim = [' ', ',', '!'] ;
var
  ss: string;
  k, c, i: integer;
begin
  start := 0;
  ss := ''; c := 1; k := 1;
  while k <= length(s) do begin
    while not (s[k] in lim) and (k <= length(s)) do begin
      if c = n then begin
        if start = 0 then start := k;
        ss:=ss + s[k];
      end;
      inc(k);
    end;
    inc( c );

    while (s[k] in lim) and (k <= length(s)) do inc (k);
  end;
  Slovo := ss;
end;

Использована не стандартная Delete, взята отсюда: Строки