Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.93/30: Рейтинг темы: голосов - 30, средняя оценка - 4.93
delphi7
3 / 3 / 0
Регистрация: 14.10.2011
Сообщений: 7
#1

Ввести число и вывести его словами (число до 10 000)

04.04.2012, 04:48. Просмотров 5399. Ответов 9
Метки нет (Все метки)

Ввести число и вывести его словами (число до 10 000)
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.04.2012, 04:48
Ответы с готовыми решениями:

Ввести число цифрами, а получить словами
Помогите написать программу в VBA, в которой вводим число цифрами, а получаем...

Задумано число. Известны остатки от его деления. Найти это число
Задумано некоторое число х (x < 100). Известны числа k, m, n – остатки от...

Ввести число x, выяснить что больше: целая часть числа x, или его дробная часть, умноженная на 10
Ввести число x, выяснить что больше: целая часть числа x, или его дробная...

Ввести число x, выяснить что больше : целая часть числа x или его дробная часть умноженная на 10
Ввести число x, выяснить что больше : целая часть числа x или его дробная...

Ввести 5 матриц, вывести число квадратных матриц и объяснить что какой оператор значит
нужно написать программу на задачу: ввести 5 матриц, вывести число квадратных...

9
Апострофф
Заблокирован
04.04.2012, 08:16 #2
Лучший ответ Сообщение было отмечено как решение

Решение

Сумма прописью
и это далеко не все...
2
Fedogor
209 / 95 / 6
Регистрация: 23.07.2010
Сообщений: 235
04.04.2012, 10:24 #3
Сам делал для знакомой бухгалтерши:
1
Вложения
Тип файла: xls Преобразователь.xls (41.0 Кб, 763 просмотров)
Sasha-Smirnov
Заблокирован
05.04.2012, 03:13 #4
Код есть (всего 3—4 строчки) на программерсфоруме (от viter.alex из Монреаля)

Например, жмёшь CTRL F9, меж возникших в документе { } ставишь
=123 \* cardtext — при этом видишь на сером фоне: { =123 \* cardtext },
затем просто F9,
и, при установке "русский" в Сервис->Язык (это важно!), получаешь:
сто двадцать три

Добавлено через 26 минут
А мой код вот тут: Для каждой введенной цифры вывести соответствующее ей название на английском языке
1
delphi7
3 / 3 / 0
Регистрация: 14.10.2011
Сообщений: 7
05.04.2012, 04:31  [ТС] #5
всем спасибо очень помогли
0
Everglide
0 / 0 / 0
Регистрация: 14.10.2011
Сообщений: 8
11.04.2012, 05:15 #6
Всем привет! Ребят можно тоже самое как-нибудь попроще написать) а то тут сильно как-то умно все)) не для нашего учереждения)
0
Fedogor
209 / 95 / 6
Регистрация: 23.07.2010
Сообщений: 235
11.04.2012, 09:50 #7
Можно проще, если на выходе получать структуру типа:
Число 2 641 538 состоит из:
тысяч тысяч: две
сотен тысяч: шесть
десяток тысяч: четыре
тысяч: одна
сотен: пять
десяток: три
единиц: восемь
0
Казанский
14059 / 5785 / 1507
Регистрация: 24.09.2011
Сообщений: 9,066
11.04.2012, 13:17 #8
Цитата Сообщение от Sasha-Smirnov Посмотреть сообщение
Код есть (всего 3—4 строчки) на программерсфоруме (от viter.alex из Монреаля)

Не по теме:

Что-то не нашел :( Я об этом писал на Планете 10.06.2010, тема 948.

0
Sasha_Smirnov
5466 / 1306 / 143
Регистрация: 08.02.2009
Сообщений: 4,013
Записей в блоге: 29
11.04.2012, 17:20 #9
А, вижу: «Пропись числа на другом языке» в разделе Excel программерсфорума*!

А у Алекса Витера так:
Visual Basic
1
2
3
4
Sub MakeRoman()
  If Not IsNumeric(Trim(Selection.Text)) Then Exit Sub
  ActiveDocument.Fields.Add(Selection.Range, wdFieldEmpty, "= " & Selection.Text & "\* Roman").Unlink
End Sub
Только ключ не Roman — а cardtext.

Пример приложен. Там выделяшь число, жмёшь Alt-F8 и — дабл-клик по строке MakeCardinal.

_______________________
* пост #8 от 29.03.2012, 01:27
1
Вложения
Тип файла: doc 2009-NumFields.doc (30.0 Кб, 156 просмотров)
Everglide
0 / 0 / 0
Регистрация: 14.10.2011
Сообщений: 8
12.04.2012, 06:12 #10
Программу нужно написать именно в Excel на VBA чтобы работала с кнопки....вводишь число программа в другой клеточке пишить его словами...помогите ПЖЛ, и просьба написать это как можно проще! зарание благодарю!
0
12.04.2012, 06:12
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.04.2012, 06:12

Дано n<=1000. Записать число словами
И снова мне нужна ваша помощь. Дано число n&lt;=1000. Записать число словами....

Вывести все целые числа от A до B включительно, при этом каждое число должно выводиться столько раз, каково его значение
Ввести целые положительные числа A и B (A &lt; B). Вывести в список все целые...

Ввести с клавиатуры число, месяц, год, день недели. Вывести на экран дату и день недели для следующего дня.
Ввести с клавиатуры число, месяц, год, день недели. Вывести на экран дату и...


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

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

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