1. Program Trunc_Frac;
2. Uses Crt;
3. Var a,b : real;
...
4. Begin
5. Clrscr;
6. a := Trunc(2.6); {hasilnya 2.0}
7. b := Frac(2.6); {hasilnya 0.6}
8. Writeln;
9. Writeln(‘hasil TRUNC 2.6 : ‘, a:5:1);
10. Writeln(‘hasil FRAC 2.6 : ‘, b:5:1);
11. End.
