Помогите сделать задание на Delphi !

[IvantsivAnd]

Нужно написать программу для превращения десятичных натуральных чиссел в римскую систему номерации в диапазоне от 1 до 3999. На вход подается Integer. То есть водишь будь какое число от 1 до 3999, а программа должна вывести то число только в римской системе исчисления..... помогите пожалуйста написать на Delphi !!!

Используется синтаксис Delphi

while n > 0: #если число которое мы переводим>0
while A_x[i]<=n:#пока i`тый элемент меньше переводимого числа
s+=str(R_x[i])#к числу в римской системе прибавляем i`тый элемент в римской системе
n=n-A_x[i]#и вычитаем из числа в 10 системе i`ый элемент в арабской системе
i=i+1#переход к следущему i
return(s)

[arseniiv]

А вы ведь уже что-нибудь попробовали составить?

-- Пн фев 27, 2012 23:23:33 --

Кстати, тут ведь без вашего участия никак не выйдет. Вопросы начинаются уже с самого начала: на вход подаётся Integer или String?

[Toucan]

Тема перемещена в Карантин.

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

После того как исправите сообщение, сообщите об этом в теме Сообщение в карантине исправлено.

________________
Всякий, кто поступил в университет, но не хочет сам учиться - враг своей страны, подрывающий ее научно-технический, интеллектуальный и оборонный потенциалы.
(c) по мотивам сообщения Yuri Gendelman.