[Tutorial] Converter decimal para romanos
3 participantes
:: Programação :: Delphi :: Delphi Tutoriais.
Página 1 de 1
[Tutorial] Converter decimal para romanos
function DecToRoman( Decimal: LongInt ): String;
{Converte um numero decimal em algarismos romanos}
const
Romans: Array[1..13] of String = ( 'I', 'IV', 'V', 'IX', 'X', 'XL', 'L', 'XC', 'C', 'CD', 'D', 'CM', 'M' );
Arabics: Array[1..13] of Integer =( 1, 4, 5, 9, 10, 40, 50, 90, 100, 400, 500, 900, 1000);
var
i: Integer;
scratch: String;
begin
scratch := '';
for i := 13 downto 1 do
while ( Decimal >= Arabics[i] ) do
begin
Decimal := Decimal - Arabics[i];
scratch := scratch + Romans[i];
end;
Result := scratch;
end;
{Converte um numero decimal em algarismos romanos}
const
Romans: Array[1..13] of String = ( 'I', 'IV', 'V', 'IX', 'X', 'XL', 'L', 'XC', 'C', 'CD', 'D', 'CM', 'M' );
Arabics: Array[1..13] of Integer =( 1, 4, 5, 9, 10, 40, 50, 90, 100, 400, 500, 900, 1000);
var
i: Integer;
scratch: String;
begin
scratch := '';
for i := 13 downto 1 do
while ( Decimal >= Arabics[i] ) do
begin
Decimal := Decimal - Arabics[i];
scratch := scratch + Romans[i];
end;
Result := scratch;
end;
bielzinx- Membro
- Mensagens : 79
Agradecimentos : 8
Data de inscrição : 14/05/2011
Re: [Tutorial] Converter decimal para romanos
24 horas pra postar o Source
Vidaama- Bronze Member
- Mensagens : 152
Agradecimentos : 11
Data de inscrição : 13/02/2011
Idade : 27
Tópicos semelhantes
» [Tutorial]Oque é Preciso Para Programar C / C++
» [TUTORIAL] Tudo que se precisa saber para ser GuildMasters
» [Tutorial]Passando Add Para Set Arch , Com Set Mortal Full
» tutorial-criando um Hack para GrandChase Chaos
» [Tutorial] Como preparar um sistema para ser utilizado em rede
» [TUTORIAL] Tudo que se precisa saber para ser GuildMasters
» [Tutorial]Passando Add Para Set Arch , Com Set Mortal Full
» tutorial-criando um Hack para GrandChase Chaos
» [Tutorial] Como preparar um sistema para ser utilizado em rede
:: Programação :: Delphi :: Delphi Tutoriais.
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
|
|