Разобрать строку символов на массив слов

@Аська · Регистрация: 29.12.2008

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

разобрать строку символов на массив слов(255 символов и 128 слов)

@Lord_Voodoo · 29.12.2008, 12:21

читаешь массив (for), находишь пробел, все что было до этого есть слова, записал в массив слов и так до конца массива

@Аська · 29.12.2008, 12:29 **[ТС]**

а можешь на программке показать??я вообще практически ноль((((в этом паскале

@Lord_Voodoo · 29.12.2008, 13:12

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 uses crt;
var a : string;
b : array [1..128] of string;
str : string;
i,j:integer;
begin
  clrscr;
  j:=0;
  readln(a);
  for i := 1 to 255 do
   if(a[i] <> ' ') then str:=str+a[i]
   else
     begin
      if str<>'' then
        begin
          inc(j);
          b[j]:=str;
          if j = 128 then break;
          str:='';
       end
     end;
   for i := 1 to j do
    writeln('str', i, '=',b[i]);
  readkey;
end.

может что-то не так написал или задания не понял, пиши сразу, только по существу, а то один писал мне, что не работает, а что - так и не объяснил

@Аська · 29.12.2008, 13:19 **[ТС]**

спасибочки огромное!!!!!я попробую запустить,спасибо!!!!!

@Rasul · 03.01.2009, 11:21

Что означает функция inc??

@Lord_Voodoo · 03.01.2009, 11:25

Rasul, почитайте хоть раз хелп, там все расписано...

@Rasul · 03.01.2009, 11:38

Извените, но я прочитал FAQ, а там пока только методы сортировки расписаны.

@Lord_Voodoo · 03.01.2009, 11:42

Rasul, inc - это инкримент, только faq - это часто задаваемые вопросы, а я вам сказал про справку, которая в borland pascal-e находиться, там все функции расписаны + примеры использования

@Rasul · 03.01.2009, 11:55

WooDooMan, спасибо. Раньше не приходилось пользоваться helpом, вот и забыл про него совсем.

@AlexQ · 03.01.2009, 12:22

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

Rasul, inc - это инкримент

На всякий случай. Инкримент увеличивает число на 1 (никто тут не объяснял, что это такое, вдруг непонятно).

@Rasul · 03.01.2009, 12:28

Аська, да спасибо, я уже прочитал в helpе. Надо сказать удобная штука.
Хотя, как я понял, inc(j) то же самое что j:=j+1.

Добавлено через 2 минуты 41 секунду
То есть, AlexQ, тебе спасибо.

Новые блоги и статьи Все статьи Все блоги /
Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .
Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .

@Аська 0 / 0 / 0 Регистрация: 29.12.2008 Сообщений: 10

	Разобрать строку символов на массив слов 29.12.2008, 11:47. Показов 2670. Ответов 11 Метки нет (Все метки) разобрать строку символов на массив слов(255 символов и 128 слов) 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	29.12.2008, 12:21
	читаешь массив (for), находишь пробел, все что было до этого есть слова, записал в массив слов и так до конца массива 0

@Аська 0 / 0 / 0 Регистрация: 29.12.2008 Сообщений: 10
	29.12.2008, 12:29 [ТС]
	а можешь на программке показать??я вообще практически ноль((((в этом паскале 0

@Аська 0 / 0 / 0 Регистрация: 29.12.2008 Сообщений: 10
	29.12.2008, 13:19 [ТС]
	спасибочки огромное!!!!!я попробую запустить,спасибо!!!!! 0

@Rasul 8 / 7 / 3 Регистрация: 03.01.2009 Сообщений: 70
	03.01.2009, 11:21
	Что означает функция inc?? 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	03.01.2009, 11:25
	Rasul, почитайте хоть раз хелп, там все расписано... 0

@Rasul 8 / 7 / 3 Регистрация: 03.01.2009 Сообщений: 70
	03.01.2009, 11:38
	Извените, но я прочитал FAQ, а там пока только методы сортировки расписаны. 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	03.01.2009, 11:42
	Rasul, inc - это инкримент, только faq - это часто задаваемые вопросы, а я вам сказал про справку, которая в borland pascal-e находиться, там все функции расписаны + примеры использования 0

@Rasul 8 / 7 / 3 Регистрация: 03.01.2009 Сообщений: 70
	03.01.2009, 11:55
	WooDooMan, спасибо. Раньше не приходилось пользоваться helpом, вот и забыл про него совсем. 0

@Rasul 8 / 7 / 3 Регистрация: 03.01.2009 Сообщений: 70
	03.01.2009, 12:28
	Аська, да спасибо, я уже прочитал в helpе. Надо сказать удобная штука. Хотя, как я понял, inc(j) то же самое что j:=j+1. Добавлено через 2 минуты 41 секунду То есть, AlexQ, тебе спасибо. 0

Разобрать строку символов на массив слов

Решение