请问在Delphi中,如何判断一个整数是奇数,还是偶数?
来源:百度知道 编辑:UC知道 时间:2024/06/26 05:19:46
在 Delphi 语言中,判断一个整数是奇数还是偶数,可以使用以下办法:
一、使用函数
delphi 语言提供了 Odd 函数专门用于检测给定表达式的奇偶性,其函数原型定义如下:
function Odd(X:Integer): boolean;
二、自己计算
根据奇偶的定义,能被 2 整除的偶数,反之就是奇数。
综合上述,给出示例代码供参考:
procedure TForm2.Button2Click(Sender: TObject);
var x: Integer;
begin
x := 1;
if Odd(x) then
ShowMessage(' x 是奇数')
else
ShowMessage(' x 是偶数');
x := 2;
if (x mod 2)=0 then
ShowMessage(' x 是偶数')
else
ShowMessage(' x 是奇数');
end;
if x mod 2=0 then write('偶数') else write('奇数');