CONTOH ALGORITMA TEKS atau KARAKTER

{ menentukan jumlah hari dalam satu bulan }

uses wincrt;

(* DEKLARASI *)

var

   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.

Nama : Hery Supriza
Nim : D1042131010