Program Case Of Pascal

Hallo sobat Blog Fakhri, di kesempatan kali ini saya akan memposting artikel tentang Program Case Of Pascal. Fungsi case of pada pascal itu sendiri kalau di artikan satu persatu itu maksudnya jadi "kasus atau perkara dari ..." jadi, seperti semacam pembuatan opsi logika, hampir mirip dengan fungsi IF Else namun dengan fungsi yang lebih kompleks.

Okeh langsung saja kita masuk ke Source Code nya dari pada panjang lebar :

1. Case Of Nilai Huruf

Program nilai_huruf;
Uses wincrt;
Var
nilai : char;
Begin
Clrscr;
Writeln('====================================');
Writeln('                      PRAK. ALGORITMA                       ');
Writeln(' UNIVERSITAS MUHAMMADIYAH SORONG  ');
Writeln('====================================');
Writeln('   Nama : La Jupriadi Fakhri');
Writeln('   Nim  : 201555202127');
Writeln('====================================');
Writeln;
Writeln('Silahkan Anda Memilih Huruf A/B/C/D/E');
Writeln;
Write ('Masukkan Nilai Huruf : ');
Readln(nilai);
Case nilai of
'a': Write('Sangat Baik');
'b': Write('Baik');
'c': Write('Kurang');
'd': Write('Sangat Kurang');
'e': Write('Buruk Sekali');
End;
Readln; 
End.

2. Case Of Umur

Program case_of_umurku;
Uses wincrt;
Var
predikat:string;
    umur:byte;

Begin
Clrscr;
Writeln('====================================');
Writeln('                    PRAK. ALGORITMA                         ');
Writeln(' UNIVERSITAS MUHAMMADIYAH SORONG  ');
Writeln('====================================');
Writeln('   Nama : La Jupriadi Fakhri');
Writeln('   Nim  : 201555202127');
Writeln('====================================');
Writeln;
       Write('Masukkan Usia Kamu = ');
       Readln(umur);
       Writeln;
       Case umur of
            0..1  :predikat:='Bayi';
            2..11 :predikat:='Bocah';
            12..17:predikat:='Cabe-cabean';
            18..23:predikat:='Abg';
            24..39:predikat:='Dewasa';
            40..54:predikat:='Bapak-bapak';
            55..64:predikat:='Bangkotan';
       Else
           predikat:='old';
       End;
           Write('Usiamu Bisa Dibilang = ',predikat);
           Readln;
End.

Mungkin ini dulu yang saya bisa share hari ini, Sekian dan Terima Kasih telah mengunjungi Blog Fakhri, apabila ada pertanyaan silahkan tinggalkan pesan di kontak komentar atau bisa juga langsung chat di akun Facebook saya.