請教各位前輩 若要計算X*Y 四捨五入 後再乘以Y 要如何下公式 並把所有乘出值列在表單上 如 450*1.35=607.5 四捨五入 為 608 608*1.35=820.8 四捨五入 為 821 821*1.35=1108.35四捨五入 為1108 ............ 其中Y值為固定值

Hi the easy way try this function MCalcute(x, y : Double) : Integer; begin Result := Trunc(x * y 0.5); end; 我不是高手, 高手是正在銀幕前微笑的人.

------


我不是高手, 高手是正在銀幕前微笑的人.

要重複計算 並所有值顯示出來 如何做

您試試下列演算法看看: 參數一:X值 參數二:Y值 參數三:計算次數 procedure Calculate(X,Y: Double; i: Integer); var dCalc: Dobue; begin dCalc:=Int((x*y) 0.5); if i>0 then Calculate(dCalc,y,Dec(i)); end;