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

@Richik123 · Регистрация: 26.12.2011

Задача №1
Для записи римскими цифрами используются символы I, V, X, L, C, D, M, обозначающие соответственно числа 1, 5, 10, 50, 100, 500, 1000. Составить программу, которая запись любого данного числа n(n <=3999) арабскими цифрами переводила бы в запись римскими цифрами.

@WebMax 2.0 · 26.12.2011, 17:23

Сообщение от Richik123

Задача №1
Для записи римскими цифрами используются символы I, V, X, L, C, D, M, обозначающие соответственно числа 1, 5, 10, 50, 100, 500, 1000. Составить программу, которая запись любого данного числа n(n <=3999) арабскими цифрами переводила бы в запись римскими цифрами.

Pascal

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.

@Richik123 · 26.12.2011, 17:26 **[ТС]**

Она сделана через МАССИв , а через Циклы можно??

@WebMax 2.0 · 26.12.2011, 17:32

Сообщение от Richik123

Она сделана через МАССИв , а через Циклы можно??

В задаче не сказано , что через цикл . Всю задачу циклами может и можно , на 200

строчек кода, может больше )

Сообщение от WebMax 2.0

while ArabicNumbers[i]>n do

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

@Richik123 · 26.12.2011, 17:38 **[ТС]**

Сообщение от WebMax 2.0

В задаче не сказано , что через цикл . Всю задачу циклами может и можно , на 200

строчек кода, может больше )

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

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

Добавлено через 2 минуты
ВЫ не можете мне еще со второй задачей помочь??

@Richik123 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

@Richik123 4 / 4 / 1 Регистрация: 26.12.2011 Сообщений: 263
	26.12.2011, 17:26 [ТС]	3
	Она сделана через МАССИв , а через Циклы можно?? 0

@WebMax 2.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

@Richik123 4 / 4 / 1 Регистрация: 26.12.2011 Сообщений: 263
	26.12.2011, 17:38 [ТС]	5
	Сообщение от WebMax 2.0 В задаче не сказано , что через цикл . Всю задачу циклами может и можно , на 200 строчек кода, может больше ) Это тоже цикл . Массив не запрещено ведь использовать ? Массив мы еще просто не проходили ..сказали через циклы делать..я вот и не знаю как(( Добавлено через 2 минуты ВЫ не можете мне еще со второй задачей помочь?? 0

Опции темы