castilho

Protótipo: function frac(x: real): real;

Descrição: Retorna a parte não inteira de x.

Exemplo:

  
program exemploFrac;
 begin
    writeln(frac(123.456):0:3);   // Imprime  O.456  
    writeln(frac(-123.456):0:3);  // Imprime -O.456  
 end.