Jumat, 16 Oktober 2009

Contoh Penggunaan Case..Of

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.

0 komentar:


Blogger Templates by mr.vi and Volkswagen Cars. Powered by Blogger