TUGAS 2 ALGORITMA PEMROGRAMAN (PROGRAM PENENTU GRADE NILAI MENGGUNAKAN PERCABANGAN CASE__OF)

Kali ini ane akan share program command prompt sederhana menggunakan bahasa pascal dengan compiler Borland Delphi 7.
Berikut Flowchart dari program ini :

Langkah -langkah :
1. Buka software Borland Delphi 7
2. Klik File - New - Other - Console Application
3. Ketikkan Coding dibawah ini tanpa « br »  dan « p »  :
program case_of; <br /> <br /> {$APPTYPE CONSOLE} <br /> <br /> uses <br /> SysUtils; <br /> <br /> var <br /> n:integer; <br /> grade,ket:string; <br /> <br /> begin <br /> write (' * Program Penentu Grade Nilai * '); <br /> writeln; <br /> writeln; <br /> writeln; <br /> writeln; <br /> write (' Masukkan nilai anda = '); readln(n);<br /> case n of <br /> 0..25 : <br /> begin <br /> grade:='E'; ket:='Gagal'; <br /> writeln(' grade anda = ', grade);<br /> writeln(' keterangan = ', ket); <br /> end; <br /> 26..55 : <br /> begin <br /> grade:='D'; ket:='Kurang';<br /> writeln(' grade anda = ', grade);<br /> writeln(' keterangan = ', ket); <br /> end; <br /> 56..75 : <br /> begin grade:='C'; ket:='Cukup'; <br /> writeln(' grade anda = ', grade);<br /> writeln(' keterangan = ', ket);<br /> end; <br /> 76..85 : <br /> begin grade:='B'; ket:='Baik'; <br /> writeln(' grade anda = ', grade);<br /> writeln(' keterangan = ', ket); <br /> end; <br /> 86..100 : <br /> begin <br /> grade:='A'; ket:='Istimewa';<br /> writeln(' grade anda = ', grade);<br /> writeln(' keterangan = ', ket);<br /> end; <br /> else writeln(' Nilai yang anda masukkan melebihi batas'); <br /> end; <br /> readln; <br /> end. <br />
4. tekan F9 untuk menjalankan program.
Jreng...... Jreng...... ini dia tampilan programnya :

Okey...... Selamat mencoba dan semoga berhasil.
Mohon maaf jika masih terjadi error. hehehehehe