全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1887
推到 Plurk!
推到 Facebook!

請問一個關於數值的正負值問題

答題得分者是:P.D.
BIG-ROM
初階會員


發表:94
回覆:91
積分:37
註冊:2005-04-16

發送簡訊給我
#1 引用回覆 回覆 發表時間:2005-04-21 05:39:10 IP:59.36.xxx.xxx 未訂閱
各位前輩,又要勞煩您們幫忙喔~~    請問一個關於數值的正負值問題 如何使負數變成正數?    ------------------------------ 例如: -12   直接變成 12      請問這樣可以實現嗎?該如何實現?多謝!!    寫程序——新問題會接踵而來!
hagar
版主


發表:143
回覆:4056
積分:4445
註冊:2002-04-14

發送簡訊給我
#2 引用回覆 回覆 發表時間:2005-04-21 06:44:06 IP:202.39.xxx.xxx 未訂閱
加個減號試試:
var
  i: integer;
begin
  i := 12;
  ShowMessage(IntToStr(-i));
end;
取正數或絕對值可用 Abs 這個 function -- hagar.
cashxin2002
版主


發表:231
回覆:2555
積分:1937
註冊:2003-03-28

發送簡訊給我
#3 引用回覆 回覆 發表時間:2005-04-21 09:07:16 IP:202.62.xxx.xxx 未訂閱
您好﹗    可使用取絕對值的函數ABS﹐适用于實數和整數﹐如下﹕
Var
  V1: Real;
  V2: Integer;
begin
  V1 := ABS(-9.9);
  V2 := ABS(-9);
end;
//結果V1為9.9﹐V2為9
================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================
------
忻晟
P.D.
版主


發表:603
回覆:4038
積分:3874
註冊:2006-10-31

發送簡訊給我
#4 引用回覆 回覆 發表時間:2005-04-22 09:42:36 IP:61.71.xxx.xxx 未訂閱
引言: 各位前輩,又要勞煩您們幫忙喔~~ 請問一個關於數值的正負值問題 如何使負數變成正數? ------------------------------ 例如: -12 直接變成 12 請問這樣可以實現嗎?該如何實現?多謝!! 寫程序——新問題會接踵而來!
-12 * -1 不就好了 var math1: integer; math1:= -1; -12 * math1 這樣就可以使 -12 變 12, 12變-12
系統時間:2024-05-19 19:47:06
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!