Описать процедуру, формирующую n-е слово строки

@Jarebeck · Регистрация: 19.12.2014

Author24 — интернет-сервис помощи студентам

Было бы просто, если бы не процедура, которую я не могу приобщить к трем переменным, но не суть...
Задача: Описать процедуру, формирующую n-е слово строки. Если количество слов в строке меньше n, то формировать пустую строку. Используя эту процедуру, выделить из данной строки S слова с номерами n1, n2, n3. Значения S, n1, n2, n3 вводятся самостоятельно. Затем проделать то же самое еще для трех вводимых строк.
Заранее благодарен!

@Jarebeck · 22.12.2014, 01:24 **[ТС]**

Ну-же, ребят!

@Cyborg Drone · 25.12.2014, 16:02

В задании не указано, что следует считать разделителем слов. Буду считать, что разделитель слов - пробел, прочие символы, в том числе и знаки пунктуации, буду считать символами слов.
Процедура вместе с вызывающей программой согласно задания.

Pascal

procedure n_wrd(s: string; n: integer; var wrd: string);
var i: integer;
begin
  while (length(s) > 0) and (s[1] = ' ') do delete(s, 1, 1);
  s := s + ' ';
  while pos('  ', s) > 0 do delete(s, pos('  ', s), 1);
  for i := 1 to n - 1 do
    if length(s) > 0
      then delete(s, 1, pos(' ', s))
      else break;
  if length(s) = 0
    then wrd := s
    else wrd := copy(s, 1, pos(' ', s) - 1)
end;
 
var i, j: integer;
    n: array [1..3] of integer;
    s, w: string;
begin
  for i := 1 to 4 do
    begin
      writeln('Enter string #', i, ':');
      readln(s);
      for j := 1 to 3 do
        repeat
          write('n', j, ' = ');
          readln(n[j]);
          if n[j] < 1 then writeln('Number of word may be >= 1, reenter.')
        until n[j] >= 1;
      for j := 1 to 3 do
        begin
          n_wrd(s, n[j], w);
          write('Word #', n[j]);
          if length(w) > 0
            then writeln(': ', w)
            else writeln(' not found.')
        end;
      writeln
    end;
  readln
end.

Добавлено через 6 минут

Не по теме:

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

Новые блоги и статьи Все статьи Все блоги /
Использование кэша Laravel - полный гайд bytestream 18.02.2025 Кэширование - один из наиболее эффективных способов повышения производительности веб-приложений. В современном мире, где скорость загрузки страниц напрямую влияет на удержание пользователей и. . .	Создаем REST API в Laravel с аутентификацией через Passport bytestream 18.02.2025 Разработка современных веб-приложений все чаще требует создания надежного и хорошо структурированного API. REST API стал стандартом де-факто для построения взаимодействия между клиентской и серверной. . .	Пайплайны в Laravel - полный гайд bytestream 18.02.2025 Разработка современных веб-приложений часто требует обработки сложных процессов, состоящих из множества последовательных шагов. Например, при создании системы комментариев может потребоваться. . .	Как правильно использовать @required в Symfony bytestream 18.02.2025 При разработке приложений на Symfony мы часто сталкиваемся с необходимостью внедрения зависимостей. Фреймворк предоставляет несколько способов управления этим процессом, и одним из таких инструментов. . .	Система безопасности в Laravel: возможности и примеры Wired 18.02.2025 Каждый день появляются новые виды атак и уязвимостей, которые могут поставить под угрозу конфиденциальные данные пользователей и функционирование всей системы. В этом контексте выбор надежного. . .
Давайте сравним Django и Laravel Wired 18.02.2025 Django и Laravel - два мощных инструмента, которые часто сравнивают между собой. Оба фреймворка предлагают разработчикам богатый набор возможностей для создания масштабируемых веб-приложений, но. . .	Laravel или React - что лучше? Wired 18.02.2025 В разработке веб выбор правильного инструмента часто определяет успех всего проекта. Особенно интересным представляется сравнение Laravel и React - двух популярных технологий, которые часто. . .	Laravel 11: новые возможности, гайд по обновлению Wired 18.02.2025 Laravel 11 - это новая масштабная версия одного из самых популярных PHP-фреймворков, выпущенная в марте 2024 года. Эта версия продолжает традицию внедрения передовых технологий и методологий. . .	Миграции в Laravel Wired 18.02.2025 Разработка веб-приложений на Laravel неразрывно связана с управлением структурой базы данных. При работе над проектом часто возникает необходимость вносить изменения в схему базы данных - добавлять. . .	Аутентификация в Laravel Wired 18.02.2025 В современном мире веб-разработки безопасность пользовательских данных становится критически важным аспектом любого приложения. Laravel, как один из самых популярных PHP-фреймворков, предоставляет. . .

@Jarebeck 0 / 0 / 1 Регистрация: 19.12.2014 Сообщений: 4
		1
	Описать процедуру, формирующую n-е слово строки 19.12.2014, 20:40. Показов 1137. Ответов 2 Метки нет (Все метки) Было бы просто, если бы не процедура, которую я не могу приобщить к трем переменным, но не суть... Задача: Описать процедуру, формирующую n-е слово строки. Если количество слов в строке меньше n, то формировать пустую строку. Используя эту процедуру, выделить из данной строки S слова с номерами n1, n2, n3. Значения S, n1, n2, n3 вводятся самостоятельно. Затем проделать то же самое еще для трех вводимых строк. Заранее благодарен! 0

@Jarebeck 0 / 0 / 1 Регистрация: 19.12.2014 Сообщений: 4
	22.12.2014, 01:24 [ТС]	2
	Ну-же, ребят! 0

	19.12.2014, 20:40

	25.12.2014, 16:02

Описать процедуру, формирующую n-е слово строки

Решение