Question

Помогите пожалуйста составить программу на ''Pascal ABC'') Дана строка, содержащая текст на русском языке, и некоторая буква. Подсчитать, сколько слов начинается с указанной буквы.

Answer 1

var
  str : string;
  i, j: byte;
  schr: char;

begin
  readln(str); //Вводим строку
  str := ' ' + str;  //Это чтобы не удлинять условие, что ниже
  readln(schr); //Вводим символ
  for i := 2 to length(str) do
    if ((upcase(str[i]) = upcase(schr)) and (str[i - 1] = ' ')) then
      inc(j);
  writeln(j);
end.

Answer 2

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

program CountWords;

var
  inputString: string;
  targetLetter: char;
  wordCount: integer;

procedure CountWordsStartingWithLetter(str: string; letter: char; var count: integer);
var
  words: array of string;
  currentWord: string;
  i: integer;
begin
  // Инициализируем переменные
  SetLength(words, 0);
  currentWord := '';

// Проходим по каждому символу в строке
  for i := 1 to Length(str) do
  begin
    // Если символ не пробел, добавляем его к текущему слову
    if str[i] <> ' ' then
      currentWord := currentWord + str[i]
    else
    begin
      // Если текущее слово не пустое, добавляем его к массиву слов
      if currentWord <> '' then
      begin
        SetLength(words, Length(words) + 1);
        words[High(words)] := currentWord;
        currentWord := '';
      end;
    end;
  end;

// Добавляем последнее слово, если строка не заканчивается пробелом
  if currentWord <> '' then
  begin
    SetLength(words, Length(words) + 1);
    words[High(words)] := currentWord;
  end;

// Подсчитываем количество слов, начинающихся с указанной буквы
  count := 0;
  for i := 0 to High(words) do
  begin
    if Length(words[i]) > 0 then
      if UpCase(words[i][1]) = UpCase(letter) then
        Inc(count);
  end;
end;

begin
  // Ввод строки
  writeln('Введите строку:');
  readln(inputString);

// Ввод буквы
  writeln('Введите букву:');
  readln(targetLetter);

// Подсчет слов
  CountWordsStartingWithLetter(inputString, targetLetter, wordCount);

// Вывод результата
  writeln('Количество слов, начинающихся с буквы ', targetLetter, ': ', wordCount);
end.

Эта программа сначала считывает строку и букву с клавиатуры, затем использует процедуру `CountWordsStartingWithLetter`, чтобы подсчитать количество слов, начинающихся с указанной буквы. Наконец, программа выводит результат.