返回2个操作数相除的商和余数,程序通过求13/3和15/3,来演示如何计算商和余数,单击按钮即可求出结果,相关代码: 　　var 　　a,b:word; 　　begin 　　DivMod(13,3,a,b); 　　Edit1.Text:='商数：'IntToStr(a)'佘数：'IntToStr(b); 　　DivMod(15,3,a,b); 　　Edit2.Text:='商数：'IntToStr(a)'佘数：'IntToStr(b); 　　end;