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.