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 [...]
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); [...]
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 [...]
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. 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% [...]
