Program Menghitung Waktu Gerhana

Fungsi : Menghitung tanggal gerhana pada bulan tertentu dengan rumus yang sudah ada.

Hint: Sebenarnya intinya hanya membuat prosedur yang menampilkan jumlah hari dalam bulan tertentu..waktu gerhana ini sebagai tambahan saja.

Screen Shot :

uses crt;

var b,ha,ger:integer;

      bul:string;

procedure maks(s:integer);

    var y,k:integer;

    begin

      case s of

        1,3,5,7,8,10,12:ha:=31;

        4,6,9,11:ha:=30;

        2:begin

            write('masukan tahun ');readln(y);

            k:=y mod 4;

            if k=0 then

              ha:=28

           else ha:=29;

           end;

      else writeln('Bulan salah!!!');readln;exit;

    end;

end;

procedure hitung(bee:integer);

   begin

     ger:=bee-(2*b);

   end;

begin

   write('masukan bulan ke- :');readln(b);

   maks(b);

   hitung(ha);

   write('Gerhana bulan ');

   case b of

       1 : WRITE('Januari');

       2:WRITE('Februari');

       3:WRITE('Maret');

       4:WRITE('April');

       5:WRITE('Mei');

       6:WRITE('Juni');

       7:write('Juli');

       8:WRITE('Agustus');

       9:write('September');

       10:write('Oktober');

       11:WRITE('November');

       12:WRITE('desemberrrr');

   end;

   writeln(' terjadi pada hari ke-',ger);

readln;

end.