Selamat mencari informasi menarik dari blog saya

Program Pemakaian Seleksi Case pada Pascal

Posted by Unknown Saturday, July 20, 2013 0 comments



Bahasa pemrograman PASCAL menyediakan 2 jenis seleksi dalam pemroses suatu data, yaitu IF dan CASE. Pada artikel ini akan dibahas pemakaian seleksi case of pada PASCAL.

Berikut contoh program pemakaian seleksi case of pada pascal.

uses crt ;
var
   Matakuliah    : string[30];
   nilai  : byte ;
   ket,Nh    : string[10];
Begin
     clrscr ;
     Write('Mata Kuliah   : '); readln(matakuliah) ;
     Write('Nilai         : '); readln(nilai) ;
     Case nilai of
    80..100: Nh:='A' ;
    70..79 : Nh:='B' ;
    60..69 : Nh:='C' ;
    50..59 : Nh:='D' ;
    0..49  : Nh:='E' ;
    end;
    if nilai >49 then Ket:='lulus' else ket:='Gagal';
     Writeln('Nilai Huruf   : ', Nh);
     Writeln('Keterangan    : ', ket);
     readln;
end.

Selamat Mencoba.


Comments
0 Comments

0 comments:

Post a Comment

Online Visitor

bloggersumut.net

Kategori

Blogumulus by Roy Tanck and Amanda Fazani

Statistik Pengunjung

Sahabat Erixon

Site Info



Flag Counter