Program Pascal Menentukan Hari dari sebuah tanggal

Standar

Masih mengenai program pascal neh!!

ini tampilan outputnya. dibawah ada kumpulan syntacs nya.!!

capek beud dah buatnya !!

program MenentukanHari;
uses wincrt;
var tgl, bln, thn : integer;
a,b,c,d,jml1,jml2, hr:integer;
hari, bulan:string;
pilihan:char;
label lagi;
begin
lagi:
Clrscr;
writeln(‘                              Program Pascal’);
writeln(‘                        created by : Umi Kalsum’);
writeln(‘         FKIP MATEMATIKA UNIVERSITAS SRIWIJAYA 2010’);
Writeln(‘                      Mencari hari dari tanggal lahir anda’);
writeln(‘=================================================’);
write(‘masukkan tanggal: ‘); readln(tgl);
write(‘masukkan bulan : ‘); readln(bln);
write(‘masukkan tahun : ‘); readln(thn);
a:=(thn-1900) div 4;
if bln = 1 then
begin
bulan:=’Januari’;
if thn mod 4 = 0 then
b:=0 else
b:=1
end;
if bln = 2 then
begin
bulan:=’Februari’;
if thn mod 4 = 0 then
b:=31 else
b:=32
end;
if bln = 3 then
begin
bulan:=’Maret’;
b:=60;
end;
if bln = 4 then
begin
bulan:=’April’;
b:=91;
end;
if bln = 5 then
begin
bulan:=’Mei’;
b:=121;
end;
if bln = 6 then
begin
bulan:=’Juni’;
b:=152;
end;
if bln = 7 then
begin
bulan:=’Juli’;
b:=182;
end;
if bln = 8 then
begin
bulan:=’Agustus’;
b:=213;
end;
if bln = 9 then
begin
bulan:=’September’;
b:=244;
end;
if bln = 10 then
begin
bulan:=’Oktober’;
b:=274;
end;
if bln = 11 then
begin
bulan:=’November’;
b:=305;
end;
if bln = 12 then
begin
bulan:=’Desember’;
b:=335;
end;
c:=tgl;
d:=thn-1900;
jml1:= a+b+c+d;
hr:= jml1 mod 7;
if hr = 1 then
hari:=’Minggu’;
if hr = 2 then
hari:=’Senin’;
if hr = 3 then
hari:=’Selasa’;
if hr = 4 then
hari:=’Rabu’;
if hr = 5 then
hari:=’Kamis’;
if hr = 6 then
hari:=’Jumat’;
if hr = 0 then
hari:=’Sabtu’;
jml2:=a+b+c;
if (thn < 1900) or (bln > 12) or (tgl > 30) then
begin
writeln(‘Maaf tanggal yang anda tulis di luar jangkauan perhitungan’);
write(‘Coba diteliti lagi’); readln;
goto lagi;
end;
writeln(‘Pada: ‘,tgl,’ ‘,bulan,’ ‘,thn);
writeln(‘berada pada hari: ‘,hari); readln;
write(‘Coba lagi?[Y/T]’); readln(pilihan);
if (pilihan = ‘t’) or (pilihan = ‘T’) then
begin
writeln(‘Terima Kasih…’);
end;
if (pilihan = ‘y’) or (pilihan = ‘Y’) then
goto lagi;
end.

selesai deh. semoga bisa di COMPILE yah!

leave comment yah ^^

5 responses »

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s