VPF::Множества на Pascal - Форум программистов

CGW

Дата 17.3.2008, 22:09 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 9
Регистрация: 27.4.2007

Репутация: нет
Всего: нет

Прошу помогите

Дано предложение к примеру
S:='khjkh dsfsdfsd dfdfhygdf fyhjjghj ddgdfg';
делим предложение на слова(множества).
и каждое слово(множество) вставляем в массив A[i]

mmvds

Дата 18.3.2008, 08:07 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 230
Регистрация: 22.12.2007

Репутация: нет
Всего: 6

Код


var s:string;
a:array [1..128] of string;
n,i:integer;
begin
S:='gtqwerwdf sdfsdf wrwer wwe f elrjk ewr';
while S<>'' do
begin
  n:=n+1;
  if pos(' ',S)<>0 then
   begin
     A[n]:=copy(S,1,pos(' ',S));
     delete(S,1,pos(' ',S));
   end else
     begin
     A[n]:=S;
     S:='';
     end;
end;
for i:=1 to n do writeln(A[i]);
readln;
end.

CGW

Дата 18.3.2008, 14:12 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 9
Регистрация: 27.4.2007

Репутация: нет
Всего: нет

Супер, то что надо.
Благодарю за помощь.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »