Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.73/11: Рейтинг темы: голосов - 11, средняя оценка - 4.73
0 / 0 / 0
Регистрация: 02.06.2013
Сообщений: 12
1

Составить программу для перевода арабских чисел в римские

02.06.2013, 23:32. Просмотров 1953. Ответов 3
Метки нет (Все метки)

Составить программу для перевода арабских чисел в римские и для обратной операции. Например, 255=CCLV=сто+сто+пятьдесят+пять. Замечание. Подобными алгоритмами перевода чисел из одной системы в другую мы пользуемся по нескольку раз на дню, когда ведем денежные расчеты. Сумма денег- это арабское число, которому соответствует определенный набор банкнот и монет (аналоги римских цифр).
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.06.2013, 23:32
Ответы с готовыми решениями:

Перевод арабских чисел в римские и обратно
Составить программу для перевода арабских чисел в римские и для обратного перевода. Например 255 =...

Составить программу для перевода чисел из шестнадцатеричной системы счисления в двоичную
Здравствуйте, Уважаемые форумчане! Помогите решить задание: Составить программу для перевода...

Написать программу с использованием рекурсивного алгоритма для перевода чисел из одной системы счисления в другую
Написать программу с использованием рекурсивного алгоритма для перевода чисел из одной системы...

Составить программу для перевода арабских чисел в римские и для зворотньох операции. Например 255 = ССЛВ = СТО + СТО + Пятьдесят + Пять
Составить программу для перевода арабских чисел в римские и для зворотньох операции. Например 255 =...

3
11140 / 3527 / 620
Регистрация: 13.02.2009
Сообщений: 10,519
02.06.2013, 23:46 2
В одну сторону готовая программка
0
Вложения
Тип файла: rar Project1.rar (4.2 Кб, 27 просмотров)
0 / 0 / 0
Регистрация: 02.06.2013
Сообщений: 12
03.06.2013, 09:00  [ТС] 3
Спасибо за программу,но мне нужен код.
0
318 / 286 / 103
Регистрация: 12.04.2011
Сообщений: 851
03.06.2013, 10:32 4
Лучший ответ Сообщение было отмечено The trick как решение

Решение

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Function NumToRom(iNum As Integer) As String
'Функция возвращает число в виде римских цифр
'Для записи целых чисел в римской нумерации используются семь основных чисел:
'i = 1
'V = 5
'X = 10
'L = 50
'C = 100
'D = 500
'M = 1000
'При этом некоторые из цифр (I, X, C, M) могут повторяться, но не более трех раз, таким образом с их помощью можно записать любое целое число не более 3999 (MMMCMXCIX)
If iNum = 0 Or iNum > 3999 Then NumToRom = "OVF": Exit Function
Dim arrRom, arrWeight, iTmp As Integer, kNum As Integer, i As Integer, sStr As String
arrRom = Array("M", "CM", "D", "CD", "C", "XC", "L", "XL", "X", "IX", "V", "IV", "I")
arrWeight = Array(1000, 900, 500, 400, 100, 90, 50, 40, 10, 9, 5, 4, 1)
Do
    iTmp = Len(CStr(iNum)) - 1
    kNum = iNum Mod 10 ^ iTmp
    iNum = iNum - kNum
    While iNum > 0
        If arrWeight(i) <= iNum Then
            sStr = sStr & arrRom(i)
            iNum = iNum - arrWeight(i)
            i = i - 1
        End If
        i = i + 1
    Wend
    iNum = kNum
Loop While iNum > 0
NumToRom = sStr
End Function
Добавлено через 1 минуту
nastya26 =) Пользуйся поиском)
Перевод арабских чисел в римские и обратно
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.06.2013, 10:32

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Составить программы для перевода арабских чисел в римские и для обратной операции
Составить программы для перевода арабских чисел в римские и для обратной операции. Например, 255 =...

Программа для перевода арабских чисел в римские
Составить программу для перевода арабских чисел в римские и для обратной операции. Например, 255 =...

Составьте программы для перевода арабских чисел в римские
Составьте программы для перевода арабских чисел в римские и для обратной операции. Например,...

программы для перевода арабских чисел в римские и для обратной операции
Составить программы для перевода арабских чисел в римские и для обратной операции. Например, 255 =...


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

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

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