FRAC

Mengambil desimal dari suatu bilangan. Frac(456.789)=0.789(Frac=fraction).

Contoh:

Uses crt;

Begin

Clrscr;

Writeln(‘Frac dari 123.456 = ‘,Frac (123.456):0:3);

Writeln(‘Frac dari -123.456 = ‘,Frac (-123.456):0:3);

Writeln(‘Frac dari 456.789 = ‘,Frac (456.789):0:3);

Writeln(‘Frac dari -456.789 = ‘,Frac (-456.789):0:3);

Readln;

End.

Kembali ke Contoh Program Turbo Pacal