|
Тема |
Конверт на рисмки в арабски числа |
|
Автор | jakomen (Нерегистриран) | |
Публикувано | 31.10.08 17:14 |
|
|
Конверт на рисмки в арабски числа
function RomanToInt(Value: string): integer;
var
len, number, counter, bsum, sum: integer;
roman_num: string;
begin
number := 0;
bsum := 0;
sum := 0;
len := length(Value);
roman_num := Value;
for counter := Len downto 1 do
begin
if (roman_num[counter] = 'I') or (roman_num[counter] = 'i') then
number := 1
else if (roman_num[counter] = 'V') or (roman_num[counter] = 'v') then
number := 5
else if (roman_num[counter] = 'X') or (roman_num[counter] = 'x') then
number := 10
else if (roman_num[counter] = 'L') or (roman_num[counter] = 'l') then
number := 50
else if (roman_num[counter] = 'C') or (roman_num[counter] = 'c') then
number := 100
else if (roman_num[counter] = 'D') or (roman_num[counter] = 'd') then
number := 500
else if (roman_num[counter] = 'M') or (roman_num[counter] = 'm') then
number := 1000
else
number := 0;
if (bsum > number) then
sum := sum - number
else
sum := sum + number;
bsum := number;
end;
Result := sum;
end;
|
| |
|
|
|