Dirman Record

Apr 15, 2009 No Comments by Sahabat

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]

Pascal
Sahabat

Tentang Penulis

Penulis adalah sahabat-sahabat yg menyumbang tulisan di nusinau.com untuk dimuat dengan bijaksana. Silakan kirim tulisannya ke nusinau[at]gmail[dot]com atau ke admin[at]nusinau[dot]com. Butuh diskusi cepat? colek di twitter @nusinau
No Responses to “Dirman Record”

Leave a Reply

You must be logged in to post a comment.