Sorting @pacsal

uses wincrt;
const
L: array [1..6] of integer = (07, 08, 01, 02, 04, 10);
pass:integer= 0;
nilai_diingat: integer = 0;
i:integer= 0;
label 1;

begin
for pass:= 1 to 5 do begin
nilai_diingat:= L[pass+1];
writeln(‘Nilai di ingat=’, nilai_dingat);

for i:=pass downto 1 do begin
writeln(‘test’);
if nilai_diingat< L[i] then begin
writeln(‘Sebelum digeser ‘, ‘L[i+1]=’, L[i+1], ‘ ‘, ‘L[i]=’, L[i]);
L[i+1]:=L[i];
writeln(‘Sesudah digeser ‘, ‘L[i+1]=’, L[i+1], ‘ ‘, ‘L[i]=’, L[i]);
L[i+1]:=L[i];
end else begin
{posisi sudah benar keluar dari loop}
L[i+1]:=nilai_diingat;
goto 1;
end;
end;
1:
end;
for i:=1 to 6 do begin
writeln(L[i]);
end;

end.

Tahun Kabisat

Uses Wincrt;

Var
tahun: integer;

Begin
Write (‘Masukkan angka tahun = ‘); readln(tahun);
if((tahun mod 4 = 0) and ((tahun mod 100 0) or (tahun mod 400 = 0)))
then
begin
Writeln(‘Tahun ‘,tahun, ‘ merupakan tahun kabisat’);
end
else

Writeln (‘Tahun ‘, tahun, ‘ bukan tahun kabisat’);
Writeln(‘ www.m-r1zq.co.nr@copyright2007 ‘);
Writeln(‘ o0————–o0o————–0o ‘);
End.

Script u/ Mencari Tahun kabisat.

Perhitungan Tahun Kabisat.
Uses Wincrt;

Var
tahun: integer;

Begin
Write (‘Masukkan angka tahun = ‘); readln(tahun);
if((tahun mod 4 = 0) and ((tahun mod 100 0) or (tahun mod 400 = 0)))
then
begin
Writeln(‘Tahun ‘,tahun, ‘ merupakan tahun kabisat’);
end
else

Writeln (‘Tahun ‘, tahun, ‘ bukan tahun kabisat’);
Writeln(‘ www.m-r1zq.co.nr@copyright2007 ‘);
Writeln(‘ o0————–o0o————–0o ‘);
End.

Script untuk menentukan hari berdasarkan kode …

Uses wincrt;

