В новую строку из исходной строки перенести слова, длина которых больше 5 символов

@Katya007 · Регистрация: 30.04.2021

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

Ввести с клавиатуры строку S1 длиной до 70 символов. В строку S2 перенести все слова, длина которых больше 5 символов.
Помогите, пожалуйста, написать через array of char метод string у меня готов но этот массив....

Заранее большое спасибо!)

@ZX Spectrum-128 · 06.05.2021, 11:47

Сообщение от Katya007

через array of char

Ввести строку длиной до 70 символов. Определить сколько слов длиной четыре буквы входят в эту строку

@bormant · 06.05.2021, 18:01

Что значит "перенести"?

@Katya007 · 06.05.2021, 20:27 **[ТС]**

если в строке с1 есть слова в которых больше 5 букв то нам надо переместить ети слова в строку с2

Добавлено через 29 минут
можете помочь?
просто у меня завтра занятие но я не понимаю что здесь делать

(

@bormant · 07.05.2021, 05:54

Я пока по вашему описанию не понимаю, что именно нужно сделать.
Что станет со строкой 1 после "переместить"? Что делать с разделителями слов, тоже "переместить"?

@bormant · 07.05.2021, 12:09

Как вариант:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var
  s1, s2: array [0..70] of Char;
  i1, i2, i, j: Integer;
begin
  Write('Строка: '); ReadLn(s1);
  while s1[i]=' ' do Inc(i);
  while s1[i]<>#0 do begin
    while s1[i]=' ' do begin s1[i1]:=s1[i]; Inc(i1); Inc(i); end;
    j:=i; while not (s1[i] in [#0,' ']) do Inc(i);
    if i-j>5 then begin
      while j<i       do begin s2[i2]:=s1[j]; Inc(i2); Inc(j); end;
      while s1[i]=' ' do begin s2[i2]:=s1[i]; Inc(i2); Inc(i); end;
    end else begin
      while j<i       do begin s1[i1]:=s1[j]; Inc(i1); Inc(j); end;
      while s1[i]=' ' do begin s1[i1]:=s1[i]; Inc(i1); Inc(i); end;
    end;
  end;
  s1[i1]:=#0; s2[i2]:=#0;
  WriteLn('s1: ',s1);
  WriteLn('s2: ',s2);
end.

Новые блоги и статьи Все статьи Все блоги /
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .
Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .	Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .

@Katya007 0 / 0 / 0 Регистрация: 30.04.2021 Сообщений: 22

	В новую строку из исходной строки перенести слова, длина которых больше 5 символов 05.05.2021, 22:32. Показов 965. Ответов 5 Метки паскаль abc.net (Все метки) Ввести с клавиатуры строку S1 длиной до 70 символов. В строку S2 перенести все слова, длина которых больше 5 символов. Помогите, пожалуйста, написать через array of char метод string у меня готов но этот массив.... Заранее большое спасибо!) 0

@bormant Модератор 7816 / 4635 / 2837 Регистрация: 22.11.2013 Сообщений: 13,159 Записей в блоге: 1
	06.05.2021, 18:01
	Что значит "перенести"? 0

@Katya007 0 / 0 / 0 Регистрация: 30.04.2021 Сообщений: 22
	06.05.2021, 20:27 [ТС]
	если в строке с1 есть слова в которых больше 5 букв то нам надо переместить ети слова в строку с2 Добавлено через 29 минут можете помочь? просто у меня завтра занятие но я не понимаю что здесь делать( 0

@bormant Модератор 7816 / 4635 / 2837 Регистрация: 22.11.2013 Сообщений: 13,159 Записей в блоге: 1
	07.05.2021, 05:54
	Я пока по вашему описанию не понимаю, что именно нужно сделать. Что станет со строкой 1 после "переместить"? Что делать с разделителями слов, тоже "переместить"? 0