Cara Memakai Syntax Case Status

          Pada kesempatan kali ini aku akan menjelaskan,dan mencontohkan apa itu Sintax Case Status.Pertama-tama anda harus mengetahui apa itu Syntax,Syntax yakni hukum penulisan pada suatu program,kalau Case berfungsi untuk mempersingkat fungsi if.Untuk menjalankan kegiatan dengan penggunaan Case Status anda membutuhkan variabel yang tepat.Ada 2 macam variabel yang dapat dipakai untuk case yaitu variabel char dan variabel byte. Perlu diingat menjadi Programmer itu butuh proses,ini masih tahap permulaannya saja. Kaprikornus 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

kegiatan 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

kegiatan MenggunakanCasemencariGradenilai;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
status:byte;

begin
writeln('Program mencari tipe Nilai memakai 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.




Sumber http://pamsatria.blogspot.com

Share this post