PASCAL HARI

Cuman Sedikit Share.........
Cara mengtahui hari,dengan menggunakan program PASCAL.........
Kalian tinggal ikutin aja script ini...

-------------------------------Script--------------------

Uses Dos,Crt;
Const
Hari : Array [0..6] of string [9] =
('Minggu','Senin','Selasa','Rabu','Kamis','Jumat','Sabtu');

Var
Mingguan,Month,day,year:integer;
cari:string[19];
{*============Menentukan Hari================*}
Function DOW(Month,Day,Year:integer):integer;
Var century : integer;
Begin
if Month > 2 then Dec(month,2)
Else
Begin inc(Month,10);Year := Pred(year); End;
Century := Year Div 100; Year := Year Mod 100;

Dow :=(Day - 1 + ((13 * Month - 1)div 5) + (5*Year Div 4)+
Century Div 4-2 * century + 1)mod 7;
end;
{*====================Program Utama======================*}
Begin
Clrscr;
writeln ('Mencari Hari');
Writeln;
Write('Ketik tanggal:');readln(Day);
write('Ketik bulan :');readln(Month);
write('Ketik tahun (4angka):');readln(Year);

Mingguan :=DOW(Month,Day,Year);
cari:= Hari[mingguan];

writeln;
write('TANGGAL TERSEBUT ADALAH HARI:'); Write (cari);
readln;
end.

----------------------------------end Scrpit---------------------------