Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/21: Рейтинг темы: голосов - 21, средняя оценка - 4.67
4 / 4 / 1
Регистрация: 26.12.2011
Сообщений: 263
1

Перевод арабских в римские

26.12.2011, 17:16. Просмотров 4012. Ответов 4
Метки нет (Все метки)

Задача №1
Для записи римскими цифрами используются символы I, V, X, L, C, D, M, обозначающие соответственно числа 1, 5, 10, 50, 100, 500, 1000. Составить программу, которая запись любого данного числа n(n <=3999) арабскими цифрами переводила бы в запись римскими цифрами.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.12.2011, 17:16
Ответы с готовыми решениями:

Программа перевода арабских чисел в римские!
Составить программу перевода любого значения N(n&lt;3999) в запись римскими цифрами.

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

Римские числа
Посчитать сумму двух натуральных чисел A и B, записанных в римской системе счисления. Ответ также...

Арабские цифры в римские
Для записи римскими цифрами используются символы I, V, X, L, С, D, М, обозначающие соответственно...

4
--\.founder./--
564 / 564 / 392
Регистрация: 20.10.2011
Сообщений: 867
26.12.2011, 17:23 2
Цитата Сообщение от Richik123 Посмотреть сообщение
Задача №1
Для записи римскими цифрами используются символы I, V, X, L, C, D, M, обозначающие соответственно числа 1, 5, 10, 50, 100, 500, 1000. Составить программу, которая запись любого данного числа n(n <=3999) арабскими цифрами переводила бы в запись римскими цифрами.
Pascal
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
32
33
uses crt;
 
const
RomeDigits: array [1..13] of string[2] =
('I', 'IV', 'V', 'IX', 'X', 'XL', 'L', 'XC', 'C', 'CD', 'D', 'CM', 'M');
 
ArabicNumbers: array [1..13] of integer =
(1, 4, 5, 9, 10, 40, 50, 90, 100, 400, 500, 900, 1000);
var
arabic: integer;
rome: string;
function ArabicToRome (n: integer): string;
var
i: integer;
res: string;
begin
res:='';
i:=13;
while n>0 do begin
while ArabicNumbers[i]>n do
i:=i-1;
res:=res+RomeDigits[i];
n:=n-ArabicNumbers[i];
end;
ArabicToRome := res;
end;
 
begin
write('Введите арабское число: ');
readln(arabic);
writeln('Римская запись = ',ArabicToRome(arabic));
readln;
end.
1
4 / 4 / 1
Регистрация: 26.12.2011
Сообщений: 263
26.12.2011, 17:26  [ТС] 3
Она сделана через МАССИв , а через Циклы можно??
0
--\.founder./--
564 / 564 / 392
Регистрация: 20.10.2011
Сообщений: 867
26.12.2011, 17:32 4
Цитата Сообщение от Richik123 Посмотреть сообщение
Она сделана через МАССИв , а через Циклы можно??
В задаче не сказано , что через цикл . Всю задачу циклами может и можно , на 200 строчек кода, может больше )

Цитата Сообщение от WebMax 2.0 Посмотреть сообщение
while ArabicNumbers[i]>n do
Это тоже цикл . Массив не запрещено ведь использовать ?
0
4 / 4 / 1
Регистрация: 26.12.2011
Сообщений: 263
26.12.2011, 17:38  [ТС] 5
Цитата Сообщение от WebMax 2.0 Посмотреть сообщение
В задаче не сказано , что через цикл . Всю задачу циклами может и можно , на 200 строчек кода, может больше )



Это тоже цикл . Массив не запрещено ведь использовать ?

Массив мы еще просто не проходили ..сказали через циклы делать..я вот и не знаю как((

Добавлено через 2 минуты
ВЫ не можете мне еще со второй задачей помочь??
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.12.2011, 17:38

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

Перевести арабские цифры в римские
с клавиатуры вводится строка,представляющая собой правильную запись натурального числа в римской...

В текстовом файле заменить все цифры на римские
Привет. Вот задача к сессии... не хватает меня что-то на нее.. Дан файл C:\1.txt, заменить в...

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

Перевод арабских цифр в римские с++
Подскажите как перевести арабские цифры в римские... Например 12345 -&gt; I II III IV V Заранее...


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

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

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