SRL Archive - General

help on roman numerals

karlkarlngng

2010-02-02 00:28:07

can some 1 post a roman numarls translater to normal 123s

i luffs yeww

2010-02-02 00:33:12

http://ostermiller.org/calc/roman.html

Unless you need it specifically in SCAR..

Markus

2010-02-02 09:28:04


program RomanoToDecimals;
var
  letters : String;
  numbers : TIntegerArray;
  i, no : integer;
const RomanNumber = 'MMV';
begin
letters := 'IVXCDLM';
numbers := [  1,   5,  10,  50, 100, 500, 1000];
i := 1;
while i <= length(romannumber)-1 do
begin
  if (pos(uppercase(RomanNumber)[i+1], letters) > pos(uppercase(RomanNumber)[i], letters)) then
  begin
    no := no + Numbers[-1+pos(uppercase(RomanNumber)[i+1], letters)] -  Numbers[-1+pos(uppercase(RomanNumber)[i], letters)];
    inc(I);
  end else
    no := no + Numbers[-1+pos(uppercase(RomanNumber)[i], letters)];
  Inc(I);
end;
if I <= length(romannumber) then
begin
    no := no + Numbers[-1+pos(uppercase(RomanNumber)[i], letters)];
end;
writeln(inttostr(no));
end.

Was bored ^-^