delphi 一个功能的思路望高人指点

来源：百度知道 编辑：UC知道 时间：2024/06/19 17:29:23
每件 20 瓶

每箱 10 件

650 瓶

650/20=32.5件 32.5/10=3.25箱

得到结果：

3箱2件10瓶

哪位高人给指点一下思路

先用总瓶数除以200取整获得箱数,之后用总瓶数减去箱数乘以200的值去除以20取整获得件数,最后用总瓶数减去箱数乘以200和减去件数乘以20的值就是剩下的瓶数

function GetResult(zp :integer):string;
var
p,x,j :integer;
begin
x := zp div 200; //箱数
j := (zp-(200*x)) div 20; //件数
p := zp - (200*x) - (j*20); //剩下的瓶数
Result := Format('%d箱%d件%d瓶',[x,j,p]);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(GetResult(650));
end;