Perhatikan program berikut ini.
PROGRAM waktu;
Uses Crt;
Const
JamPerHari =24;
HariPerMinggu =7;
BulanPertahun =12;
HariPerTahun =365;
Begin
Clrscr {Clear Screen};
Writeln ('Jumlah Jam Per Hari =',JamPerHari:3);
Writeln ('Jumlah Hari Per Minggu =',HariPerMinggu:3);
Writeln ('Jumlah Bulan Per Tahun =',BulanPerTahun:3);
Writeln ('Jumlah Hari Per Tahun =',HariPerTahun:4);
Readln
End.


1. Perhatikan hasil program diatas dengan cara Alt+F9 dan Ctrl+F.
2. Jika seandainya program di atas dihilangkan Uses Crt nya apa yang terjadi ?

PROGRAM waktu;

Const
JamPerHari =24;

HariPerMinggu =7;
BulanPertahun =12;
HariPerTahun =365;
Begin
Clrscr {Clear Screen};
Writeln ('Jumlah Jam Per Hari =',JamPerHari:3);
Writeln ('Jumlah Hari Per Minggu =',HariPerMinggu:3);
Writeln ('Jumlah Bulan Per Tahun =',BulanPerTahun:3);
Writeln ('Jumlah Hari Per Tahun =',HariPerTahun:4);
Readln
End.

3. Program di atas bila diganti seperti berikut ini apa hasilnya ?? Kenapa demikian ??
PROGRAM waktu;
Uses Crt;
Const
JamPerHari =24;

HariPerMinggu =7;
BulanPertahun =12;
HariPerTahun =365;
Begin
Clrscr {Clear Screen};
Writeln ('Jumlah Jam Per Hari =',JamPerHari:1);
Writeln ('Jumlah Hari Per Minggu =',HariPerMinggu:1);
Writeln ('Jumlah Bulan Per Tahun =',BulanPerTahun:1);
Writeln ('Jumlah Hari Per Tahun =',HariPerTahun:2);
Readln
End.