Hari_Lahir

program lahir;
uses wincrt;
var
    tgl_skrg,
    bln_skrg,
    thn_skrg,
    tgl_lahir,
    bln_lahir,
    thn_lahir,
    selisihtgl,
    selisihbln,
    selisihthn: integer;

    jawab : integer;
    standar: longint;
    tglAwal,
    blnAwal,
    thnAwal : integer;

begin

 repeat
   clrscr;
   writeln ('                              PROGRAM USIA ');
   writeln ('                              disusun oleh : ');
   writeln ('                            ELYZABETH (1006638)');
   writeln ('==============================================================================');
   writeln ('modifikasi : menampilkan usia, hari kelahiran dan dapat melakukan pengulangan');
   writeln;



          writeln ('MASUKAN TANGGAL LAHIR ANDA!');
          write ('tanggal      : '); read (tgl_lahir);
          write ('bulan (1-12) : '); read (bln_lahir);
          write ('tahun        : '); read (thn_lahir);
          writeln;
          writeln ('MASUKAN TANGGAL HARI INI!');
          write ('tanggal      : '); read (tgl_skrg);
          write ('bulan (1-12) : '); read (bln_skrg);
          write ('tahun        : '); read (thn_skrg);
          writeln;

          selisihtgl := tgl_skrg-tgl_lahir;

          if selisihtgl < 0 then
             selisihtgl := (tgl_skrg+30)-tgl_lahir;

          if tgl_skrg < tgl_lahir then
             bln_skrg := (bln_skrg-1) ;

          selisihbln := bln_skrg-bln_lahir;

          if selisihbln < 0 then
             selisihbln := (bln_skrg+12)-bln_lahir;


          selisihthn := thn_skrg-thn_lahir;

          if bln_skrg < bln_lahir then
             selisihthn := (thn_skrg-1)-thn_lahir ;


          writeln ('usia anda saat ini : ' ,selisihthn, ' tahun ' ,selisihbln, ' bulan ' ,selisihtgl, ' hari ');
          writeln ;

          tglAwal := tgl_lahir;
          blnAwal := bln_lahir;
          thnAwal := thn_lahir;
          standar := (thn_lahir - 1) * 365 + (thn_lahir-1) div 4;

          bln_lahir := bln_lahir - 1;

          while bln_lahir > 0 do
          begin

             case bln_lahir of
                  1  : standar := standar + 31;
                  2  : if (thn_lahir mod 4 = 0) then standar := standar + 29 else standar := standar + 28;
                  3  : standar := standar + 31;
                  4  : standar := standar + 30;
                  5  : standar := standar + 31;
                  6  : standar := standar + 30;
                  7  : standar := standar + 31;
                  8  : standar := standar + 31;
                  9  : standar := standar + 30;
                  10 : standar := standar + 31;
                  11 : standar := standar + 30;
             end;
             bln_lahir := bln_lahir -1;
          end;

          standar := standar + tgl_lahir;

          writeln ('tanggal ', tglAwal, '-', blnAwal,'-',thnAwal);
          write ('Anda lahir pada hari: ');

            case (standar mod 7) of
            0 : writeln ('Minggu');
            1 : writeln ('Senin');
            2 : writeln ('Selasa');
            3 : writeln ('Rabu');
            4 : writeln ('Kamis');
            5 : writeln ('Jumat');
            6 : writeln ('Sabtu');
            end;

          writeln;
          writeln ('ulangi ? (tekan 1 untuk ya, tekan 2 untuk tidak)');
          write ('jawab : '); read (jawab);
          writeln;
          writeln;

    until jawab = 2;
               write ('————–TERIMAKASIH TELAH MENCOBA PROGRAM INI————— ');
end.