program studikasus;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  pil:integer;

procedure data_diri;
var
nm:string;
t: string;
tl: integer;
begin
writeln;
writeln('---------------------- DATA DIRI----------------------');
write(' Nama                             : '); readln(nm);
write(' Tempat Lahir                     : '); readln(t);
write(' Tanggal Lahir                    : '); readln(tl);
readln;
end;

procedure jabatan;


begin
writeln(' Direktur                   : 1');
writeln(' Manager                    : 2');
writeln(' staff                      : 3');
writeln;
Writeln('-------SILAKA MASUKAN PILIHAN------------');
writeln;
write(' Masukan Pilihan             : '); readln(pil);
writeln;

end;

procedure gaji;
var
gp:integer;
t2:real;
tl2:real;
begin

if pil=1 then
begin
gp:=3000000;
t2:=2/10*gp;

end
else
if pil=2 then
begin
gp:=2500000;
t2:= 3/10*gp;


end
else
if pil=3 then
begin
gp:=1800000;
t2:=4/10*gp;


end;
tl2:=gp+t2;

writeln(' Gaji                          : ',gp);
writeln(' tunjangan                     : ',t2:4:2);
writeln(' total gaji                    : ',tl2:4:2);
readln;
end;


  {utama}
  var
  a:char;

begin
writeln('*********************** PROGRAM GAJI *****************');
a:='Y';
while a='Y' do
begin
 data_diri;

 jabatan;
 gaji;
 writeln(' -------------------PENGULANGAN-----------------');
 write(' mengulang atau tidak[Y/T] : '); readln(a);
  end;
  end.

Studi kasus Algoritma

salam super semua..
sudah lama nggak update di blog ni..
:)

oh ya kali ini saya akan share mengenai studi kasus ok langsung saja kita lihat programnya..

program STUDI_KASUS;

{$APPTYPE CONSOLE}

uses

  SysUtils;

const

  dp=50000;

var

  no,nm,alm,pil:string;

  bk,um,sb,tb,tb2:Integer;

begin

writeln('=====Aplikasi Penerimaan Siswa animashie Course=======');

writeln('======================================================');

Writeln;

Writeln('Tabel Biaya Kursus :');

Writeln('======================================================');

Writeln('=      Nama Kursus            =     Biaya   =  Kode  =');

Writeln('======================================================');

Writeln('= Kursus Aplikasi Perkantoran = Rp. 250.000 =    1   =');

Writeln('= Kursus Pemrograman Web      = Rp. 350.000 =    2   =');

Writeln('= Kursus Teknisi Komputer     = Rp. 300.000 =    3   =');

Writeln('= Kursus Pemrograman Visual   = Rp. 350.000 =    4   =');

Writeln('======================================================');

Writeln('=                 NB : Uang Pendaftaran = Rp. 50.000 =');

Writeln('======================================================');

Writeln;

Writeln('================Input Data Siswa======================');

Writeln;

write('No Reg          : '); readln(no);

write('Nama Siswa      : '); readln(nm);

write('Alamat Siswa    : '); readln(alm);

write('Pilihan Kursus  : '); readln(pil);

if pil='1' then

bk:=250000

else

if pil='2' then

bk:=350000

else

if pil='3' then

bk:=300000

else

if pil='4' then

bk:=350000;

Writeln('===================Pembayaran=========================');

writeln('Biaya Kursus    : Rp. ',bk);

Writeln('Uang Pendaftaran: Rp. ',dp);

Writeln('======================================================');

tb2:=bk+dp;

Writeln('Total Biaya     : Rp. ',tb2);

Writeln('======================================================');

write('Uang Muka       : Rp. '); readln(um);

Writeln;

if um > bk then

Writeln('Pesan Error : "Uang Muka Yang Anda Input Lebih Besar dari Biaya Kursus"')

else

begin

Writeln;

Writeln('=================Struk Pembayaran====================');

Writeln('=====================================================');

Writeln('=====Data Pribadi Siswa==============================');

Writeln('  No Reg         : ',no);

Writeln('  Nama Siswa     : ',nm);

Writeln('  Alamat Siswa   : ',alm);

Writeln('=====================================================');

Writeln('=========Pembayaran==================================');

Writeln('  Biaya Kursus   : Rp. ',bk);

Writeln('=====================================================');

Writeln('  Uang Pendaftarn: Rp. ',dp);

Writeln('  Uang Muka      : Rp. ',um);

Writeln('=====================================================');

tb:=um+dp;

Writeln('  Total Bayar    : Rp. ',tb);

sb:=bk-um;

writeln('  Sisa Bayar     : Rp. ',sb);

Writeln('=====================================================');

Writeln('=   NB : Total Bayar = Uang Pendaftaran + Uang Muka =');

Writeln('=====================================================');

end;

readln;

end.

sekian dari saya...
klo igin bertanya silakan comen,,
makasih...