Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Delphi Матрица размером NxM https://www.cyberforum.ru/ delphi-beginners/ thread1530807.html
Ребят, очень нужно :) : Задана матрица размером NxM. Получить массив B, присвоив его k-му элементу значение 1, если элементы k-й строки матрицы упорядочены по убыванию, и значение 0 в противном...
Delphi Задача на определение порядкового номера
Условие: Дана непустая последовательность различных натуральных чисел, за которой следует 0. Определить порядковый номер наименьшего из них. Если кому надо вот код этой задачи на Pascal: var...
Delphi Организовать ввод с клавиатуры неограниченного количества вещественных чисел Организовать ввод с клавиатуры неограниченного количества вещественных чисел. Завершить ввод, если сумма введенных чисел станет больше 35,96. Вывести на экран все введенные числа, их количество и... https://www.cyberforum.ru/ delphi-beginners/ thread1530794.html Delphi Перевод кода c++ на delphi https://www.cyberforum.ru/ delphi-beginners/ thread1530719.html
Здравствуйте, есть очень простой код на c++. Он считает количество совпадений каждого символа в каждой строке. #include <iostream> using namespace std; int main() { setlocale(LC_ALL,...
Заполнение StringGrid словами Delphi
Как заполнить таблицу StringGrid рандомными словами ?
Delphi Замена букв с русского на латинский Дана строка символов содержащая некоторый текст на русском языке. Заменить буквы русского алфавита на соответствующие им буквы латинского алфавита. https://www.cyberforum.ru/ delphi-beginners/ thread1530656.html
Delphi Как можно прервать выполнение цикла? https://www.cyberforum.ru/ delphi-beginners/ thread1530623.html
Подскажите пожалуйста, как можно прервать выполнение цикла. Ситуация такая: допустим на форме есть 2 кнопки. По нажатию одной кнопки переменной I присваивается значение тру и запускается выполнение...
Delphi Stringgrid and popupmenu
Добрый вечер! Имеется stringgrid и привязанный к нему PopupMenu. Задача в следующем: Как сделать так, чтобы определенный пункт контекстного меню добавлял определенный текст в выделенную ячейку....
Delphi Что не так это ? begin if edit1.text:='1214' then begin; Form2.Show; end else showmessage('Не верный код активации программы!') end; Пишет какую-то ошибку!!! https://www.cyberforum.ru/ delphi-beginners/ thread1530590.html Delphi Перевод между Системами счисления Входящие даные: Любое десятичное число(положительное); Основа системы счисления р (2..16). Исходящие даные: Основа системы счисления; Запись числа в 10 СС; Запись числа в СС с основой р. Может... https://www.cyberforum.ru/ delphi-beginners/ thread1530576.html
прошу подсказать Delphi
Прошу помочь перевести код с delphi в С# а также ответить на несколько моих проблем очень прошу! 1. Как сделать чтобы 1 столбец в Stringgrid полностью уничтожался 2. Как сделать чтобы в Stringgrid...
Delphi Развернуть форму У меня форма, ее размер 800 на 600 (изначально запускаю всегда в таком положении), на форме находятся панельки, упорядочено расположены. При развертывании формы на весь экран панельки остаются на... https://www.cyberforum.ru/ delphi-beginners/ thread1530328.html
243 / 193 / 94
Регистрация: 01.05.2015
Сообщений: 732
14.09.2015, 22:38 0

Перевод чисел на римские цифры - Delphi - Ответ 8074046

14.09.2015, 22:38. Показов 1940. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено Gusakou как решение

Решение

Gusakou, а поискать не пробовали?
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
function IntToRoman(num: Cardinal): string; {returns num in capital roman digits}
const
  Nvals = 13;
  vals: array[1..Nvals] of word = (1, 4, 5, 9, 10, 40, 50, 90, 100, 400, 500,
    900, 1000);
  roms: array[1..Nvals] of string[2] = ('I', 'IV', 'V', 'IX', 'X', 'XL', 'L',
    'XC', 'C', 'CD', 'D', 'CM', 'M');
var
  b: 1..Nvals;
begin
  result := '';
  b := Nvals;
  while num > 0 do
  begin
    while vals[b] > num do
      dec(b);
    dec(num, vals[b]);
    result := result + roms[b]
  end;
end;
Добавлено через 2 минуты
P.S. использование
Delphi
1
2
// выведет число введенное в Edit1 в label1 римскими цифрами 
label1.Caption := IntToRoman( StrToInt( Edit1.Text ) );


Вернуться к обсуждению:
Перевод чисел на римские цифры Delphi
2
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.09.2015, 22:38
Готовые ответы и решения:

Римские цифры
1) Римские цифры: а) проверить,правильно ли запись числа римскими цифрами б) записать данное число...

Перевод числа в римские цифры
Нужно написать программу, которая переводит число в римские цифры. Программа должна содержать...

Перевод числа в римские цифры
Только - только начали проходить assembler. Задали написать программу, но я не представляю как...

Перевод римские цифры в арабские и обратно
Помогите решить задачу на C++ перевод римские цифры в арабские и обратно. PLEASE.

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.09.2015, 22:38

Перевод числа с арабских на римские цифры
Задача #2: Составить переводчик из арабской формы записи в римскую (и наоборот, но наоборот потом)....

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

Перевод арабских чисел в римские
вообщем задание такое: написать код который из простых чисел преобразовал бы в римские, и потом...

Перевод арабских чисел в римские
Всем привет. Не получается решить задачу в С++ Кто может помогите если не сложно;. Для...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru