rotflmfwao
08-03-2007, 12:51 AM
Ugh, I searched all over for a function that tells you whether or not the number you input is even or odd. I eventualy made my own because I got tired of searching. Here it is:
Const i=10
Function Even(i:Extended):Boolean;
Var q,r:Extended;
Begin
r:=(i/2);
q:=Trunc(r);
If(SameValue(r,q))Then
Begin
Result:=True;
Exit;
End;
Result:=False;
End;
begin
ClearDebug;
If(Even(i))Then
Writeln('It is even');
If(Not(Even(i)))Then
Writeln('It''s not even');
end.
just put your # in i.
Const i=10
Function Even(i:Extended):Boolean;
Var q,r:Extended;
Begin
r:=(i/2);
q:=Trunc(r);
If(SameValue(r,q))Then
Begin
Result:=True;
Exit;
End;
Result:=False;
End;
begin
ClearDebug;
If(Even(i))Then
Writeln('It is even');
If(Not(Even(i)))Then
Writeln('It''s not even');
end.
just put your # in i.