Dirman Record
Apr 15, 2009 No Comments
Program ditulis oleh Sudirman
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | uses wincrt; Var tanggal : record hari, bulan, tahun : integer end; begin write('tanggal : ') ; readln(tanggal.hari); write('bulan : '); readln(tanggal.bulan); write('tahun : '); readln(tanggal.tahun); write('tanggal lahir anda : '); write(tanggal.hari); write(tanggal.bulan); write(tanggal.tahun); readln; end. |
Sudirman
[email protected]