Вверх ↑
Этот топик читают: Гость
Ответов: 632
Рейтинг: 16
#1: 2007-10-06 14:47:41 ЛС | профиль | цитата
подсчет тех слов которые 4 и более букв
т.к. над, без, из, в, и, и т.д. как бы приставки?
можно конечно пересчитать пробелы - но это неточно выйдет
code_1963.txt
карма: 0

0
файлы: 1code_1963.txt [1.8KB] [319]
Администрация
Ответов: 15295
Рейтинг: 1519
#2: 2007-10-06 17:01:48 ЛС | профиль | цитата
решается перебором всех символов в строке путем увеличения некоего счетчика в тот момент, когда текущий символ не буква, а предыдущий буква. Ну еще очевидно нужно считать сколько букв было до этого.
карма: 27
0
Ответов: 8930
Рейтинг: 823
#3: 2007-10-06 19:07:46 ЛС | профиль | цитата
Geka, всех
Geka писал(а):
как бы приставки
не так и много, можно оформить их на исключение, а то некоторые слова из 2-3 букв выпадут (например, нет, это слово печатать не буду, а то забанят, мир)
карма: 19

0
Ответов: 632
Рейтинг: 16
#4: 2007-10-06 21:39:00 ЛС | профиль | цитата
путем увеличения некоего счетчика в тот момент, когда текущий символ не буква, а предыдущий буква
ого

можно оформить их на исключение, а то некоторые слова из 2-3 букв выпадут
ну да, ведь есть к примеру: час, лог, ток, рок и т.д.
карма: 0

0
Ответов: 2125
Рейтинг: 159
#5: 2007-10-06 21:56:51 ЛС | профиль | цитата
А ещё есть: я, ты, он, ёж, уж
карма: 1

0
Ответов: 16884
Рейтинг: 1239
#6: 2007-10-07 00:06:06 ЛС | профиль | цитата
а еще может быть и не русский язык, а, например ,
в украинском об'ява (объявление)
в английском don't

карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 899
Рейтинг: 43
#7: 2007-10-27 00:29:41 ЛС | профиль | цитата
Geka писал(а):
подсчет тех слов которые 4 и более букв


Add(MainForm,7452682,392,91)
{
Left=20
Top=105
Width=382
Height=291
}
Add(Memo,13622454,168,140)
{
Left=10
Top=35
Width=350
Height=190
Enabled=1
Strings=#39:подсчет тех слов которые 4 и более букв|
Point(onSetFocus)
Point(doEnabled)
link(onSetFocus,14595853:doTimer,[])
}
Add(ArrayEnum,10282837,182,245)
{
link(onItem,6400444:doLoad,[])
link(Array,13622454:Array,[])
}
Add(CharArray,6400444,231,245)
{
link(onLoad,11254863:doEnum,[(286,251)(286,290)(219,290)(219,314)])
}
Add(ArrayEnum,11254863,231,308)
{
link(onItem,10531239:doCase,[])
link(onEndEnum,4196493:doEvent2,[(277,321)(277,356)])
link(Array,6400444:Array,[])
}
Add(Case,10531239,301,308)
{
Value=String( )
link(onNextCase,11903046:doNext,[])
link(onTrue,5564262:doEvent1,[])
}
Add(Counter,11903046,462,308)
{
}
Add(If_else,8075822,462,364)
{
Type=4
Op2=Integer(4)
link(onTrue,11695109:doNext,[])
link(Op1,11903046:Count,[])
}
Add(Hub,5564262,350,315)
{
link(onEvent1,4196493:doEvent1,[(394,321)(394,349)])
link(onEvent2,11903046:doReset,[])
}
Add(Counter,11695109,532,364)
{
link(onNext,15601908:doText,[])
}
Add(Hub,7812049,28,238)
{
OutCount=5
link(onEvent2,10282837:doEnum,[])
link(onEvent3,2709379:doWork1,[])
link(onEvent4,2111105:doReset,[(69,265)(69,167)])
}
Add(Edit,15601908,588,364)
{
Left=170
Top=10
Text="0"
}
Add(Hub,4196493,406,343)
{
InCount=2
OutCount=1
link(onEvent1,8075822:doCompare,[(450,349)(450,370)])
}
Add(Counter,2111105,301,147)
{
link(onNext,7452682:doCaption,[(349,153)(349,97)])
}
Add(Timer,14595853,238,147)
{
Interval=1000
Enable=1
AutoStop=60
Point(onStop)
link(onTimer,2111105:doNext,[])
link(onStop,7812049:doEvent1,[(282,160)(282,202)(16,202)(16,244)])
}
Add(Button,2253325,14,315)
{
Left=10
Top=10
Width=150
Caption="RESET"
link(onClick,5145385:doEvent1,[])
}
Add(ChanelToIndex,2709379,119,252)
{
link(onIndex,13622454:doEnabled,[(159,258)(159,188)])
}
Add(Hub,5145385,63,315)
{
OutCount=3
link(onEvent1,13622454:doClear,[(131,321)(131,153)])
link(onEvent2,2709379:doWork2,[(107,328)(107,265)])
link(onEvent3,11695109:doReset,[(118,335)(118,384)])
}
карма: 0
Время верстки: %cr_time% Текущее время: %time%
0
Ответов: 632
Рейтинг: 16
#8: 2007-10-27 01:17:58 ЛС | профиль | цитата
unalex, спасибо, моя вторая схема глючная получилась, осталось установить слово из 2 букв и список исключений
карма: 0

0
Ответов: 899
Рейтинг: 43
#9: 2007-10-27 22:47:21 ЛС | профиль | цитата
Geka писал(а):
т.к. над, без, из, в, и, и т.д. как бы приставки

наверно имелись ввиду предлоги и союзы

хотя есть предлоги и из 5 и более букв
с, к, в, у, ...
до, за, от, по, на, из, ...
для, про, под, ...
пред, ...
перед, после, среди, около, через, из-за, по-над, из-под, ...
вместо, внутри, вокруг, сквозь...

и союзы тоже...
ЗАТО, ТОЖЕ, ТАКЖЕ, ЧТОБЫ, ПРИТОМ, ПРИЧЕМ
карма: 0
Время верстки: %cr_time% Текущее время: %time%
0
9
Сообщение
...
Прикрепленные файлы
(файлы не залиты)