IPR2, Pascal - rextester

IPR2

program Ipr2;

//uses crt;

var
  s, LastWord, sl, smin, sorig: string;
  f1, f2, f3, dmin, wcount, wci, minwi1: integer;

begin
  LastWord := '';
  readln(s); // вводим строку s, например: this text is my text
  sorig := s;
  //clrscr;
  
  // находим последнее слово строки
  for f1 := length(s) downto 1 do // цикл с конца
    if not (s[f1] in [' ']) then LastWord := s[f1] + LastWord // если символ не пробел, то послдеднее слово равно само себе + этот символ
    else break; // если символ пробел то все что следлвало до него и есть последнее слово
  
  // считаем количество слов в строке (точнее пробелов)
  wci := length(s); // счетчик слов i равен длинне строки
  wcount := 1; 
  while wci > 0 do 
  begin
    if s[wci] = ' ' then // если буква это пробел
      wcount := wcount + 1;// то +1 к счетчику
    wci := wci - 1; // i--
  end;
  
  for f2:= 0 to wcount - 1 do delete(s, (pos(LastWord, s)), length(LastWord)); // удаляет последнее слово из строки столько раз сколько есть пробелов в строке
  
  // находим самое короткое слово
  sl := '';
  dmin := length(s); 
  for minwi1:= 1 to length(s) do           //в цикле перебираю все символы строки
    if s[minwi1] <> ' ' then sl := sl + s[minwi1]  //если символ не пробел, добавляю его к слову
    else                         //иначе
    begin//перехожу к обработке полученного слова
      if (length(sl) < dmin) and (length(sl) <> 0) then   //если длина найденного слова меньше ранее означенной минимальной длины, но больше 0
      begin
        dmin := length(sl);         //запоминаю новую минимальную длину
        smin := sl;                 //и запоминаю новое минимальное слово
      end;
      sl := '';                      //очищаю переменную слова для следующего слова
    end;
     
  delete(s, (pos('  ', s)), 1); // удаляет лишний пробел в строке
  for f3:= 0 to wcount - 1 do delete(s, (pos('th', s)), length('th')); // удаляет th столько раз сколько есть пробелов в строке
  
  //вывод итогов на экран
  writeln('Введенная строка: ');
  writeln(Sorig);
  writeln;
  writeln('Слово имееющее минимальную длинну: ');
  writeln(smin);
  writeln;
  writeln('Строка содержащая все слова, отличные от последнего слова, удалив th');
  writeln(s);
  
end.


run \| edit \| history \| help	0