Program Sederhana Pascal dengan materi :"penyeleksian kondisi case"

  Haloo agan agan....., postingan saya kali ini membahas tentang membuat program sederehana yang materi nya adalah tentang percabangan "case".
  Langsung saja ke materi, di postingan ini saya akan membahas pembuatan program pengkonversi kode angka ke hari, Program ini dibuat dengan menggunakan software Dev-Pascal 1.9.2, program ini di buat untuk mengkonversi angka 1 sampai 7 menjadi nama hari, dengan keterangan sebagai berikut :

·         1  =  Senin

·         2  =  Selasa

·         3  =  Rabu

·         4  =  Kamis

·         5  =  Jumat

·         6  =  Sabtu

·         7  =  Minggu

·         Lebih dari 7 = Pesan Peringatan                                                                                                                                                                                                                                                                                          kode program :                                                                                                                                                program bagus_enggar;

uses crt;

var a:integer;

    b:char;

begin

repeat

     clrscr;

     writeln('Program Konversi angka ke hari');

     writeln('');

     writeln('Masukan Kode hari yang di inginkan (1 sampai 7) : ');readln(a);

     writeln('');

     case a of

          1: begin

             writeln('Anda Memasukan kode hari : ',a);

             writeln('Hari ke ',a,' adalah Hari Senin');

              end;

           2: begin

             writeln('Anda Memasukan kode hari : ',a);

             writeln('Hari ke ',a,' adalah Hari Selasa');

             end;

          3: begin

             writeln('Anda Memasukan kode hari : ',a);

             writeln('Hari ke ',a,' adalah Hari Rabu');

             end;

          4: begin

             writeln('Anda Memasukan kode hari : ',a);

             writeln('Hari ke ',a,' adalah Hari Kamis');

             end;

          5: begin

             writeln('Anda Memasukan kode hari : ',a);

             writeln('Hari ke ',a,' adalah Hari Jumat');

             end;

          6: begin

             writeln('Anda Memasukan kode hari : ',a);

             writeln('Hari ke ',a,' adalah Hari Sabtu');

             end;

          7: begin

             writeln('Anda Memasukan kode hari : ',a);

             writeln('Hari ke ',a,' adalah Hari Minggu');

             end;

     else

             begin

             writeln('Anda Memasukan kode hari : ',a);

             writeln('Pastikan Anda Memasukan kode hari hanya dari 1 sampai 7');

             end;

     end;

     writeln('');

     writeln('Anda ingin Mencoba Lagi ? (y/n)');readln(b);

until Upcase(b) <> 'Y';

end.

 Setelah menuliskan kode program tersebut di Dev-Pascal 1.9.2, jalan kan program tersebut.

 Jika berhasil maka program akan jalan sebagai berikut :

Gambar 1 :

Keterangan Gambar : User menginput angka 3, maka program mengkonversi nya menjadi Hari Rabu.

Gambar 2 :

Keterangan Gambar : User menginput angka 9, maka program member pesan peringatan yaitu : “Pastikan Anda Memasukan kode hari hanya dari 1 sampai 7”.

Selamat Mencoba, Semoga Bermanfaat..