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
Contoh Penggunaan Case Status dengan var Char
Varibel Status Byte
Varibel byte untuk mendeteksi penggunaan angka
Contoh Penggunaan Case Status dengan var Byte
Terima kasih telah meluangkan waktu untuk membaca,sampai jumpa dilain waktu.
Variabel Status Char
Variable char untuk mendeteksi penggunaan huruf
var
status:char;
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.
{$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;
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.
{$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.