決策支持系統(tǒng)word版-資料下載頁
2024-08-30 18:09本頁面
【正文】 預(yù)測銷售39。).AsFloatAverageQ)*(fieldbyname(39。價格39。).AsFloatAverageP)。 f:=f+Sqr(fieldbyname(39。價格39。).AsFloatAverageP)。 next。 end。 end。 a:=e/f。 b:=AverageQa*AverageP。 VC:=strtofloat()。 //求利潤最高時價格P FC:=strtofloat()。 MC:=VC*a。 P:=(MCb)/(2*a) 。 Q:=(b+a*p)。 L:=P*Q。 AR:=LVC*QFC。 R:=FC+VC*Q。 :=floattostr(AR)。 :=floattostr(P)。 :=floattostr(Q)。 :=floattostr(R)。 end。計算成功后，最優(yōu)價格決策結(jié)果如上圖所示 //錄入銷售價格，銷售量，總銷售額，總成本，平均單位成本，產(chǎn)品總利潤 with aq2 do begin 。 ls:=0。cs:=0。 ps:=0。qs:=0。 ds:=0。rs:=0。 close。 :=39。select * from putout39。 open。 while not eof do begin nos:=fieldbyname(39。編號39。).AsString。 qs:=fieldbyname(39。銷售量Q39。).Asfloat。 ps:=fieldbyname(39。銷售價格P39。).AsFloat。 ls:=ps*qs。 cs:=qs*strtofloat()+strtofloat()。 ds:=cs/qs。 rs:=lscs。 qm:=floattostr(qs)。 pm:=floattostr(ps)。 lm:=floattostr(ls)。 cm:=floattostr(cs)。 dm:=floattostr(ds)。 rm:=floattostr(rs)。 。 。 :=39。Update putout set 總銷售額L=39。39。39。+ lm+ 39。39。39。39。+39。,總成本C=39。39。39。+ cm+ 39。39。39。39。+39。,平均單位成本d=39。39。39。+ dm+ 39。39。39。39。+39。,產(chǎn)品總利潤R=39。39。39。+ rm+ 39。39。39。39。+39。where 編號=39。39。39。+nos+39。39。39。39。 。 next。 end。 end。 end。 begin 。 :=39。select * from putout39。 :=true。 。 end。end。procedure (Sender: TObject。 var Key: Word。 Shift: TShiftState)。begin if((Key=VK_RETURN)or(Key=VK_DOWN)) then 。 //當按下回車鍵或向下箭頭時，使edit1獲得焦點end。procedure (Sender: TObject。 var Key: Word。 Shift: TShiftState)。begin if((Key=VK_RETURN)or(Key=VK_DOWN)) then 。 //當按下回車鍵或向下箭頭時，使edit2獲得焦點 if Key=VK_UP then 。 //當按下向上箭頭時，使edit9獲得焦點end。end.運行時界面清空后如下圖輸入編號、價格和與銷售量后顯示如下圖程序運行正常。五、實驗報告評語及成績（請按優(yōu)，良，中，及格，不及格五級評定） 成績： 教師簽字：
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1