Berikut ini diberikan contoh tentang penggunaan fungsi Case Of untuk menampilkan status barang dan besar gaji serta tunjangan karyawan. Kode ini buat dengan menggunakan Delphi Console :
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var k:Char;
begin
write('Masukkan kode : ');readlN(k);
writeln;
case k of
'A','a' :Writeln('Status Istimewa');
'B','b' :Writeln('Status Baik');
'C','c' :writeln('Status cukup');
end;
readln;
end.
B. Contoh 2
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var gol : char;
gj:Longint;
tj:real;
begin
write('Masukkan golongan karyawan : ');readln(gol);
writeln;
case gol of
'A','a' : begin
gj:=450000;
tj:=0.02*gj;
end;
'B','b' : begin
gj:=650000;
tj:=0.03*gj;
end;
'C','c' : begin
gj:=900000;
tj:=0.05*gj;
end;
end;
writeln;
writeln('Gaji yang diterima adalah : ',gj);
writeln;
Writeln('Besarnya tunjangan adalah : ',tj:2:0);
readln;
end.
Jumat, 16 Oktober 2009
Contoh Penggunaan Case..Of
Diposting oleh Bonifacius Vicky I di 18.46
Langganan:
Posting Komentar (Atom)
0 komentar:
Posting Komentar