Delphi 返回2个操作数相除的商和余数.rar

返回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;