purebasic.info

PureBasic forum
Текущее время: Вс дек 16, 2018 6:49 am

Часовой пояс: UTC + 3 часа




Начать новую тему Ответить на тему  [ Сообщений: 10 ] 
Автор Сообщение
 Заголовок сообщения: Определение окончания слов
СообщениеДобавлено: Вс июн 08, 2014 7:01 am 
Не в сети
профессор

Зарегистрирован: Вт май 13, 2014 4:12 am
Сообщений: 712
Благодарил (а): 75 раз.
Поблагодарили: 21 раз.
Пункты репутации: 5
Для тех кто считает, что писать всегда нужно правильно.

Это я написал ещё несколько лет назад на JS, работает с разными словами, главное слова правильно написать.
Понадобилось на РВ, я перевёл.
Функция получает число, возвращает строку.
Код:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Procedure.s selectWord(L)
Protected Dim m.s(3), n, x, y
m(0)="ответ":m(1)="ответа":m(2)="ответов"
x=L%10
If L>9:y=Val(Right(""+L, 2)):Else:y=L:EndIf
If y>10 And y<15:n=2:ElseIf (L-1)%10=0:n=0:Else:n=1:EndIf
If n=0:ElseIf n=2:ElseIf x>1 And x<5:n=1:Else:n=2:EndIf
ProcedureReturn m(n)
EndProcedure
 
 
;u=2147483646; это вроде максимум
u=1222523672
v.s=selectWord(u)
MessageRequester("", ""+u+" "+v)



Вернуться наверх
 Профиль  
 
 Заголовок сообщения: Re: Определение окончания слов
СообщениеДобавлено: Вс июн 08, 2014 9:01 am 
Не в сети
профессор
Аватар пользователя

Зарегистрирован: Пт янв 27, 2012 7:12 pm
Сообщений: 880
Откуда: Кустанай
Благодарил (а): 27 раз.
Поблагодарили: 13 раз.
Пункты репутации: 7
Код:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Procedure.s byka(hz.l)
  str.s = Mid(Str(hz.l), Len(Str(hz.l)), 1)
  Debug str
  If Val(str) = 0 Or Val(str) > 4
    ProcedureReturn Str(hz)+" - чисел"
  ElseIf Val(str) > 0 And Val(str) <= 4
    ProcedureReturn Str(hz)+" - числа"
  EndIf
EndProcedure
 
Debug byka(10250)
Debug byka(10251)
Debug byka(10252)
Debug byka(10253)
Debug byka(10254)
Debug byka(10255)
Debug byka(10256)
Debug byka(10257)
Debug byka(10258)
Debug byka(10259)



Щас мамонты придут, будут письками меряться :D :D :D

Кто лучше? Пусть смертельный бой начнётся :D

Как не прибегая к строкам, получить число?

_________________
Детям нельзя в интернет. От детей интернет тупеет.


Вернуться наверх
 Профиль  
 
 Заголовок сообщения: Re: Определение окончания слов
СообщениеДобавлено: Вс июн 08, 2014 9:05 am 
Не в сети
профессор

Зарегистрирован: Пн янв 03, 2011 4:27 pm
Сообщений: 412
Благодарил (а): 5 раз.
Поблагодарили: 17 раз.
Пункты репутации: 0
newJS? ты можешь предоставить, пример работающего кода, где его можно использовать(можно на js)?
А то, я не вижу, где его использовать?


Вернуться наверх
 Профиль  
 
 Заголовок сообщения: Re: Определение окончания слов
СообщениеДобавлено: Вс июн 08, 2014 9:11 am 
Не в сети
профессор
Аватар пользователя

Зарегистрирован: Пт янв 27, 2012 7:12 pm
Сообщений: 880
Откуда: Кустанай
Благодарил (а): 27 раз.
Поблагодарили: 13 раз.
Пункты репутации: 7
@ZOLO@ писал(а):
newJS? ты можешь предоставить, пример работающего кода, где его можно использовать(можно на js)?
А то, я не вижу, где его использовать?


Влезу
Прошла (осталась) 1 минута, 2 минуты
Скачано 1 метр 2 метра 0 метров
В базе 1 имя, 2 имени, 5 имён

Конечно нужно переделывать окончания, но иногда это надо для составления текстов.

_________________
Детям нельзя в интернет. От детей интернет тупеет.


Вернуться наверх
 Профиль  
 
 Заголовок сообщения: Re: Определение окончания слов
СообщениеДобавлено: Вс июн 08, 2014 9:43 am 
Не в сети
док

Зарегистрирован: Чт авг 15, 2013 6:25 pm
Сообщений: 172
Благодарил (а): 38 раз.
Поблагодарили: 1 раз.
Пункты репутации: 5
Осталось мегабайт: 1
Время до окончания : 0:12:05
Имен в базе : 342

