Separando a Parte Inteira e a Parte Fracionária de Valores do Tipo Real

var  valor: real;
    result: integer;
begin
  valor := 147.89;

// separando a parte inteira: resultado 147
  result := trunc(valor);

// separando a parte fracionária:
// multiplicar por 100 obtem as duas primeiras casas decimais
// resultado 89
  result := round(frac(valor) * 100);
end;

double valor;
int result;
     
valor = 147.89;

// separando a parte inteira: resultado 147
result = (int)valor;

// separando a parte fracionária:
// valor original é subtraído pela parte inteira
// multiplicar por 100 obtem as duas primeiras casas decimais
// resultado 89
result = (int)Math.round((valor - (int)valor) * 100);