Вставить между втоpым и тpетьим словом текста новое слово

@SpanGeR · Регистрация: 08.11.2009

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

Задание.
В пpоизвольном тексте вставить между втоpым и тpетьим словом новое слово.

Подскажите плиз.

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

@Inadequate · 20.11.2009, 19:42

SpanGeR, что такое произвольный текст? это текстовый файл или строка?

@Страдалецъ · 20.11.2009, 19:46

Сегодня я уже ответ давал на такой-же вопрос, но для Дельфи. Это случаем не вам?

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
function ContextReplace(S,S1,S2,S3: String): String;
Var
  SPos,EPos: Integer;
begin
 Result := S;
 SPos := PosEx(S1, S, 1);
 EPos := PosEx(S2, S, SPos);
 if (SPos <> 0) and (EPos <> 0)
 then Result := Copy(S,1,SPos+Length(S1)-1) + S3 + Copy(S,EPos,Length(S));
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 Memo1.Text := ContextReplace(Memo1.Text,' Мама ','раму',' мыла ');
end;

@SpanGeR · 20.11.2009, 20:03 **[ТС]**

Inadequate, Произвольный текст - строка.
Страдалецъ, нет не мне.
Мне бы для паскаля...

@Inadequate · 20.11.2009, 20:15

SpanGeR, вот простая программка которая вставляет слово между двух слов строки, слова в строке разделены пробелами:

Pascal
1
2
3
4
5
6
7
8
var
  w,s:string;
begin
  readln(s,w);
  w:=w+' ';
  Insert(w,s,pos(' ',s)+1);
  writeln(s)
end.

@SpanGeR · 20.11.2009, 20:17 **[ТС]**

А чтобы слово было вставлено между 2 и 3, что переделать надо?

@Inadequate · 20.11.2009, 20:33

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

А чтобы слово было вставлено между 2 и 3, что переделать надо?

всю программу. подождите я сейчас сделаю

Добавлено через 40 секунд
я почему то недосмотрел что Вам нужно между 2 и 3

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
var
  w,s:string;
  i,c,temp:integer;
begin
  readln(s,w);
  w:=w+' ';
  c:=0;
  temp:=0;
  for i:=1 to length(s) do
  begin
    if s[i]=' ' then
      inc(c);
    if (c=2) and (temp=0) then
      temp:=i;
  end;
  if c>2 then
  begin
    insert(w,s,temp+1);
    writeln(s)
  end
  else
    writeln('Íåêóäà âñòàâèòü ñëîâî!')
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 существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .

@SpanGeR 2 / 2 / 1 Регистрация: 08.11.2009 Сообщений: 29

	Вставить между втоpым и тpетьим словом текста новое слово 20.11.2009, 19:26. Показов 1813. Ответов 6 Метки нет (Все метки) Задание. В пpоизвольном тексте вставить между втоpым и тpетьим словом новое слово. Подскажите плиз. Добавлено через 35 минут up 0

@Inadequate Retired 7727 / 2559 / 671 Регистрация: 17.10.2009 Сообщений: 5,100
	20.11.2009, 19:42
	SpanGeR, что такое произвольный текст? это текстовый файл или строка? 1

@SpanGeR 2 / 2 / 1 Регистрация: 08.11.2009 Сообщений: 29
	20.11.2009, 20:03 [ТС]
	Inadequate, Произвольный текст - строка. Страдалецъ, нет не мне. Мне бы для паскаля... 0

@SpanGeR 2 / 2 / 1 Регистрация: 08.11.2009 Сообщений: 29
	20.11.2009, 20:17 [ТС]
	А чтобы слово было вставлено между 2 и 3, что переделать надо? 0