1樓：至少讓我看一眼
如果你是說負數也要取到正數的餘數？很簡單，取x的絕對值。如:
x := abs(x) mod y;
但是即使使用了絕對值。求得的餘數依然是4，當x為正整數時，餘數才能為$124。
因為當前的x超過了整數的最大值所以被錯誤的轉換為了乙個負數: -211403004。使用該負數求餘自然為-4。
如果你想要求得餘數為$124，則需要將x的型別設定為longword(無符號整數,值域為0~$ffffffff),或者int64型別的整數才能求得餘數為$124，如：
varx: longword; y: integer;
begin
x := $f3663f04;
y := $3e8;
x := x mod y;
end;
2樓：匿名使用者
不能用int的，你的x值為4083564292已經超出了int的上限2147483647
，也就是說已經溢位了，修改的話，可以將x和y都由int改為int64，它的上限為-2^63 .. 2^63
3樓：臺浦澤
var x,y:int64;
begin
x := $f3663f04;
y := $3e8;
x := x mod y;
end;
intege的範圍-2147483648 .. 2147483647 你設定的值超出了這個範圍，應該定義為int64型別。
delphi中的mod(取模)是什麼意思?
4樓：匿名使用者
如果a ÷ b = c …… d
則 a mod b = d
a div b = c
5樓：匿名使用者
就是取餘數，小學學過的。
先用100整除6，取餘數就是（100 mod 6）100 mod 6=4
10 mod 4=2
用delphi7 編寫乙個程式。任一輸入乙個整數，判斷整數的奇偶性
6樓：匿名使用者
1、使用mod判斷餘數，如果為1則為奇數，否則為偶數2、**示例如下回：
procedure tform1.btn1click(sender: tobject);
varnb : integer;
begin
nb := strtoint(edt1.text);
if (nb mod 2 = 1) thenbegin
showmessage('是奇
答數!');
endelse
begin
showmessage('是偶數!');
end;
end;
3、效果如下：
7樓：veket的小號
簡單寫點吧
procedure tform1.button1click(sender: tobject);
vara:integer;
begin
if trystrtoint(edit1.text, a) thenbegin
if a mod 2 >0 then
label1.caption := '這是個奇數'
else
label1.caption := '這是個偶數';
endelse
showmessage('請輸入整數，不要輸入字母專、標點、小數屬... ！');
end;
知道乙個數的余弦值，怎麼求角度用delphi怎麼做?謝謝
8樓：匿名使用者
use math;
vara: double;
begin
a := arccos(30);
end;
9樓：令狐安天
反余弦值的函式不叫acos，而是叫arccos啊。。。 單元也是math。
如何使用j**a語言取模,取餘？
delphi中函式返回陣列問題，delphi 函式返回值的定義問題
你定義的函式不是返回陣列型別的，只是返回乙個word 首先定義乙個陣列型別 type tarr array of integer 然後定義返回這個陣列型別的函式 function strsplit strsplit,str string tarr varstr array 1.2 of intege...
請問lua中如何取餘,請問Lua中如何取餘
和c一樣 使用 比如100 3 結果是1 和c有些不一樣的是 lua的比較方便 3.14 1 結果是0.14 可以用來取小數部分 a b a floor a b b lua 表取長運算子是什麼?如來果乙個表容量一半的元素,用源 取長度取的不對。但是對於小於容量一半的情況,表現的是對的。根據 lua ...
姓余取什麼名字好，姓余的取什麼名字好
夢琪 之桃 慕青 爾嵐 初夏 沛菡 傲珊 曼文 樂菱 惜文 香寒 新柔 語蓉 海安 夜蓉 涵柏 水桃 醉藍 語琴 從彤 傲晴 語蘭 又菱 碧彤 元霜 憐夢 紫寒 妙彤 曼易 南蓮 紫翠 雨寒 易煙 如萱 若南 尋真 曉亦 向珊 慕靈 以蕊 映易 雪柳 海雲 凝天 沛珊 寒雲 冰旋 宛兒 綠真 曉霜 ...