With Friend Blog
Senin, 17 April 2017
Minggu, 16 April 2017
Kamis, 08 Desember 2011
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.
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.
Langganan:
Postingan (Atom)













