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

MISS

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
坐等求解

小甲鱼

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

MISS

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

                               
登录/注册后可看大图

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

不好意思  搞错了  代码打错了   我打的是（t mod 100  mod 10）
视频中是                               （t  div100  mod 10）
  顺便问下为什么系统自动保留整数把小数忽略掉了  是有什么命令代码么？   如  4567 DIV100  =45.67
在系统中自动把67给忽略掉了！