var
T:integer;
Begin
Writeln(‘#————————————————#’);
writeln(‘# Program Menentukan Hari Berdasarkan Kode Input #’);
writeln(‘#————————————————#’);
write(‘Masukan kode hari = ‘);readln(T);
begin
if (T=0 )or(T >7) then
writeln(‘Kode Hari yang anda input salah’);
if (T=1 ) then
writeln(‘Senin’);
if (T=2 ) then
writeln(‘Selasa’);
if (T=3 ) then
writeln(‘Rabu’);
if (T=4 ) then
writeln(‘Kamis’);
if (T=5 ) then
writeln(‘Jumat’);
if (T=6 ) then
writeln(‘Sabtu’);
if (T=7 ) then
writeln(‘Minggu’);
if (T=1 )or(T=2)or(T=3)or(T=4)or(T=5) then
writeln(‘Hari Kerja’);
if (T=6 )or(T=7) then
writeln(‘Weekend’);
Writeln(‘ www.m-r1zq.co.nr@copyright2007 ‘);
Writeln(‘o0————–o0o————–0o’);
end;
end.

Tentukan Hari.

Uses wincrt;

var
T:integer;
Begin
Writeln(‘#————————————————#’);
writeln(‘# Program Menentukan Hari Berdasarkan Kode Input #’);
writeln(‘#————————————————#’);
write(‘Masukan kode hari = ‘);readln(T);
begin
if (T=0 )or(T >7) then
writeln(‘Kode Hari yang anda input salah’);
if (T=1 ) then
writeln(‘Senin’);
if (T=2 ) then
writeln(‘Selasa’);
if (T=3 ) then
writeln(‘Rabu’);
if (T=4 ) then
writeln(‘Kamis’);
if (T=5 ) then
writeln(‘Jumat’);
if (T=6 ) then
writeln(‘Sabtu’);
if (T=7 ) then
writeln(‘Minggu’);
if (T=1 )or(T=2)or(T=3)or(T=4)or(T=5) then
writeln(‘Hari Kerja’);
if (T=6 )or(T=7) then
writeln(‘Weekend’);
Writeln(‘ www.m-r1zq.co.nr@copyright2007 ‘);
Writeln(‘o0————–o0o————–0o’);
end;
end.

Perhitungan Biaya

uses wincrt;

var
Prod2,Prod4,Prod6,Prod8,Prod10,Prod12,Prod14,Prod16,Prod18,Prod20:integer;
Prod22,Prod24,Prod26,Prod28,Prod30:integer;
Sale,J_V_Cost,F_Cost,T_Cost,Laba_Rugi:real;
Ket:string;
const
B_Variabel=87.5;
B_Fixed=5000;
S=400;
begin
writeln(‘ PERHITUNGAN BIAYA PRODUKSI BULAN MEI 2007′);
writeln(‘ PT.UNTUNG TAK MAU RUGI ‘);
writeln(‘=====================================================================’);
writeln(‘Prod Sale Jml_V_Cost F_Cost T_Cost Laba Rugi Ket ‘);
writeln(‘=====================================================================’);
Prod2:=2;
write(‘ ‘,Prod2);
Sale:=Prod2*S;
write(‘ ‘,Sale:10:2);
J_V_Cost:=Prod2*B_Variabel;
write(‘ ‘,J_V_Cost:10:2);
write(‘ ‘,B_Fixed);
T_Cost:=J_V_Cost+B_Fixed; write(‘ ‘,T_Cost:10:2);
Laba_Rugi:=Sale-T_Cost;
write(‘ ‘,Laba_Rugi:10:2);
if (Sale
writeln(‘ Rugi’);
if (Sale = T_Cost) then
writeln(‘ Inpas’);
if (Sale > T_Cost) then
writeln(‘ Untung’);

Prod4:=4;
write(‘ ‘,Prod4);
Sale:=Prod4*S;
write(‘ ‘,Sale:10:2);
J_V_Cost:=Prod4*B_Variabel;
write(‘ ‘,J_V_Cost:10:2);
write(‘ ‘,B_Fixed);
T_Cost:=J_V_Cost+B_Fixed; write(‘ ‘,T_Cost:10:2);
Laba_Rugi:=Sale-T_Cost;
write(‘ ‘,Laba_Rugi:10:2);
if (Sale
writeln(‘ Rugi’);
if (Sale = T_Cost) then
writeln(‘ Inpas’);
if (Sale > T_Cost) then
writeln(‘ Untung’);


Prod6:=6;
write(‘ ‘,Prod6);
Sale:=Prod6*S;
write(‘ ‘,Sale:10:2);
J_V_Cost:=Prod6*B_Variabel;
write(‘ ‘,J_V_Cost:10:2);
write(‘ ‘,B_Fixed);
T_Cost:=J_V_Cost+B_Fixed; write(‘ ‘,T_Cost:10:2);
Laba_Rugi:=Sale-T_Cost;
write(‘ ‘,Laba_Rugi:10:2);
if (Sale
writeln(‘ Rugi’);
if (Sale = T_Cost) then
writeln(‘ Inpas’);
if (Sale > T_Cost) then
writeln(‘ Untung’);


Prod8:=8;
write(‘ ‘,Prod8);
Sale:=Prod8*S;
write(‘ ‘,Sale:10:2);
J_V_Cost:=Prod8*B_Variabel;
write(‘ ‘,J_V_Cost:10:2);
write(‘ ‘,B_Fixed);
T_Cost:=J_V_Cost+B_Fixed; write(‘ ‘,T_Cost:10:2);
Laba_Rugi:=Sale-T_Cost;
write(‘ ‘,Laba_Rugi:10:2);
if (Sale
writeln(‘ Rugi’);
if (Sale = T_Cost) then
writeln(‘ Inpas’);
if (Sale > T_Cost) then
writeln(‘ Untung’);


Prod10:=10;
write(”,Prod10);
Sale:=Prod10*S;
write(‘ ‘,Sale:10:2);
J_V_Cost:=Prod10*B_Variabel;
write(‘ ‘,J_V_Cost:10:2);
write(‘ ‘,B_Fixed);
T_Cost:=J_V_Cost+B_Fixed; write(‘ ‘,T_Cost:10:2);
Laba_Rugi:=Sale-T_Cost;
write(‘ ‘,Laba_Rugi:10:2);
if (Sale
writeln(‘ Rugi’);
if (Sale = T_Cost) then
writeln(‘ Inpas’);
if (Sale > T_Cost) then
writeln(‘ Untung’);


Prod12:=12;
write(”,Prod12);
Sale:=Prod12*S;
write(‘ ‘,Sale:10:2);
J_V_Cost:=Prod12*B_Variabel;
write(‘ ‘,J_V_Cost:10:2);
write(‘ ‘,B_Fixed);
T_Cost:=J_V_Cost+B_Fixed; write(‘ ‘,T_Cost:10:2);
Laba_Rugi:=Sale-T_Cost;
write(‘ ‘,Laba_Rugi:10:2);
if (Sale
writeln(‘ Rugi’);
if (Sale = T_Cost) then
writeln(‘ Inpas’);
if (Sale > T_Cost) then
writeln(‘ Untung’);


Prod14:=14;
write(”,Prod14);
Sale:=Prod14*S;
write(‘ ‘,Sale:10:2);
J_V_Cost:=Prod14*B_Variabel;
write(‘ ‘,J_V_Cost:10:2);
write(‘ ‘,B_Fixed);
T_Cost:=J_V_Cost+B_Fixed; write(‘ ‘,T_Cost:10:2);
Laba_Rugi:=Sale-T_Cost;
write(‘ ‘,Laba_Rugi:10:2);
if (Sale
writeln(‘ Rugi’);
if (Sale = T_Cost) then
writeln(‘ Inpas’);
if (Sale > T_Cost) then
writeln(‘ Untung’);


Prod16:=16;
write(”,Prod16);
Sale:=Prod16*S;
write(‘ ‘,Sale:10:2);
J_V_Cost:=Prod16*B_Variabel;
write(‘ ‘,J_V_Cost:10:2);
write(‘ ‘,B_Fixed);
T_Cost:=J_V_Cost+B_Fixed; write(‘ ‘,T_Cost:10:2);
Laba_Rugi:=Sale-T_Cost;
write(‘ ‘,Laba_Rugi:10:2);
if (Sale
writeln(‘ Rugi’);
if (Sale = T_Cost) then
writeln(‘ Inpas’);
if (Sale > T_Cost) then
writeln(‘ Untung’);


Prod18:=18;
write(”,Prod18);
Sale:=Prod18*S;
write(‘ ‘,Sale:10:2);
J_V_Cost:=Prod18*B_Variabel;
write(‘ ‘,J_V_Cost:10:2);
write(‘ ‘,B_Fixed);
T_Cost:=J_V_Cost+B_Fixed; write(‘ ‘,T_Cost:10:2);
Laba_Rugi:=Sale-T_Cost;
write(‘ ‘,Laba_Rugi:10:2);
if (Sale
writeln(‘ Rugi’);
if (Sale = T_Cost) then
writeln(‘ Inpas’);
if (Sale > T_Cost) then
writeln(‘ Untung’);


Prod20:=20;
write(”,Prod20);
Sale:=Prod20*S;
write(‘ ‘,Sale:10:2);
J_V_Cost:=Prod20*B_Variabel;
write(‘ ‘,J_V_Cost:10:2);
write(‘ ‘,B_Fixed);
T_Cost:=J_V_Cost+B_Fixed; write(‘ ‘,T_Cost:10:2);
Laba_Rugi:=Sale-T_Cost;
write(‘ ‘,Laba_Rugi:10:2);
if (Sale
writeln(‘ Rugi’);
if (Sale = T_Cost) then
writeln(‘ Inpas’);
if (Sale > T_Cost) then
writeln(‘ Untung’);



Prod22:=22;
write(”,Prod22);
Sale:=Prod22*S;
write(‘ ‘,Sale:10:2);
J_V_Cost:=Prod22*B_Variabel;
write(‘ ‘,J_V_Cost:10:2);
write(‘ ‘,B_Fixed);
T_Cost:=J_V_Cost+B_Fixed; write(‘ ‘,T_Cost:10:2);
Laba_Rugi:=Sale-T_Cost;
write(‘ ‘,Laba_Rugi:10:2);
if (Sale
writeln(‘ Rugi’);
if (Sale = T_Cost) then
writeln(‘ Inpas’);
if (Sale > T_Cost) then
writeln(‘ Untung’);


Prod24:=24;
write(”,Prod24);
Sale:=Prod24*S;
write(‘ ‘,Sale:10:2);
J_V_Cost:=Prod24*B_Variabel;
write(‘ ‘,J_V_Cost:10:2);
write(‘ ‘,B_Fixed);
T_Cost:=J_V_Cost+B_Fixed; write(‘ ‘,T_Cost:10:2);
Laba_Rugi:=Sale-T_Cost;
write(‘ ‘,Laba_Rugi:10:2);
if (Sale
writeln(‘ Rugi’);
if (Sale = T_Cost) then
writeln(‘ Inpas’);
if (Sale > T_Cost) then
writeln(‘ Untung’);


Prod26:=26;
write(”,Prod26);
Sale:=Prod26*S;
write(‘ ‘,Sale:10:2);
J_V_Cost:=Prod26*B_Variabel;
write(‘ ‘,J_V_Cost:10:2);
write(‘ ‘,B_Fixed);
T_Cost:=J_V_Cost+B_Fixed; write(‘ ‘,T_Cost:10:2);
Laba_Rugi:=Sale-T_Cost;
write(‘ ‘,Laba_Rugi:10:2);
if (Sale
writeln(‘ Rugi’);
if (Sale = T_Cost) then
writeln(‘ Inpas’);
if (Sale > T_Cost) then
writeln(‘ Untung’);


Prod28:=28;
write(”,Prod28);
Sale:=Prod28*S;
write(‘ ‘,Sale:10:2);
J_V_Cost:=Prod28*B_Variabel;
write(‘ ‘,J_V_Cost:10:2);
write(‘ ‘,B_Fixed);
T_Cost:=J_V_Cost+B_Fixed; write(‘ ‘,T_Cost:10:2);
Laba_Rugi:=Sale-T_Cost;
write(‘ ‘,Laba_Rugi:10:2);
if (Sale
writeln(‘ Rugi’);
if (Sale = T_Cost) then
writeln(‘ Inpas’);
if (Sale > T_Cost) then
writeln(‘ Untung’);


Prod30:=30;
write(”,Prod30);
Sale:=Prod30*S;
write(‘ ‘,Sale:10:2);
J_V_Cost:=Prod30*B_Variabel;
write(‘ ‘,J_V_Cost:10:2);
write(‘ ‘,B_Fixed);
T_Cost:=J_V_Cost+B_Fixed; write(‘ ‘,T_Cost:10:2);
Laba_Rugi:=Sale-T_Cost;
write(‘ ‘,Laba_Rugi:10:2);
if (Sale
writeln(‘ Rugi’);
if (Sale = T_Cost) then
writeln(‘ Inpas’);
if (Sale > T_Cost) then
writeln(‘ Untung’);

Writeln(‘ www.m-r1zq.co.nr@copyright2007 ‘);
Writeln(‘ o0————–o0o————–0o ‘);


end.

Perhitungan Gaji with “case of”

uses wincrt;

var
k:string;
gol,pil,nip:integer;
Gaji_Pegawai,Lama_Pinjaman:real;
Bunga,Total_Bunga,Jumlah_Terima,Angsuran:real;
Jumlah_Pinjaman,Jumlah_Biaya:real;
begin
write(‘NIP :’);readln;
write(‘Nama Pegawai :’);readln(k);
write(‘Golongan (1/2,3) :’);readln(gol);
write(‘Gaji Pegawai :’);readln(Gaji_Pegawai);
write(‘Lama Pinjaman :’);readln(Lama_Pinjaman);

case gol of
1:begin
writeln(‘Nama Karyawan =’,k);
writeln(‘Gaji Karyawan =Rp’,Gaji_Pegawai:10:2);
Jumlah_Pinjaman:=7500000;
writeln(‘Jumlah Pinjaman (Golongan I) =Rp ‘,Jumlah_Pinjaman:10:2);
Jumlah_Biaya:=150000;
writeln(‘Jumlah Biaya =Rp ‘,Jumlah_Biaya:10:2);
writeln(‘ ———–’);
Jumlah_Terima:=Jumlah_Pinjaman-Jumlah_Biaya;
writeln(‘Jumlah Terima =Rp ‘,Jumlah_Terima:10:2);
Bunga:=8/100;
Total_Bunga:=Jumlah_Pinjaman*8/100*Lama_Pinjaman;
Angsuran:=(Jumlah_Pinjaman+Total_Bunga)/(Lama_Pinjaman*12);
writeln(‘Jumlah Angsuran =Rp ‘,Angsuran:10:2);
Writeln(‘ www.m-r1zq.co.nr@copyright2007 ‘);
Writeln(‘ o0————–o0o————–0o’);
end;

2:begin
writeln(‘Nama Karyawan =’,k);
writeln(‘Gaji Karyawan =Rp’,Gaji_Pegawai:10:2);
Jumlah_Pinjaman:=10000000;
writeln(‘Jumlah Pinjaman (Golongan II) =Rp ‘,Jumlah_Pinjaman:10:2);
Jumlah_Biaya:=250000;
writeln(‘Jumlah Biaya =Rp ‘,Jumlah_Biaya:10:2);
writeln(‘ ———–’);
Jumlah_Terima:=Jumlah_Pinjaman-Jumlah_Biaya;
writeln(‘Jumlah Terima =Rp ‘,Jumlah_Terima:10:2);
Bunga:=10/100;
Total_Bunga:=Jumlah_Pinjaman*10/100*Lama_Pinjaman;
Angsuran:=(Jumlah_Pinjaman+Total_Bunga)/(Lama_Pinjaman*12);
writeln(‘Jumlah Angsuran =Rp ‘,Angsuran:10:2);
Writeln(‘ www.m-r1zq.co.nr@copyright2007 ‘);
Writeln(‘ o0————–o0o————–0o’);
end;
3:begin
writeln(‘Nama Karyawan =’,k);
writeln(‘Gaji Karyawan =Rp’,Gaji_Pegawai:10:2);
Jumlah_Pinjaman:=12500000;
writeln(‘Jumlah Pinjaman (Golongan III)=Rp ‘,Jumlah_Pinjaman:10:2);
Jumlah_Biaya:=300000;
writeln(‘Jumlah Biaya =Rp ‘,Jumlah_Biaya:10:2);
writeln(‘ ———–’);
Jumlah_Terima:=Jumlah_Pinjaman-Jumlah_Biaya;
writeln(‘Jumlah Terima =Rp ‘,Jumlah_Terima:10:2);
Bunga:=12/100;
Total_Bunga:=Jumlah_Pinjaman*12/100*Lama_Pinjaman;
Angsuran:=(Jumlah_Pinjaman+Total_Bunga)/(Lama_Pinjaman*12);
writeln(‘Jumlah Angsuran =Rp ‘,Angsuran:10:2);
Writeln(‘ www.m-r1zq.co.nr@copyright2007 ‘);
Writeln(‘ o0————–o0o————–0o’);
end;


end;
end.

Program Sistem Adminstrasi PT.Cemerlang Indah

Script Program Sistem Adminstrasi PT.Cemerlang Indah with “Case Of”

uses wincrt;
var
pil,gol,trans,intens,bayar,piutang,keluar,masuk,ppn:integer;
tunj,total,dis,gapok:real;
ulang:char;
begin
repeat
clrscr;
writeln(‘ ———————————- ‘);
writeln(‘| PT CEMERLANG INDAH |’);
writeln(‘ ————by:rhez-qhe————— ‘);
writeln(‘SISTEM ADMINISTRASI CEMERLANG INDAH’);
writeln(’1.PEMBAYARAN GAJI’);
writeln(’2.PEMBAYARAN SUPLAYER’);
writeln(’3.PEMBAYARAN CUSTOMER’);
writeln(’4.PEMBAYARAN PPN’);
writeln(’5.KELUAR’);
write(‘Masukkan Pilihan Anda : ‘);readln(pil);
case pil of
1:begin
write(‘Masukkan golongan anda 1-4 =’);readln(gol);
case gol of
1:begin
writeln(‘Pembayaran Gaji Berdasarkan golongan 1′);
gapok:=1500000;
tunj:=0.1*gapok;
trans:=25000;
intens:=15000;
total:=gapok+tunj+trans+intens;
writeln(‘Gaji Pokok =Rp ‘,gapok:8:2);
writeln(‘Tunjangan =Rp ‘,tunj:8:2);
writeln(‘Transport =Rp ‘,trans,’.00′);
writeln(‘intensiv/jam =Rp ‘,intens,’.00′);
writeln(‘Total Gaji =Rp ‘,total:8:2);

end;

2:begin
writeln(‘Pembayaran Gaji Berdasarkan golongan 2′);
gapok:=1250000;
tunj:=0.1*gapok;
trans:=22500;
intens:=15000;
total:=gapok+tunj+trans+intens;
writeln(‘Gaji Pokok =Rp ‘,gapok:8:2);
writeln(‘Tunjangan =Rp ‘,tunj:8:2);
writeln(‘Transport =Rp ‘,trans,’.00′);
writeln(‘intensiv/jam =Rp ‘,intens,’.00′);
writeln(‘Total Gaji =Rp ‘,total:8:2);
end;

3:begin
writeln(‘Pembayaran Gaji Berdasarkan golongan 3′);
gapok:=1125000;
tunj:=0.1*gapok;
trans:=20000;
intens:=12500;
total:=gapok+tunj+trans+intens;
writeln(‘Gaji Pokok =Rp ‘,gapok:8:2);
writeln(‘Tunjangan =Rp ‘,tunj:8:2);
writeln(‘Transport =Rp ‘,trans,’.00′);
writeln(‘intensiv/jam =Rp ‘,intens,’.00′);
writeln(‘Total Gaji =Rp ‘,total:8:2);
end;

4:begin
writeln(‘Pembayaran Gaji Berdasarkan golongan 4′);
gapok:=1000000;
tunj:=0.1*gapok;
trans:=17500;
intens:=12500;
total:=gapok+tunj+trans+intens;
writeln(‘Gaji Pokok =Rp ‘,gapok:8:2);
writeln(‘Tunjangan =Rp ‘,tunj:8:2);
writeln(‘Transport =Rp ‘,trans,’.00′);
writeln(‘intensiv/jam =Rp ‘,intens,’.00′);
writeln(‘Total Gaji =Rp ‘,total:8:2);
end;
end;
end;
2:begin
writeln(‘Pembayaran Supplier’);
writeln(‘Type Pembayaran’);
writeln(’1.Tunai ‘);
writeln(’2.Kredit 1 bulan’);
writeln(’3.Kredit 3 bulan’);
write(‘Masukkan Type Pembayaran: ‘);readln(bayar);
case bayar of

1:begin
write(‘Jumlah Piutang =Rp ‘);readln(piutang);
dis:=0.1*piutang;
total:=piutang-dis;
writeln(‘Potongan =Rp ‘,dis:8:2);
writeln(‘Jumlah yang harus dibayar=Rp ‘,total:8:2);
end;

2:begin
write(‘Jumlah Piutang =Rp ‘);readln(piutang);
dis:=0.05*piutang;
total:=piutang-dis;
writeln(‘Potongan =Rp ‘,dis:8:2);
writeln(‘Jumlah yang harus dibayar=Rp ‘,total:8:2);
end;

3:begin
write(‘Jumlah Piutang =Rp ‘);readln(piutang);
writeln(‘Potongan =Anda tidak mendapatkan potongan’);
writeln(‘Jumlah yang harus dibayar=Rp ‘,piutang,’.00′);
end;
end;
end;

3:begin
writeln(‘Pembayaran Customer’);
writeln(‘Type Pembayaran’);
writeln(’1.Tunai ‘);
writeln(’2.Kredit’);
write(‘Masukkan Type Pembayaran: ‘);readln(bayar);
case bayar of
1:begin
write(‘Jumlah Pembayaran =Rp’);readln(bayar);
dis:=0.1*bayar;
total:=bayar-dis;
writeln(‘Potongan =Rp ‘,dis:8:2);
writeln(‘Jumlah yang harus dibayar=Rp ‘,total:8:2);
end;

2:begin
write(‘Jumlah Pembayaran =Rp ‘);readln(bayar);
writeln(‘Potongan = Anda Tidak Mendapat Potongan’);
writeln(‘Jumlah yang harus dibayar=Rp ‘,bayar,’.00′);
end;
end;
end;

4:begin
writeln(‘Pembayaran PPN’);
write(‘PPN Keluar =Rp ‘);readln(keluar);
write(‘PPN Masuk =Rp ‘);readln(masuk);
ppn:=keluar-masuk;
writeln(‘PPN yang harus dibayar=Rp ‘,ppn,’.00′);
end;


5:begin
writeln(‘TERIMAKASIH ANDA TELAH MENGGUNAKAN SISTEM INI’);
Writeln(‘ www.m-r1zq.co.nr@copyright2007 ‘);
Writeln(‘ o0————–o0o————–0o’);
halt;
end;


end;
write(‘Kembali ke menu utama (Y/N)= ‘);readln(ulang);
until (ulang=’N') or (ulang=’n');
writeln(‘TERIMAKASIH ANDA TELAH MENGGUNAKAN SISTEM INI’);
Writeln(‘ www.m-r1zq.co.nr@copyright2007 ‘);
Writeln(‘ o0————–o0o————–0o’);
end.

Script untuk mencari Volume Balok.

Script untuk mencari Volume Balok.

uses wincrt;
var
p,l,t,v:integer;
begin
Writeln(‘——————————-’);
writeln(‘Program Menghitung Volume Balok’);
writeln(‘———by: rhez-qhe—————’);
write(‘Masukkan Panjang Balok= ‘);read(p);
write(‘Masukkan Lebar Balok= ‘);read(l);
write(‘Masukkan Tinggi Balok= ‘);read(t);
v:=p*l*t;
writeln(‘Volume balok adalah = ‘,v);
write(‘——-mision completed——–’);

end.

Script untuk mencari data dan menghitung Gaji.

Script untuk mencari data dan menghitung Gaji.

uses wincrt;

var
nik,nama,jabatan:string;
intens:real;
gj_pkk,tunj,tunj_jab,ttl_gj,iuran_jamsos,sub_ttl,pph,gj_bersih:real;

begin
writeln(‘******************************’);
writeln(‘* SLIP GAJI BULAN APRIL 2007 *’);
writeln(‘* PT. SABAR MENANTI *’);
writeln(‘******************************’);
writeln;
writeln;
write(‘NIK :’);
readln(nik);
write(‘NAMA :’);
readln(nama);
write(‘Jabatan :’);
readln(jabatan);

writeln;
writeln;

write(‘Gaji Pokok Rp ‘);
readln(gj_pkk);
writeln;
intens:=(gj_pkk/72)*15;
writeln(‘Intensive 15 jam Rp’,intens:10:2);

tunj:=intens*15/100;
writeln(‘Tunjangan 15% Rp’,tunj:10:2);

tunj_jab:=intens*20/100;
writeln(‘Tunjangan Jab. 20% Rp’,tunj_jab:10:2);
writeln(‘ _____________’);

ttl_gj:=gj_pkk+intens+tunj+tunj_jab;
writeln(‘ Total Gaji Rp’,ttl_gj:10:2);

iuran_jamsos:=ttl_gj*5/100;
writeln(‘Iuran Jamsostekt 5% Rp’,iuran_jamsos:10:2);
writeln(‘ ____________’);

sub_ttl:=ttl_gj-iuran_jamsos;
writeln(‘Sub Total Rp’,sub_ttl:10:2);
pph:=5/100*sub_ttl;
writeln(‘PPH 5% Rp’,pph:10:2);
writeln(‘ ____________’);
gj_bersih:=pph+sub_ttl;
writeln(‘Gaji Bersih Rp’,gj_bersih:10:2);
end.