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...