level 7
DIV 运算要求必须是整数.
浮点数也就是实数 只能先 除法 然后对结果取整。不能整除。
2014年03月27日 01点03分
level 10
level 7
reshenteng
楼主
我自己写了两个函数，一个是整除，一个是取模，有需要的拿吧
function Devide(Beichushu, CHushu:Double): Integer;
var I:Integer
;begin
for I := 1 to 999 do
begin
if (Beichushu / (CHushu*I))>=1
then
continue
else begin
result:=I-1;
break;
end;
end;
end;
function Mode(BeiChushu, Chushu: Double): Double;
var I:Integer;
begin
for I := 1 to 999 do
begin
if (Beichushu / (CHushu*I))>=1 then
continue
else begin
result:=BeiChushu-(CHushu*(I-1));
break;
end;
end;
end;
2014年03月27日 02点03分
4
function Devide(Beichushu, CHushu:Double): Integer;
var I:Integer
;begin
for I := 1 to 999 do
begin
if (Beichushu / (CHushu*I))>=1
then
continue
else begin
result:=I-1;
break;
end;
end;
end;
function Mode(BeiChushu, Chushu: Double): Double;
var I:Integer;
begin
for I := 1 to 999 do
begin
if (Beichushu / (CHushu*I))>=1 then
continue
else begin
result:=BeiChushu-(CHushu*(I-1));
break;
end;
end;
end;
