Aplikasi Konversi Bulan Angka Ke Huruf Pemrograman Pascal

Berikut adalah contoh penggunaan case pada aplikasi konversi bulan dari angka ke huruf (nama) bulan menggunakan pemrograman pascal.

Gambar oleh Hitesh Choudhary dari Pixabay

Contoh Program Case Aplikasi Konversi Bulan Angka Ke Huruf Pemrograman Pascal - Berikut adalah contoh penggunaan case pada aplikasi konversi bulan dari angka ke huruf (nama) bulan menggunakan pemrograman pascal.

Cara menggunakan program case aplikasi konversi dari angka ke huruf ini adalah dengan memasukkan bulan dalam setahun dalam bentuk angka. Contoh user memasukkan angka 1 pada aplikasi konversi bulan dalam setahun dari angka ke huruf pemrograman pascal maka hasil yang akan keluar adalah "angka yang anda masukkan adalah bulan januari".

Kalau user memasukkan angka 2 maka yang tampil adalah bulan febuari. Begitu cara kerja program aplikasi konversi bulan dalam setahun dari angka ke huruf pemrograman pascal.

program nama_bulan;

uses crt;

var bulan:integer;

kategori:string;

begin

        clrscr;

        write('masukkan bulan dalam angka: ');

        readln(bulan);

case bulan of

        1 : kategori := 'januari';

        2 : kategori := 'februari';

        3 : kategori := 'maret';

        4 : kategori := 'april';

        5 : kategori := 'mei';

        6 : kategori := 'juni';

        7 : kategori := 'juli';

        8 : kategori := 'agustus';

        9 : kategori := 'september';

        10: kategori := 'oktober';

        11: kategori := 'november';

        12: kategori := 'desember';

end;

writeln ('angka yang anda masukkan adalah bulan ',kategori);

readln;

end.