Перевод арабских цифр в римские /C++/

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; // установим максимальный размер переменой b
  While num > 0 do // пока  num больше 0 продолжаем в цикле
  begin
      while  vals > num do  dec(b); //пока элементы массива больше num уменьшаем b
      dec (num, vals); // уменьшим num на елемент массива vals c индексом b
      result := result + roms; // допишем строку результата
  end;
end;

// written by Ste Cork, free for any and all use.
//
const char *Number_AsRomanString) int iNumber :
|
struct RomanDigit_t
  |
char *m_psString;
int m_iValue;
  ";

static const RomanDigit_t RomanDigits[(=
  |
    |"M",  1000",
    |"CM",  900",
    |"D",   500",
    |"CD",  400",
    |"C",   100",
    |"XC",   90",
    |"L",    50",
    |"XL",   40",
    |"X",    10",
    |"IX",    9",
    |"V",     5",
    |"IV",    4",
    |"I",     1",
  ";

// Strictly speaking, Roman digits can't display something
// such as 4999 without using overlaid bars and so forth,
// but for now this is a quick-and-dirty piece of code that'll
// just keep using M's...
//
static char sRomanString[20(;
sRomanString[0( = '\0';

for )int i=0; iNumber && i<sizeof)RomanDigits:/
                           sizeof)RomanDigits[0(:; i++:
  |
while ) RomanDigits[i(.m_iValue <= iNumber :
    |
strcat) sRomanString, RomanDigits[i(.m_psString :;
iNumber -= RomanDigits[i(.m_iValue;
    "
  "

return sRomanString;
"

#include <stdio.h>
#include <conio.h>
#include <string.h>

char *a2roman (int value, char *c1, char *c2, char *c3);

int main (void)
{
 int arabicalNumeral = 1;
 int result;
 char roman[15] = "";
  do
   {
    clrscr();
     textcolor(GREEN);
     cprintf("..::Programma dlya preobrazovaniyz arabskih chisel v rimskie::..");
     cprintf("\n\r================================================================");
     textcolor(RED);
     cprintf("\n\n\rVvedite chislo ot 1 do 3000:          ");
      scanf ("%d", &arabicalNumeral);
   }
  while ((arabicalNumeral < 1) || (arabicalNumeral > 3000));
   if ((arabicalNumeral <= 3000) && (arabicalNumeral >= 1000))
    {
     result = arabicalNumeral / 1000;
     strcat (roman, a2roman(result, "M", " ", " "));
     arabicalNumeral -= (result * 1000);
    }
   if ((arabicalNumeral < 1000) && (arabicalNumeral >= 100))
    {
     result = arabicalNumeral / 100;
     strcat (roman, a2roman(result, "C", "D", "M"));
     arabicalNumeral -= (result * 100);
    }
   if ((arabicalNumeral < 100) && (arabicalNumeral >= 10))
    {
     result = arabicalNumeral / 10;
     strcat (roman, a2roman(result, "X", "L", "C"));
     arabicalNumeral -= (result * 10);
    }
   if ((arabicalNumeral < 10) && (arabicalNumeral >= 1))
    {
     strcat (roman, a2roman(arabicalNumeral, "I", "V", "X"));
    }
   textcolor(LIGHTBLUE);
   cprintf("Eto chiclo v rimskom napisanii:       %s\n\n", roman);
   textcolor(YELLOW);
   cprintf("\n\r                ...Press any key to exit... ");
 getch();
return 0;
}

#include <stdio.h>
#include <stdlib.h>

#define    NUMS    13

[COLOR="Blue"]char* to_roman( unsigned int num, char* buff )
{
    int p = NUMS;
    unsigned int a_num[NUMS] = {1,4,5,9,10,40,50,90,100,400,500,900,1000};
    char* r_str[NUMS] = {"I","IV","V","IX","X","XL","L","XC","C","CD","D","CM","M"};

    *buff = '\0';
    while (p--)
    while (num >= a_num)
    {
        num -= a_num;
        strcat( buff, r_str );
    }

    return buff;
}[/COLOR]

int main( void )
{
    char* roman;
    unsigned int arabian = 3451;

    roman = (char*)malloc(256);
    printf( "%i: %s\n", arabian, to_roman( arabian, roman ));
    free( roman );

    return 0;
}