Cara menggunakan Syntax Case Status

          Pada kesempatan kali ini saya akan menjelaskan,dan mencontohkan apa itu Sintax Case Status.Pertama-tama anda harus mengetahui apa itu Syntax,Syntax adalah aturan penulisan pada suatu program,kalau Case berfungsi untuk mempersingkat fungsi if.Untuk menjalankan program dengan penggunaan Case Status anda membutuhkan variabel yang tepat.Ada 2 macam variabel yang bisa digunakan untuk case yaitu variabel char dan variabel byte. Perlu diingat menjadi Programmer itu butuh proses,ini masih tahap permulaannya saja. Jadi tetaplah semangat belajar,terus mencoba,dan terus berkreasi. Saya akan membagikan sytax codingnya dihalaman yang berwarna biru dan cobalah pelajari.



Variabel Status Char
Variable char untuk mendeteksi penggunaan huruf
var
status:char;


Contoh Penggunaan Case Status dengan var Char
program MencariTipePegawai;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
status:char;

begin
writeln('Masukan tipe pegawai (T/H) :');readln(status);
case status of
   'T','t':
    begin
   writeln('Status Pegawai Tetap')
    end;
end;
case status of
   'H','h':
    begin
   writeln('Status Pegawai Honorer')
    end;
end;
readln;
end.


Varibel Status Byte
Varibel byte untuk mendeteksi penggunaan angka
var
status:byte;


Contoh Penggunaan Case Status dengan var Byte
program MenggunakanCasemencariGradenilai;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
status:byte;

begin
writeln('Program mencari tipe Nilai menggunakan Case Status');
writeln(' ');
writeln('Masukan Nilai anda :');readln(status);
case status of
   1..30:
    begin
   writeln('Nilai anda termasuk Grade E')
    end;
end;
case status of
   31..40:
    begin
   writeln('Nilai anda termasuk Grade D')
    end;
end;
case status of
   41..69:
    begin
   writeln('Nilai anda termasuk Grade C')
    end;
 end;
case status of
   70..85:
    begin
   writeln('Nilai anda termasuk Grade B')
    end;
end;
case status of
   86..100:
    begin
   writeln('Nilai anda termasuk Grade A')
    end;
end;
readln;
end.


Terima kasih telah meluangkan waktu untuk membaca,sampai jumpa dilain waktu.



Previous
Next Post »