Question

Срочно!!!! Помогите пожалуйста Как удалить из предложения слова, содержащие прописные буквы. (Pascal) Код. Пример: "Привет как дела?". Нужно что слово "Привет" было удалено. И так все слова, которые имею заглавные буквы.

Answer 1

Pascal

var

 s : string = 'Вчера лиса Алиса пришла к коту Базилио и поинтересовалась его здоровьем.';

 i : integer;

 s1, sR : string;

begin

 s:=s+' ';

 i :=1;

 sR :='';

 s1:='';

 while i <= length(s) do begin

   if (s[i] = ' ') then begin

      if s1[1] <> UpperCase(s1[1]) then

          sR := sr + s1 + ' ';

      s1:=''

   end

   else

     s1:=s1 + s[i];

   inc(i);

 end;

 delete(sR, length(sR), 1);

 print(sR);

end.

А вот на PascalABC.Net.  заметно короче будет

begin

 var s := 'Вчера лиса Алиса пришла к коту Базилио и поинтересовалась его здоровьем.';

 var a := s.ToWords.Where(v -> (v.First <> v.First.ToUpper)).JoinIntoString();

 println(a);

end.  

Answer 2

Ответ:

pascal

Объяснение:

var k, s : string;

   i : byte;

begin

write('Введите предложение: '); readln(s);

s := s + ' '; i := 1;

while i < length(s) do begin

   if not(s[i] in 'А'..'Я') then k := k + s[i]

   else while s[i] <> ' ' do inc(i);

   inc(i);

end;

writeln(k);

end.

Answer 3

Для удаления слов, содержащих прописные буквы, из предложения в Pascal, вы можете использовать следующий код:

program RemoveCapitalWords;
uses SysUtils, StrUtils;

function RemoveWordsWithCapitalLetters(sentence: string): string;
var
  words: TStringDynArray;
  i: Integer;
begin
  words := SplitString(sentence, ' '); // Разделение предложения на слова
  for i := 0 to High(words) do
  begin
    if ContainsText(words[i], UpperCase(words[i])) then // Проверка, содержит ли слово заглавные буквы
      words[i] := ''; // Удаление слова, если оно содержит заглавные буквы
  end;
  Result := Trim(StringReplace(JoinString(words, ' '), '  ', ' ', [rfReplaceAll])); // Объединение слов обратно в предложение
end;

var
  sentence: string;
begin
  sentence := 'Привет как дела?';
  WriteLn('Исходное предложение: ', sentence);
  sentence := RemoveWordsWithCapitalLetters(sentence);
  WriteLn('Предложение без слов с заглавными буквами: ', sentence);
end.

В этом коде используется функция `RemoveWordsWithCapitalLetters`, которая принимает предложение в качестве входного параметра и возвращает предложение без слов, содержащих заглавные буквы. Функция разделяет предложение на отдельные слова, проверяет каждое слово на наличие заглавных букв с помощью функции `ContainsText`, и если слово содержит заглавные буквы, оно заменяется