Question

Дан текст в паскале. как найти количество слов, заканчивающихся определенной буквой?

Answer 1

Ответ:

Вводится текст. Конец ввода точка. Найти количество слов на букву "А

Answer 2

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

Вот пример кода на Pascal, который реализует эту функциональность:

pascalCopy code
program WordCount;

function CountWordsEndingWithLetter(text: string; letter: char): integer;
var
  wordCount, i, len: integer;
  word: string;
begin
  // Инициализируем счетчик слов
  wordCount := 0;
  
  // Инициализируем переменную для хранения длины текста
  len := length(text);
  
  // Инициализируем переменную для хранения текущего слова
  word := '';
  
  for i := 1 to len do
  begin
    // Если символ не пробел, добавляем его к текущему слову
    if text[i] <> ' ' then
      word := word + text[i]
    else
    begin
      // Если слово заканчивается заданной буквой, увеличиваем счетчик
      if (length(word) > 0) and (word[length(word)] = letter) then
        Inc(wordCount);
      
      // Обнуляем текущее слово
      word := '';
    end;
  end;
  
  // Проверяем последнее слово в тексте
  if (length(word) > 0) and (word[length(word)] = letter) then
    Inc(wordCount);
  
  CountWordsEndingWithLetter := wordCount;
end;

var
  inputText: string;
  endingLetter: char;
  resultCount: integer;
begin
  // Вводим текст
  writeln('Введите текст: ');
  readln(inputText);
  
  // Вводим букву, которой должны оканчиваться слова
  writeln('Введите букву: ');
  readln(endingLetter);
  
  // Подсчитываем количество слов, оканчивающихся на заданную букву
  resultCount := CountWordsEndingWithLetter(inputText, endingLetter);
  
  // Выводим результат
  writeln('Количество слов, оканчивающихся на букву ', endingLetter, ': ', resultCount);
end.

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