Запись подстрок строки в массив

@Mrak23 · Регистрация: 08.10.2015

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

Пользователь вводит строку из букв и пробелов. Записать все слова из этой строки (разделены одним и более пробелами) в массив (каждое слово - отдельными элементами массива ) и вывести их на экран. указав их длину.

Образец:
Lorem ipsum dolor sit amet
Результат:
Lorem -5
ipsum -5
dolor -5
sit -3
amet -4

@ite · 08.10.2015, 20:57

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var
   s,s1:string;
   i,r:integer;
begin
write('Введите предложение: ');
readln(s);
for i:=1 to length(s) do
  begin
    if s[i]=' ' then
      begin
        writeln(' - ',r);
        r:=0;
      end
    else
      begin
        write(s[i]);
        inc(r);
      end;
  end;
writeln(' - ',r);
end.

@Mrak23 · 09.10.2015, 06:53 **[ТС]**

Спасибо

@bormant · 09.10.2015, 10:07

По условию могут быть несколько пробелов, поэтому лучше:

Pascal
9
  if (s[i]=' ') and (r>0) then

Добавлено через 1 час 49 минут
а еще лучше (ведь пробел может быть и на конце):

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var
  w: array [1..100] of String[64];
  s: String;
  i, j, r: Integer;
begin
  Write('Введите предложение: ');
  ReadLn(s); s:=s+' '; r:=0; j:=1;
  for i:=1 to Length(s) do begin
    if (s[i]=' ') and (r>0) then begin
      Inc(j);
      r:=0;
    end else begin
      w[j]:=w[j]+s[i];
      Inc(r);
    end;
  end;
  for i:=1 to j do WriteLn(w[i],' - ',Length(w[i]));
end.

Новые блоги и статьи Все статьи Все блоги /
Установка 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 существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .
Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .

@Mrak23 0 / 0 / 0 Регистрация: 08.10.2015 Сообщений: 19

	Запись подстрок строки в массив 08.10.2015, 18:46. Показов 1600. Ответов 3 Метки нет (Все метки) Пользователь вводит строку из букв и пробелов. Записать все слова из этой строки (разделены одним и более пробелами) в массив (каждое слово - отдельными элементами массива ) и вывести их на экран. указав их длину. Образец: Lorem ipsum dolor sit amet Результат: Lorem -5 ipsum -5 dolor -5 sit -3 amet -4 0

@Mrak23 0 / 0 / 0 Регистрация: 08.10.2015 Сообщений: 19
	09.10.2015, 06:53 [ТС]
	Спасибо 0

Запись подстрок строки в массив

Решение

Решение