IPB
ЛогинПароль:

> Внимание! Действует предмодерация

Подраздел FAQ (ЧАВО, ЧАстые ВОпросы) предназначен для размещения готовых рабочих программ, реализаций алгоритмов. Это нечто вроде справочника, он наполнялся в течение 2000х годов. Ваши вопросы, особенно просьбы решить задачу, не пройдут предмодерацию. Те, кто наполнял раздел, уже не заходят на форум, а с теми, кто на форуме сейчас, лучше начинать общение в других разделах. В частности, решение задач — здесь.

> Разбиение на слова. Все способы.
сообщение
Сообщение #1


Ищущий истину
******

Группа: Пользователи
Сообщений: 4 825
Пол: Мужской
Реальное имя: Олег

Репутация: -  45  +


Предлагаю в теме собрать все способы разбиения строки на слова.
(рекурсивные, итерационные, с использованием массивов, без использования массивов, с ДСД, с чем-то еще... вобщем программы и алгоритмы преобразования предложения в набор слов )

СОБИРАЕМ! good.gif


--------------------
Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #2


Гость






Пожалуй, самый извращенный способ - используется реализация динамического массива (из FAQ) с ООП:

function pos(var p: byte;
substr, s: string): boolean;
begin
p := system.pos(substr, s);
pos := (p > 0)
end;


const
word_len = 100;
max_words = 100;

type
titerator = set of char;

const
str_singlespace = #32;
str_doublespace = #32#32;

str_space: titerator = [#32];
str_punct: titerator = ['.', ',', ':', ';', '?', '!'];

type
ptwordstr = ^twordstr;
twordstr = string[word_len];

ttype = twordstr;

{$i array.pas}

type
twordlist = object(tarray)
constructor init(s: string;
iterator: titerator);
destructor done;

{ Iterator }
function last: integer;
{ Iterator }

private
count: integer;

procedure find(s: string;
iterator: titerator);
procedure append(s: string);
end;

constructor twordlist.init(s: string;
iterator: titerator);
begin
inherited init(max_words);
count := 0;

find(s, iterator)
end;

destructor twordlist.done;
begin
inherited done
end;

procedure twordlist.append(s: string);
begin
inc(count);
if not put(count, s) then
begin
dec(count);
writeln('max_words limit exceeded !')
end
end;


function twordlist.last: integer;
begin last := count end;


function copy_delete(var s: string;
index, count: integer): string;
begin
copy_delete := copy(s, index, count);
delete(s, index, succ(count))
end;

procedure twordlist.find(s: string;
iterator: titerator);
var i, ps: Byte;
Begin
for i := 1 to length(s) do
if s[i] in iterator then s[i] := #32;

repeat
if pos(ps, str_doublespace, s)
then delete(s, ps, 1)
until ps = 0;

If s[1] = ' ' Then Delete(s, 1, 1);
If s[Length(s)] = ' ' Then
Delete(s, Length(s), 1);

i := 0;
repeat
if pos(ps, str_singlespace, s) then
append(copy_delete(s, 1, pred(ps)))
else append(s)
until ps = 0
End;

var
i, count: Word;
words: twordlist;

const
s: string = ' That,is all:folks ';
begin
words.init(s, str_punct);

writeln('the_test:');
for i := words.first to words.last do
writeln(words.get(i)^);
words.done
end.

файл array.pas прилагается: Прикрепленный файл  ARRAY.PAS ( 6.35 килобайт ) Кол-во скачиваний: 1605
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 21.01.2022 8:51
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name