Question

Дан текст. Удалить все слова, которые начинаются на одну и ту же букву.(Pascal)

Answer 1

Ответ:

Вот примерно так

Объяснение:

var

 s, s1: string;

 i, k: integer;

 

begin

 write('Введите строку: ');

 readln(s);

 //s := 'мама папа дед лес поп';

 writeln(s);

 s := s + ' ';

 i := 0;

 k := 1;

 while i < Length(s) do

 begin

   inc(i);

   if not (s[i] in [' ', ',', '-']) then  

     s1 := s1 + s[i]

      else  

   begin

     if s1[1] = s1[Length(s1)] then  

     begin

       //    writeln(s1);

       delete(s, k, Length(s1) + 1);

       //    writeln(s);

     end;  

     inc(k, Length(s1) + 1);

     s1 := '';

     //writeln(k);

   end;

 end;

 writeln(s);

end.

Answer 2

Вы можете удалить слова, начинающиеся на одну и ту же букву в тексте, используя язык программирования Pascal. Вот пример кода, который сделает это:

pascalCopy code
program RemoveWordsStartingWithSameLetter;

uses
  SysUtils, StrUtils;

var
  InputText, OutputText, CurrentWord, NextWord: string;
  Words: TStringDynArray;
  i: Integer;

begin
  // Введите текст
  Write('Введите текст: ');
  ReadLn(InputText);

  // Разделите текст на слова
  Words := SplitString(InputText, ' ');

  // Инициализируем переменную для хранения результата
  OutputText := '';

  // Проходим по словам и добавляем их в результат, если первая буква не совпадает с первой буквой следующего слова
  for i := 0 to High(Words) do
  begin
    CurrentWord := Words[i];
    if i < High(Words) then
    begin
      NextWord := Words[i + 1];
      if not SameText(CurrentWord[1], NextWord[1]) then
        OutputText := OutputText + CurrentWord + ' ';
    end
    else
      OutputText := OutputText + CurrentWord; // Добавляем последнее слово без пробела
  end;

  // Выводим результат
  WriteLn('Результат:');
  WriteLn(OutputText);

  ReadLn;
end.

Этот код сначала просит пользователя ввести текст, разделяет его на слова, а затем проходит по словам, удаляя слова, которые начинаются на одну и ту же букву, как и следующее слово. Результат выводится на экран.