Tugas KKPI Turbo Pascal

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.