Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Теория программирования > Алгоритмы
Перезагрузить страницу Перевод арабских цифр в римские
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
студентка
Guest
 
Сообщений: n/a
По умолчанию Перевод арабских цифр в римские - 16.11.2005, 00:15

Помогите написать алгоритм перевода из арабской системы счисления в римскую или подскажите ссылку, где это можно найти. Зарание огромное спасибо!
Ответить с цитированием
  (#2 (permalink)) Старый
Alexiski Alexiski вне форума
Любитель давать советы
 
Сообщений: 4,276
Сказал(а) спасибо: 27
Поблагодарили 54 раз(а) в 54 сообщениях
Регистрация: 16.10.2005
По умолчанию 16.11.2005, 00:48

Я переводил полутабличным способом по разрядам:

Код:
AnsiString sRomanTable[4][10] =
{
  {"", "i", "ii", "iii", "iv", "v", "vi", "vii", "viii", "ix"},
  {"", "x", "xx", "xxx", "xl", "l", "lx", "lxx", "lxxx", "xc"},
  {"", "c", "cc", "ccc", "cd", "d", "dc", "dcc", "dccc", "cm"},
  {"", "m", "mm", "mmm", "m?", "?", "?m", "?mm", "?mmm", "m?"}
};

if (Value < 4000)
{
  Str = "";
  for (int i = 0; i<4 && V; i++)
  {
    int Rest = Value % 10;
    Str = sRomanTable[i][Rest] + Str;
    Value /= 10;
  }
}
else
  Str = IntToStr(Value);
Ответить с цитированием
  (#3 (permalink)) Старый
Кошмар Кошмар вне форума
Member
 
Сообщений: 2,694
Сказал(а) спасибо: 0
Поблагодарили 1 раз в 1 сообщении
Регистрация: 23.04.2005
По умолчанию 16.11.2005, 18:39

Для повышения образованности...
Арабские числа - это и есть русские (0123456789), а то что ты имел ввиду - римские....


импортирован с progz.ru
Ответить с цитированием
  (#4 (permalink)) Старый
Sweta2311 Sweta2311 вне форума
Новичок
 
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 19.12.2014
По умолчанию 19.12.2014, 17:23

program rimskaya;
var x:integer;
procedure Arabic2Rim(x:integer);
begin
while x>=1000 do begin
x:=x-1000;
write('M')
end;
while x>=900 do begin
x:=x-900;
write ('CM')
end;
while x>=500 do begin
x:=x-500;
write ('D')
end;
while x>=400 do begin
x:=x-400;
write('CD')
end;
while x>=100 do begin
x:=x-100;
write('C')
end;
while x>=90 do begin
x:=x-90;
write ('XC')
end;
while x>=50 do begin
x:=x-50;
write('L')
end;
while x>=40 do begin
x:=x-40;
write('XL')
end;
while x>=10 do begin
x:=x-10;
write('X')
end;
while x>=9 do begin
x:=x-9;
write ('IX')
end;
while x>=5 do begin
x:=x-5;
write ('V')
end;
while x>=4 do begin
x:=x-4;
write('IV')
end;
while x>0 do begin
x:=x-1;
write('I')
end
end;

begin
read(x);
Arabic2Rim(x)
end.
Ответить с цитированием
Ads
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Перевод арабских чисел в римские valigur Prolog 64 12.05.2012 16:23
Класс Римские числа imported_Gear Задания за деньги 8 09.05.2012 01:18
Нужно разобрать программу для перевода списка арабских чисел в список римских чисел. RuslanTM Prolog 2 18.12.2011 17:04
Из арабских в римсике imported_CocaCola Prolog 9 05.12.2010 14:56
Регулярные выражения римские буквы Chummy89 Perl 1 05.04.2010 17:24
Написать простой транслятор способный переводить римские цифры OyBlya Lisp 10 21.07.2009 17:24
Перевод арабских чисел в римские на языке С++ -Mixer- Вопросы начинающих программистов 4 17.01.2006 02:28
Преобразование арабских чисел в римские в Basic dr.Lector Вопросы начинающих программистов 2 17.09.2005 03:21
Нужен алгорит перевода арабских чисел в римские и наооборот SMD Алгоритмы 2 30.01.2005 19:48
Произведение цифр front Prolog 9 17.12.2004 22:06
Перевод арабских чисел в римские MadMan|x Алгоритмы 5 25.10.2004 08:28
Поддержка арабских, японских шрифтов Anonymous Delphi 1 07.05.2003 17:50



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов