Question

Pascal.Дана строка. Подсчитать и вывести количество слов, первое и последнее слово

Answer 1

// PascalABC.NET 3.0, сборка 1088
begin
  var s:=ReadLnString('Введите строку: ');
  var a:=s.ToWords.ToArray;
  Writeln('Слов в строке: ',a.Length);
  Writeln('Первое слово: ',a[0],', последнее: ',a[a.Length-1])
end.

Тестовое решение:
Введите строку: Это    наша     тестовая строчка
Слов в строке: 4
Первое слово: Это, последнее: строчка

Answer 2

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

program WordCount;

var
  str: string;
  count, i: integer;
  firstWord, lastWord: string;

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

// Инициализация переменных
  count := 0;
  firstWord := '';
  lastWord := '';

// Подсчет количества слов и определение первого и последнего слова
  for i := 1 to length(str) do
  begin
    if (str[i] <> ' ') and (str[i] <> ',') and (str[i] <> '.') then
    begin
      if count = 0 then
        firstWord := firstWord + str[i];
      lastWord := lastWord + str[i];
    end
    else if (str[i] = ' ') or (str[i] = ',') or (str[i] = '.') then
    begin
      if (firstWord <> '') and (lastWord <> '') then
        count := count + 1;
      firstWord := '';
      lastWord := '';
    end;
  end;

// Проверка последнего слова
  if (firstWord <> '') and (lastWord <> '') then
    count := count + 1;

// Вывод результатов
  writeln('Количество слов в строке:', count);
  writeln('Первое слово:', firstWord);
  writeln('Последнее слово:', lastWord);
end.

Этот код считывает строку с помощью `readln` и затем проходит по каждому символу строки. Если символ не является пробелом, запятой или точкой, то он добавляется к переменным `firstWord` и `lastWord`, которые хранят первое и последнее слово соответственно. Если символ является пробелом, запятой или точкой, то проверяется, было ли уже найдено первое и последнее слово. Если оба слова найдены, то увеличивается счетчик `count` на 1. В конце программы проверяется последнее слово и выводятся результаты подсчета и найденные слова.

Пример работы программы:

Введите строку:
Привет, мир! Это пример строки.
Количество слов в строке: 5
Первое слово: Привет
Последнее слово: строки

Пожалуйста, обратите внимание, что данный код не учитывает специфические правила разделения слов в русском языке, такие как дефисы или апострофы. Если вам нужно учесть эти правила, вам может потребоваться более сложный алгоритм разделения слов.