Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/6: Рейтинг темы: голосов - 6, средняя оценка - 5.00
Freham
2 / 2 / 1
Регистрация: 14.10.2013
Сообщений: 175
1

Разбить текст на слова

05.06.2014, 17:00. Просмотров 1092. Ответов 1
Метки нет (Все метки)

Вот например пример: "Я люблю Россию"
как разбить это предложение на слова например:
b[0]=Я
b[1]=люблю
b[2]=Россию
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.06.2014, 17:00
Ответы с готовыми решениями:

Разбить два предложения на слова и сравнить эти слова (совпадающие вывести)
разбить два предложения на слова и сравнить эти слова(совпадающие вывести)...

Разбить строку на отдельные слова
Задание: Строка содержит не более 10 слов, разделённых пробельными символами...

Разбить текст на предложение не больше 40 символов
Задано непустой текст.В этом тексте каждое предложение которое больше за 40...

Разбить текст на строки указанной длины
Всем привет! Помогите, пожалуйста, написать следующую программу: вводится текст...

Разбить строку на слова гласных и согласных
Мне нужно что бы вы мне ребят помогли написать програмку в Паскале.В заранее...

1
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
4013 / 2945 / 3688
Регистрация: 05.06.2014
Сообщений: 14,598
05.06.2014, 19:57 2
Лучший ответ Сообщение было отмечено Freham как решение

Решение

Код не мой. Но проверен и часто использовался.

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
26
27
28
29
30
31
const
 
   limits = [#0..#32,'.',',',':',';','!','?','"'];
type
 
   TWords = array[1..40] of string;
 
var
   text : string;
   words : TWords;
 
function GetWords(s : string; var w : TWords) : byte;
var
   i,back,n : byte;
begin
   i := 1;
   n := 0;
   while(i<=length(s)) do begin
      while(i<=length(s)) and (s[i] in limits) do
       inc(i);
      if i<=length(s) then begin
         back := i;
         while(i<=length(s)) and not(s[i] in limits) do
          inc(i);
         inc(n);
         w[n] := copy(s, back, i-back);
      end;
   end;
 
   GetWords := n;
end;
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.06.2014, 19:57

Разбить слова на строки по наибольшей схожести
Доброго всем времени суток Мне нужна помощь, ибо сам так и не смог это сделать...

Дан текст. Напечатать все слова, отличные от последнего слова, предварительно преобразовав каждое из них
Дан текст. Напечатать все слова, отличные от последнего слова, предварительно...

Дан текст, найти слова, состоящие из цифр, и сумму чисел, которые образуют эти слова
Дан текст. Найти слова, состоящие из цифр, и сумму чисел, которые образуют эти...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru