怎么判断数字是否是偶数?

怎么判断数字是否是偶数?请给出代码. 问题点数：30、回复次数：5Top

1 楼Corn1（玉米）回复于 2006-03-07 16:25:41 得分 0

if   odd(i)   then   //奇数Top

2 楼hellolongbin（一个人(自从扩充话题改版，再也不去灌水乐园了)）回复于 2006-03-07 16:30:25 得分 30

有个函数叫odd  
   
  if   not   odd(X)   thenTop

3 楼jackie186（好山好水在丽江，住进束河好来屋。）回复于 2006-03-07 16:44:12 得分 0

procedure   TForm1.Button1Click(Sender:   TObject);  
  begin  
          if   StrToInt(Edit1.Text)   mod   2=0   then  
          ShowMessage('偶数')  
          else  
          ShowMessage('奇数');  
  end;Top

4 楼woshihaoge（支离破碎）回复于 2006-03-07 16:46:42 得分 0

更简单一点的话,就  
  procedure   TForm1.Button1Click(Sender:   TObject);  
  var  
          i:integer;  
  begin  
          i:=strtoint(edit1.Text);  
          if   (i   mod   2=0)   then  
                  showmessage('是偶数')  
          else  
                  showmessage('不是偶数');  
  end;  
  mod在这里的作用就是取余数,就是除以2,如果雨数是0的话,就是偶数,反之则不是.  
   
  Top

5 楼zzq4823（高原猫）回复于 2006-03-07 17:31:24 得分 0

n   mod   2Top

相关问题

• 偶数
• 数字
• showmessage
• 奇数
• 判断数字是否
• strtoint
• odd
• mod
• button1click
• tform

• 帖主：ujjcel
• hellolongbin

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载