hai,,,udah lama g posting listing program,,,,, sorry coz blog nya g bisa dibuka,,,, kini qu kembali lagi.... moga bermanfaat,,,,,
:) :) :)
uses wincrt;
var
A,B,C,D,E,F,Q,REC,PES,PEST,HARI,G,TCC,TOC,SAF,TIC:REAL;
BEGIN
WRITE('PENJUALAN PERTAHUN : ');READLN(A);
WRITE('BIAYA PEMESANAN : ');READLN(B);
WRITE('BIAYA PENYIMPANAN : ');READLN(C);
WRITE('HARGA BELI : ');READLN(D);
WRITE('PERSEDIAAN : ');READLN(E);
WRITE('WAKTU KIRIM : ');READLN(F);
Q:=sqrt((2*B*A)/(C*D));
REC:=A/52;
PES:=(F*REC)+E;
PEST:=365/(A/Q);
HARI:=A/365;
G:=Q/2;
TCC:=C*D*G;
TOC:=B*(A/Q);
SAF:=C*D*E;
TIC:=TCC+TOC+SAF;
WRITELN('==================================');
WRITELN('EOQ= ',Q:12:2);
WRITELN('RECORDER POINT= ',REC:12:2);
WRITELN('PESAN ULANG= ',PES:12:2);
WRITELN('PESANAN DLM 1 TAHUN= ',PEST:12:2);
WRITELN('PEMAKAIAN PERHARI= ',HARI:12:2);
WRITELN('TCC= ',TCC:12:2);
WRITELN('TOC= ',TOC:12:2);
WRITELN('SAFETY STOCK= ',SAF:12:2);
WRITELN('TIC= ',TIC:12:2);
END.
