Contoh Program Komputer Case OF Untuk Pengambilan Keputusan

Untuk dapat mengerti  contoh-contoh berikut, maka diharapkan anda telah mempelajari teori dasar, konsep dan logika pengambilan keputusan.

Contoh-1

Buatlah program untuk mencetak keterangan Nilai Huruf sebagai berikut :

     A  = Sangat Baik 
     B  = Baik 
    C  = Cukup 
    D  = Kurang 
    E  = Gagal 

Jawab :

Algoritma :
•    Mulai
•    Deklarasikan variabel
•    Input Nilai Huruf
•    Cek Nilai 
•    Pilih salah satu Nilai 
•    Kerjakan pernyataan
•    Cetak hasil
•    Selesai

Flowchart

Afiliasi Indo web maker Unik

Kode Program

Program Case_Of;
uses crt;
Var  
    Nilai   : Char;
    Ket     : String [12];
Begin 
Write ('Masukkan Nilai Huruf Anda (A/B/C/D/E)  = ');
        Readln(Nilai) ;
        Case Nilai Of
              'A' : Ket := ' Sangat Baik ' ;
              'B' : Ket := ' Baik ' ;
              'C' : Ket  := ' Cukup ' ;
              'D' : Ket := ' Kurang ' ;
              'E'  : Ket := ' Gagal ' ; 
        End;

        Write (' Nilai Anda    = ', Ket) ;
        Readln ;
End.

Hasil  Program
  
















Contoh-2

Buatlah program untuk menentukan nilai Huruf dengan aturan sebagai berikut :

       0 <= Nilai <=40  adalah  E
       40 < Nilai <= 55 adalah  D
       55 < Nilai <= 69 adalah  C
       69 < Nilai <= 85 adalah  B
       85 < Nilai <= 100 adalah A



Algoritma

•    Mulai
•    Deklarasikan Variabel
•    Input Nilai
•    Cek nilai 
•    Pilih salah satu Pilihan yang sesuai dengan Nilai input.
•    Kerjakan pernyataan
•    Cetak Hasil
•    Selesai

Flowchart

Kode Program 

Program case_of2;
uses crt;

var n1 : integer;
    n2 : char;

Begin
      write('Input Nilai angka = ');
      readln(n1);

     case n1 of
         0..40  : n2 := 'E';
        40..55 : n2 := 'D';
        55..69 : n2 := 'C';
        69..85 : n2 := 'B';
        85..100:n2 := 'A';
     end;

      writeln;
      writeln('Anda mendapat nilai : ',n2);
      readln;
end.




Hasil  Program
  

 Semoga bermanfaat.
God bless you all.