Program Pencari Tanggal

Jun 27, 2009 No Comments by Sahabat

ProgramPencariHar;
uses WinDos, Wincrt;
const
days:array [0..6] of string [9]=
(‘Minggu’,’Senin’,’Selasa’,’Rabu’,’Kamis’,’Jumat’,’Sabtu’);

var
th, tg, bl, dow: word;
begin
GetDate(th,bl,tg,dow);
write(‘Hari ini adalah ‘ ,days[dow],’, ‘,tg:0,’ ‘);
case bl of
1:begin
write(‘Januari’);
end;
2:begin
write(‘Februari’);
end;
3:begin
write(‘Maret’);
end;
4:begin
write(‘April’);
end;
5:begin
write(‘Mei’);
end;
6:begin
write(‘juni’);
end;
7:begin
write(‘Juli’);
end;
8:begin
write(‘Agustus’);
end;
9:begin
write(‘September’);
end;
10:begin
write(‘Oktober’);
end;
11:begin
write(‘November’);
end;
12:begin
write(‘Desember’);
end;

end; 
write(‘ ‘,th:0)

end.

Kata Kunci

pencari tanggal.

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 “Program Pencari Tanggal”

Leave a Reply

You must be logged in to post a comment.