Contoh Terapan Kode Delphi CASE (variable) OF

kode delphi untuk case (variable) of
1. buka aplikasi delphi, setelah itu klik menu file > new > other. dan pada tab new pilih Console Aplication

2. berikut kode untuk CASE (variable) OF

uses
  SysUtils;

var

 nilai: integer;
 grade: string;

begin
write ('masukkan nilai = ');readln(nilai);
CASE nilai OF
0..25:grade:='E';
26..55:grade:='D';
56..75:grade:='C';
76..85:grade:='B';
86..100:grade:='A';
end;
writeln('grade = ',grade);
readln;
end.

NB : kode yang berwarna biru adalah kode yang harus ditambahkan pada file. dan setelah selesai tinggal di RUN aja,
dan apabila berhasil akan tampil seperti dibawah ini,

dan apabila dimasukkan angka 1 - 100, akan muncul seperti ini,


contoh lain buatan saya untuk kode CASE (variable) OF

kodenya dibawah ini: program Project2; {$APPTYPE CONSOLE} uses SysUtils; var nilai: integer; kelas: string; begin writeln ('jadwal piket menurut absen'); write ('masukkan nilai = ');readln(nilai); CASE nilai OF 1..5:kelas:='senen'; 6..10:kelas:='selasa'; 11..15:kelas:='rabu'; 16..20:kelas:='kamis'; 21..25:kelas:='jumat'; 26..30:kelas:='sabtu'; end; writeln('hari = ',kelas); readln; end.
dan hasilnya seperti ini:

Unknown

Nemo enim ipsam voluptatem quia voluptas sit aspernatur aut odit aut fugit, sed quia consequuntur magni dolores eos qui ratione voluptatem sequi nesciunt.