Fórum Como obter os decimais de uma divisão? #204123

Rapaz Mas Esta Dificil Entender o Que Voce Diz.Quando Um Tópico Fica Muito Tempo Sem Resposta No Forum Na Maior Parte Das Vezez e Devido a Pergunta Ser Formulada Dando Algumas Interpretações.Mas Deixa Eu Ver Se O Que Queres É Isto.Fazer Uma Divisão e Separar a Parte Inteira e a Parte Decimal Desta Divisão.Partindo Deste Preincipio Vou Atacar Sua Dúvida.
Considere
[color=red:4e5e5ae035]Var
a,b:Real;//Pode Ser Inteiro, Nao Tem Problema.
ParteInteira:Integer;
ParteDecimal:Real;
Begin
//Se B <> 0 Then
ParteInteira:=Int(a/b);
ParteDecimal:=(a/b) - ParteDecimal;
end; //Fim Do Código...[/color:4e5e5ae035]

Desculpe , Mas Acabei Digitando Errado:
[color=red:279a54e80f]Var
a,b:Real;//Pode Ser Inteiro, Nao Tem Problema.
ParteInteira:Integer;
ParteDecimal:Real;
Begin
//Se B <> 0 Then
ParteInteira:=Int(a/b);
ParteDecimal:=(a/b) - ParteDecimal; *******ERRADO*************
ParteDecimal:=(a/b) - ParteInteira; // Código Correto
end; //Fim Do Código...[/color:279a54e80f]