MISS 发表于 2012-2-13 19:31:50

(mod 100 mod 10)余数算法问题 求解 视频第三节

procedure TForm1.Button2Click(Sender: TObject);
var
t:Integer;
begin
    t:=StrToInt(Edit1 .Text );
   label2.Caption:= IntToStr(t mod 100 mod 10);
end;
也就是说如果t是4567 那么（t mod 100 mod 10）;
的结果是6
但是不明白的就是这里
本人数学不太好不要笑话
（t mod 100 mod 10）;   可不可以理解为4567除以一百的余数是7    再除以10的余数是6
但是我心算4567除以100的余数是67   再除以10的余数还是7啊不明白不明白！
求解
4567除以100=45.67余数67         67再除以10=6.7   余数是7
坐等求解

小甲鱼 发表于 2012-2-13 19:31:51

麻烦朋友截图下详细代码，多次尝试结果仍然是7丫

MISS 发表于 2012-2-13 20:05:39

小甲鱼 发表于 2012-2-13 19:52 static/image/common/back.gif
麻烦朋友截图下详细代码，多次尝试结果仍然是7丫

不好意思搞错了代码打错了   我打的是（t mod 100mod 10）
视频中是                               （tdiv100mod 10）
顺便问下为什么系统自动保留整数把小数忽略掉了是有什么命令代码么？   如4567 DIV100=45.67
在系统中自动把67给忽略掉了！
页: [1]
查看完整版本: (mod 100 mod 10)余数算法问题 求解 视频第三节