Вверх ↑
Этот топик читают: Гость
Ответов: 875
Рейтинг: 322
#1: 2014-07-22 14:06:18 ЛС | профиль | цитата
На одном форуме встретилось. Просит человек сделать калькулятор, но ввод должен осуществляться словами, что признаться выглядит как-то странно... И действительно непривычно...
code_34022.txt
в коде только 0-10, так что двадцать плюс сто... не получится. Ну и естественно писать нужно без ошибок
карма: 1

0
файлы: 1code_34022.txt [3KB] [555]
Ответов: 8926
Рейтинг: 823
#2: 2014-07-22 16:59:24 ЛС | профиль | цитата
kamakama, почему ответ не словами?
------------ Дoбавленo в 16.59:
kamakama, с миллиардами, да чуть ошибаться можно, правда особо не проверял, уж шибко неохота словами набивать

Add(MainForm,15122484,210,84)
{
Width=498
Height=106
}
Add(StrList,2370874,273,84)
{
Strings=#7:ст*=100|9:двес*=200|9:трис*=300|11:чет*ст*=400|9:пя*от=500|9:ш*сот=600|9:с*сот=700|9:в*сот=800|9:д*сот=900|9:од*ть=+11|11:двен*ть=+12|11:трин*ть=+13|9:че*ть=+14|10:пя*ать=+15|10:ше*ать=+16|10:се*ать=+17|10:во*ать=+18|10:де*ать=+19|11:двад*ть=+20|11:трид*ть=+30|8:сор*=+40|10:пя*сят=+50|10:ше*сят=+60|10:се*сят=+70|10:во*сят=+80|10:де*сто=+90|7:один=+1|7:одна=+1|6:два=+2|6:две=+2|6:три=+3|9:четыре=+4|7:пять=+5|9:шессть=+6|7:семь=+7|9:восемь=+8|9:девять=+9|10:десять=+10|15:тысяч*=)*1000+(|20:Миллион*=)*1000000+(|22:Миллиард*=)*1000000000|10:плюс=))+((|12:приба*=))+((|11:минус=))-((|10:отн*=))-((|10:умн*=))*((|11:разд*=))/((|8:равно=))|8:будет=))|0:|
}
Add(Edit,16025427,210,147)
{
Left=10
Top=10
Width=465
Text="сорок семь тысяч сто тридцать восемь разделить на тридцать семь будет "
ClearAfterEnter=1
Point(doSelectAll)
link(onEnter,5534759:doEvent1,[])
}
Add(Str_Enum,2643939,210,196)
{
Delimiter=" "
link(onEnum,3519832:doEnum,[])
link(onEndEnum,6607770:doText,[(249,209)(249,272)])
link(String,16025427:Text,[])
}
Add(StrMask,3625011,420,196)
{
Point(doMask)
link(onTrue,13976973:doEvent1,[])
link(Str,2643939:Part,[(426,187)(328,187)(328,238)(223,238)])
}
Add(ArrayEnum,3519832,287,196)
{
link(onItem,4700407:doSplit,[])
link(Array,2370874:Array,[])
}
Add(StrPart,4700407,336,196)
{
Char="="
Point(Left)
Point(Right)
link(onPart,6130821:doEvent1,[])
}
Add(Hub,6130821,385,203)
{
link(onEvent1,3625011:doMask,[])
link(onEvent2,3625011:doCompare,[(410,216)(410,202)])
}
Add(Hub,13976973,462,203)
{
link(onEvent1,8438244:doData,[])
link(onEvent2,3519832:doStop,[(487,216)(487,244)(277,244)(277,209)])
}
Add(Hub,5534759,252,154)
{
OutCount=3
link(onEvent1,16025427:doSelectAll,[(275,160)(275,139)(200,139)(200,167)])
link(onEvent2,2634431:doClear,[(578,167)(578,216)])
link(onEvent3,2643939:doEnum,[(277,174)(277,188)(200,188)(200,202)])
}
Add(DoData,8438244,490,203)
{
link(onEventData,13630778:doStrCat,[])
link(Data,4700407:Right,[(496,194)(482,194)(482,236)(349,236)])
}
Add(Edit,6607770,588,266)
{
Left=20
Top=40
Width=290
link(onChange,3858424:doEvent1,[])
link(Str,5004618:Var2,[])
}
Add(StrCat,13630778,539,203)
{
link(onStrCat,2634431:doValue,[])
link(Str1,5004618:Var1,[(545,194)(528,194)(528,243)])
}
Add(Memory,2634431,588,203)
{
Default=String((()
}
Add(GetDataEx,5004618,588,238)
{
link(Data,2634431:Value,[])
}
Add(MathParse,7496185,672,259)
{
DataCount=0
MathStr=""
Point(doMathStr)
link(onResult,14526168:doText,[])
}
Add(Hub,3858424,630,266)
{
link(onEvent1,7496185:doMathStr,[])
link(onEvent2,7496185:doCalc,[(655,279)(655,265)])
}
Add(Edit,14526168,721,259)
{
Left=325
Top=40
Width=150
}
Add(Label,8039849,336,84)
{
Left=310
Top=40
Width=15
Font=[MS Sans Serif,12,1,0,1]
Caption="="
AutoSize=1
}
карма: 19

0
Ответов: 875
Рейтинг: 322
#3: 2014-07-22 17:17:21 ЛС | профиль | цитата
Леонид, ну теперь nek190 обрадуется...
карма: 1

0
Ответов: 2265
Рейтинг: 676
#4: 2014-07-22 20:12:43 ЛС | профиль | цитата
Леонид, а отрицательные числа?
карма: 11

0
Ответов: 16884
Рейтинг: 1239
#5: 2014-07-22 20:20:35 ЛС | профиль | цитата
Леонид, а просто сказать в микрофон - сто плюс сто, а комп в ответ - двести
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 8926
Рейтинг: 823
#6: 2014-07-22 20:30:14 ЛС | профиль | цитата
sla8a, эх, забыл дробные, вот как пропарсить: ноль целых хрен десятых, никак не получается
Tad, микрофон-то есть, можно попробовать
карма: 19

0
Ответов: 9906
Рейтинг: 351
#7: 2014-07-22 22:15:27 ЛС | профиль | цитата
Tad писал(а):
а комп в ответ - двести

На месте компа - я другое бы сказал
карма: 9

0
Ответов: 16884
Рейтинг: 1239
#8: 2014-07-22 23:00:35 ЛС | профиль | цитата
kamakama писал(а):
Просит человек сделать калькулятор, но ввод должен осуществляться словами
Может он хочет голосовой ввод ?
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 9906
Рейтинг: 351
#9: 2014-07-23 01:26:11 ЛС | профиль | цитата
Леонид писал(а):
с миллиардами

Да ладно
карма: 9

0
Ответов: 16884
Рейтинг: 1239
#10: 2014-07-23 09:52:09 ЛС | профиль | цитата
Леонид,
Леонид5.png
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1Леонид5.png [42.3KB] [791]
Ответов: 8926
Рейтинг: 823
#11: 2014-07-23 10:14:56 ЛС | профиль | цитата
Tad, ой, хочу!!!
карма: 19

0
Ответов: 1535
Рейтинг: 176
#12: 2014-07-23 12:29:04 ЛС | профиль | цитата
23.07.14.jpg
карма: 1
Не так страшна ошибка, как опасность её не заметить.

0
файлы: 123.07.14.jpg [42.1KB] [810]
Ответов: 316
Рейтинг: 21
#13: 2014-07-23 12:31:01 ЛС | профиль | цитата
А в гугле кто-то пробовл такой запрос давать? Он ведь так умеет

карма: 1

0
Ответов: 8926
Рейтинг: 823
#14: 2014-07-23 13:31:45 ЛС | профиль | цитата
ser_davkin, да я в интегралы упёрся, а про простенькие отрицательные числа забыл
Интеграл.jpg
------------ Дoбавленo в 13.31:
По просьбам трудящихся издание второе, дополненное и переработанное
карма: 19

0
файлы: 2Интеграл.jpg [42.7KB] [816], calc2.rar [169.4KB] [347]
Ответов: 9906
Рейтинг: 351
#15: 2014-07-23 13:44:06 ЛС | профиль | цитата
Леонид, я же тебе уже докладывал про миллиарды...

А ты мне опять -- дулю
карма: 9

0
файлы: 14leonid.jpg [16.1KB] [847]
Сообщение
...
Прикрепленные файлы
(файлы не залиты)