Sejam bem vindos ao nosso forum, onde havera hacks, utilitários tutoriais e dicas para diversos jogos, fique conosco e desfrute do melhor.

[Tutorial] Converter decimal para romanos

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

[Tutorial] Converter decimal para romanos

Mensagem por bielzinx em Qui Maio 19, 2011 7:10 pm

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;

bielzinx
Membro
Membro

Mensagens : 79
Agradecimentos : 8
Data de inscrição : 14/05/2011
20 / 10020 / 100



Ver perfil do usuário

Voltar ao Topo Ir em baixo

Re: [Tutorial] Converter decimal para romanos

Mensagem por Vidaama em Sab Maio 21, 2011 12:32 pm

24 horas pra postar o Source

Vidaama
Bronze Member
Bronze Member

Mensagens : 152
Agradecimentos : 11
Data de inscrição : 13/02/2011
Idade : 19
15 / 10015 / 100



Ver perfil do usuário

Voltar ao Topo Ir em baixo

Re: [Tutorial] Converter decimal para romanos

Mensagem por ✖Gµ¡¢¡Þ™ em Seg Maio 23, 2011 8:53 pm

não entendi nada
para que isso serve?
kd o tutu?

✖Gµ¡¢¡Þ™
Silver Member
Silver Member

Mensagens : 330
Agradecimentos : 35
Data de inscrição : 04/01/2011
Idade : 20
Localização : no pc
Humor : depende
0 / 1000 / 100



Ver perfil do usuário http://cheatshot.forumeiros.com/

Voltar ao Topo Ir em baixo

Re: [Tutorial] Converter decimal para romanos

Mensagem por Conteúdo patrocinado Hoje à(s) 5:31 am


Conteúdo patrocinado


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum