diktat 4 latihan 5

1.      Algoritma menentukan hari dalam satu bulan

{ input bulan dan tahun kemudian output jumlah hari dalam satu bulan

Deklarasi

   AngkaBulan : integer;           { 1 . . 12 }

   Tahun      : integer;          { > 0 }

   JumlahHari : integer;

Deskripsi

begin

     write('Bulan (1-12) = ');

     write('Tahun = ');

     case AngkaBulan of

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

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

           2                      : if Tahun mod 4 = 0 then

                                        JumlahHari:=29

                                    else

                                        JumlahHari:=28;

                                   {endif}

    end;

      

       writeln('Jumlah hari dalam bulan ',AngkaBulan,' adalah ',JumlahHari);

end.