както так :) еще со времен Z80


Вернуться наверх
 Профиль  
 
 Заголовок сообщения: Re: Определение окончания слов
СообщениеДобавлено: Вс июн 08, 2014 10:00 am 
Не в сети
профессор
Аватар пользователя

Зарегистрирован: Пт янв 27, 2012 7:12 pm
Сообщений: 880
Откуда: Кустанай
Благодарил (а): 27 раз.
Поблагодарили: 13 раз.
Пункты репутации: 7
kindar писал(а):
Осталось мегабайт: 1
Время до окончания : 0:12:05
Имен в базе : 342

както так :) еще со времен Z80


У вас построено 32 жилых здания и 58 промышленных зданий, не перепутайте не 32 промышленных здания и 58 жилых зданий, а наоборот. :D
Пример в какой нить игре стратегие.

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

_________________
Детям нельзя в интернет. От детей интернет тупеет.


Вернуться наверх
 Профиль  
 
 Заголовок сообщения: Re: Определение окончания слов
СообщениеДобавлено: Вс июн 08, 2014 10:18 am 
Не в сети
док

Зарегистрирован: Чт авг 15, 2013 6:25 pm
Сообщений: 172
Благодарил (а): 38 раз.
Поблагодарили: 1 раз.
Пункты репутации: 5
вообщето это такая шутка юмора была, о чем свидетельствует смайлик в конце.
Писал когда то такое на пхп, онлайн жкх делали когдато в 2005 помоему.


Вернуться наверх
 Профиль  
 
 Заголовок сообщения: Re: Определение окончания слов
СообщениеДобавлено: Вс июн 08, 2014 2:40 pm 
Не в сети
профессор
Аватар пользователя

Зарегистрирован: Чт июн 25, 2009 1:02 pm
Сообщений: 2294
Откуда: Russia — Belarus
Благодарил (а): 7 раз.
Поблагодарили: 72 раз.
Пункты репутации: 11
Баян :)
Изображение
viewtopic.php?f=10&t=2338

_________________
EnableExplicit User


Вернуться наверх
 Профиль  
 
 Заголовок сообщения: Re: Определение окончания слов
СообщениеДобавлено: Вс июн 08, 2014 3:01 pm 
Не в сети
PureBasic Coder
Аватар пользователя

Зарегистрирован: Чт ноя 10, 2011 10:50 am
Сообщений: 4049
Откуда: Ростов-на-Дону
Благодарил (а): 70 раз.
Поблагодарили: 81 раз.
Пункты репутации: 24
m0t0d0r писал(а):
Код:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Procedure.s byka(hz.l)
  str.s = Mid(Str(hz.l), Len(Str(hz.l)), 1)
  Debug str
  If Val(str) = 0 Or Val(str) > 4
    ProcedureReturn Str(hz)+" - чисел"
  ElseIf Val(str) > 0 And Val(str) <= 4
    ProcedureReturn Str(hz)+" - числа"
  EndIf
EndProcedure
 
Debug byka(10250)
Debug byka(10251)
Debug byka(10252)
Debug byka(10253)
Debug byka(10254)
Debug byka(10255)
Debug byka(10256)
Debug byka(10257)
Debug byka(10258)
Debug byka(10259)

Угу
Цитата:
1
10251 - числа

_________________
Пурик - лучший язык программирования


Вернуться наверх
 Профиль  
 
 Заголовок сообщения: Re: Определение окончания слов
СообщениеДобавлено: Вс июн 08, 2014 8:53 pm 
Не в сети
профессор

Зарегистрирован: Вт май 13, 2014 4:12 am
Сообщений: 712
Благодарил (а): 75 раз.
Поблагодарили: 21 раз.
Пункты репутации: 5
@ZOLO@ писал(а):
newJS? ты можешь предоставить, пример работающего кода, где его можно использовать(можно на js)?
А то, я не вижу, где его использовать?

Я так понимаю тебе ответили?

Изначально сделал для своего каталога книг, где фигурировало слово книга, потом ещё использовалось в JS.
Сейчас понадобилось для программы другое слово и на другом языке, я переделал.
1 ответ
2 ответа
3 ответа
4 ответа
5 ответов
@ZOLO@ как ты себе представляешь это с одним единственным словом? Сам не будешь материться увидев такую кривизну?

Процитирую сам себя.
newJS писал(а):
Для тех кто считает, что писать всегда нужно правильно.


Вернуться наверх
 Профиль  
 
Показать сообщения за:  Сортировать по:  
Начать новую тему Ответить на тему  [ Сообщений: 10 ] 

Часовой пояс: UTC + 3 часа


Кто сейчас на форуме

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 3


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
cron
Создано на основе phpBB® Forum Software © phpBB Group (блог о phpBB)
Сборка создана CMSart Studio
Русская поддержка phpBB