| Вопрос: [DELPHI] Помогите с заданием | Добавлено: 14.03.05 10:24 |
Автор вопроса:  gvozd | Web-сайт: www.gvozdsoft.com
|
| Для натурального числа k вывести фразу “мы выпили k бутылок пива”, согласовав окончание слова "бутылка" с числом k. |
| Ответы | Всего ответов: 14 |
|
Номер ответа: 1 Автор ответа:  sne Разработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #1 | Добавлено: 14.03.05 11:00 |
У меня несколько не дельфовый подход к решению заданий, поэтому я бы посоветовал условие + wsprintf 
|
||
|
Номер ответа: 2 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #2 | Добавлено: 14.03.05 12:08 |
|
VB:
l=k mod 10 if l=1 then s=" бутылку" elseif l>=2 and l<=4 then s=" бутылки" else s=" бутылок" end if msgbox "мы выпили " & cstr(k) & s & " пива" |
||
|
Номер ответа: 3 Автор ответа: gvozdРазработчик Offline Client Вопросов: 164 Ответов: 1317 
|
Web-сайт: Профиль | | #3 | Добавлено: 14.03.05 12:43 |
| Sharp, спасибо - все получилось, уже отправил информатичке. | ||
|
Номер ответа: 4 Автор ответа: Страшный Сон Вопросов: 46 Ответов: 848 |
Профиль | | #4 | Добавлено: 14.03.05 15:26 |
|
2Sharp: Похоже, ты кое-что забыл:
If (K \ 10) Mod 10 = 1 Then S = " бутылок" Else Select Case K Mod 10 Case 1 S = " бутылку" Case 2 To 4 S = " бутылки" Case Else S = " бутылок" End Select End If MsgBox "Мы выпили " & CStr(K) & S & " пива." |
||
|
Номер ответа: 5 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #5 | Добавлено: 15.03.05 00:26 |
| Ах. Да. | ||
|
Номер ответа: 6 Автор ответа: MorpheusВопросов: 224 Ответов: 3777 |
Web-сайт: Профиль | | #6 | Добавлено: 15.03.05 00:30 |
прикольное задание.... особенно когда речь идет о пиве 
|
||
|
Номер ответа: 7 Автор ответа: gvozdРазработчик Offline Client Вопросов: 164 Ответов: 1317
|
Web-сайт: Профиль | | #7 | Добавлено: 15.03.05 09:34 |
|
Страшный Сон, черт с ним, я думаю не заметит информатиня, все равно она ламерша да и работает вроде и так.
Morpheus, сам выбирал. Были задания типа решения функций, но я не люблю писать проги под математику.
|
||
|
Номер ответа: 8 Автор ответа: Страшный СонВопросов: 46 Ответов: 848 |
Профиль | | #8 | Добавлено: 17.03.05 15:04 |
|
Страшный Сон, черт с ним, я думаю не заметит информатиня, все равно она ламерша да и работает вроде и так.
По-моему, это очень грубая ошибка, но которую допустили даже создатели игры PARKAN Хроника Империи. Там можно видеть такую фигню: "Осуществлен подбор: Топливо (11 единица)" |
||
|
Номер ответа: 9 Автор ответа: Страшный СонВопросов: 46 Ответов: 848 |
Профиль | | #9 | Добавлено: 17.03.05 15:06 |
|
Немного неточно получилось... Такого там точно не увидишь. А такое можно:
"Топливо (11 единица). Транспортировка на ПАРКАН." |
||
|
Номер ответа: 10 Автор ответа: MorpheusВопросов: 224 Ответов: 3777 |
Web-сайт: Профиль | | #10 | Добавлено: 18.03.05 02:33 |
| да, кстати, алгоритм надо доработать на числа от 10 до 20 | ||
|
Номер ответа: 11 Автор ответа: Страшный СонВопросов: 46 Ответов: 848 |
Профиль | | #11 | Добавлено: 18.03.05 12:06 |
| Это еще почему? | ||
|
Номер ответа: 12 Автор ответа: MorpheusВопросов: 224 Ответов: 3777 |
Web-сайт: Профиль | | #12 | Добавлено: 18.03.05 17:01 |
| дык ты же сам приводил пример :4 кружКИ, 24 КРУЖКИ, а вот 14 КРУЖЕК | ||
|
Номер ответа: 13 Автор ответа: Страшный СонВопросов: 46 Ответов: 848 |
Профиль | | #13 | Добавлено: 19.03.05 12:19 |
| Ну да. И 14 кружек, и 114 кружек, и 214 кружек и т. д. Так что не от 11 до 19, главное, чтобы вторая цифра была единицей. | ||
|
Номер ответа: 14 Автор ответа: MorpheusВопросов: 224 Ответов: 3777 |
Web-сайт: Профиль | | #14 | Добавлено: 19.03.05 15:49 |
|
9914 кружек вторая цифра С КОНЦА
|
||
Страница: 1 |