SYAIF DESIGN

Senangnya berbagi Ilmu meskipun hanya segelintir Cara Membuat Program Penentu Grade Nilai Menggunakan Percabangan Case_Of, Silahkan simak langkah-langkah dibawah ini. jangan lupa siapkan segelas teh hangat he,.,.10 rbx

1. Seperti biasa, buka Program Delphi 7

2. Jangan Lupa buat Lembar kerja Baru

3. Kemudian Masukkan Script seperti dibawah ini

program tugas2; {$APPTYPE CONSOLE} uses SysUtils; var n : integer; grade,ket : string; begin write('Masukkan Nilai Anda = '); readln(n); case n of 0..25 : begin grade :='E'; ket :='Gagal'; end; 26..55 : begin grade :='D'; ket :='Kurang'; end; 56..70 : begin grade :='C'; ket :='Cukup'; end; 71..85 : begin grade :='B'; ket :='Baik'; end; else grade :='A'; ket :='Sangat Baik'; end; writeln('Grade = ',grade); writeln('Keterangan = ',ket); readln end.

4. Seteleh itu Jalankan Program dengan menekan tombol F9 atau Klik menu RUN, maka akan tampil kotak dialog seperti dibawah ini.

5. Masukkan Nilai Anda

 6. Abra kadabraa.. Nilai Anda Sangat Memuaskan. Selesai. 

* sebagai gambaran Flowchart dari Program diatas, lihat gambar dibawah ini

CARA PERTAMA

1. Jalankan Program delphi 7

2. Klik file - New - Console Application

3. Masukkan Script & Nilai yang dibutuhkan, seperti dibawah ini (Teks yang berwarna biru)

4. Jalankan Program dengan Klik menu Run, maka tampil kotak dialog seperti dibawah ini 

5. Masukkan Nilai

CARA KEDUA

1. Jalankan Program delphi 7

2. Klik file - New - Console Application

3. Masukkan Script & Nilai yang dibutuhkan, seperti dibawah ini (Teks yang berwarna biru)

program kedua; {$APPTYPE CONSOLE} uses SysUtils; Var n:integer; begin write('Masukkan Nilai ='); readln(n); if n>85 then write('Nilai A') else if n>70 then write('Nilai B') else if n>55 then write('Nilai C') else if n>26 then write('Nilai D') else write('Nilai E'); readln end.

4. Jalankan Program dengan Klik menu Run, maka tampil kotak dialog seperti dibawah ini   

5. Masukkan Nilai

Enjoy gann....,.