fbpx

Algoritma dan Pemrogaman : Contoh Program dengan Struktur Case

Program Nilai Mahasiswa

program nilaimahasiswa;
uses crt;
var Nilai : integer;
begin
    clrscr;
    writeln('Input nilai yang Anda dapatkan 0 s.d. 100');
    write('Nilai Anda = ');
    readln(Nilai);

       case nilai of
          0..59 : writeln('Anda tidak lulus');
         60..100 :
            begin
             write('Anda lulus ');
               case nilai of
                  60..74: writeln('dengan nilai cukup');
                  75..89: writeln('dengan nilai baik');
                  else writeln('dengan nilai sangat baik');
               end;
            end;
         else
             writeln('Anda salah input nilai');
       end;
readln;
end.


Contoh Output:

Pada program nilai tersebut, apabila nilai bertipe real, bagaimana cara mensiasatinya agar kita tetap dapat menggunakan strukur case?

program Konversi;
uses crt;
var tugas,uts,uas   :integer;
    NA              :real;
    grade           :char;

Ketika variabel nilai atau pada program tersebut adalah NA dan dengan tipe data real maka harus diubah terlebih dahulu ke bentuk bilangan bulat dengan menggunakan fungsi ROUND(var); . Jadi program sebelum di bulatkan akan terjadi error.

NA:=(tugas*0.2+uts*0.3+uas*0.5);    
      writeln('Nilai akhir Anda =',NA);
        case NA of
          0..19: grade:='E';
         20..39: grade:='D';
         40..59: grade:='C';
         60..79: grade:='B';
         else    grade:='A';

Pada perhitungan NA akan dihasilkan bentuk desimal atau bukan merupakan bilangan bulat, sehingga harus dibulatkan terlebih dahulu, sehingga menjadi seperti berikut.

NA:=(tugas*0.2+uts*0.3+uas*0.5);    
      writeln('Nilai akhir Anda =',NA);
         case round(NA) of
          0..19: grade:='E';
         20..39: grade:='D';
         40..59: grade:='C';
         60..79: grade:='B';
         else    grade:='A';

Program tersebut dapat berjalan karena, NA telah dibulatkan menggunakan fungsi round(Var)


Program Hari Bulan

program haribulan;
uses crt;
label ulangi;
var tgl,b,thn : integer;
    kabisat : boolean;

begin
        clrscr;
        ulangi:
        write('Tanggal: '); readln(tgl);
        write('Bulan: '); readln(b);
        write('Tahun: '); readln(thn);

{Memeriksa untuk kondisi tahun kabisat}

        if (thn mod 400=0) then kabisat := true
          else if (thn mod 100=0) then kabisat := false
            else if (thn mod 4=0) then kabisat := true
              else kabisat:= false;

{Memeriksa error Bulan}
        if((b<=0) or (b>=13)) then
        begin
            writeln('SALAH INPUT');
            goto ulangi;
        end;
{Memeriksa error tanggal}
        if((tgl<=0) or (tgl>=32)) then
        begin
            writeln('SALAH INPUT');
            goto ulangi;
        end;
        if(tgl=31) then
        begin
            if((b=2) or (b=4) or (b=6) or (b=9) or (b=11)) then begin
                writeln('SALAH INPUT');
            goto ulangi;
        end;
end;
{Memeriksa error bulan Februari}
        if(b=2) then
        begin
            if(kabisat=true) then
                 begin
                   if(tgl>29) then
                       begin
                         writeln('SALAH INPUT');
                         goto ulangi;
                       end;
                 end
            else
              begin
                  if(tgl>28) then
                  begin
                      writeln('SALAH INPUT');
                      goto ulangi;
                  end;
              end;
        end;
{Penulisan Output}
write('Hari ini: ',tgl,' ');
case b of
        1: write('Januari ');
        2: write('Februari ');
        3: write('Maret ');
        4: write('April ');
        5: write('Mei ');
        6: write('Juni ');
        7: write('Juli ');
        8: write('Agustus ');
        9: write('September ');
        10: write('Oktober ');
        11: write('November ');
        12: write('Desember ');
end;
writeln(thn);
readln;
end.

Contoh output:


Materi Lengkap

Silakan baca juga beberapa artikel menarik kami tentang Konsep Pemilihan, daftar lengkapnya adalah sebagai berikut.


Tonton juga video pilihan dari kami berikut ini

Bagikan ke teman-teman Anda

Contact Us

How to whitelist website on AdBlocker?

How to whitelist website on AdBlocker?

  1. 1 Click on the AdBlock Plus icon on the top right corner of your browser
  2. 2 Click on "Enabled on this site" from the AdBlock Plus option
  3. 3 Refresh the page and start browsing the site
error: Content is protected !!
Up