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

Memo運算問題

答題得分者是:herbert2
sirins78903
一般會員


發表:2
回覆:1
積分:0
註冊:2011-11-16

發送簡訊給我
#1 引用回覆 回覆 發表時間:2011-11-16 23:45:22 IP:125.230.xxx.xxx 訂閱
Memo2->Lines->LoadFromFile("C:\\111.txt");
int i,q;

i=StrToFloat(InputBox("個數","請輸入個數 :",""));
q=StrToFloat(InputBox("規範值","請輸入規範值 :",""));


for(int j=0;j{
if(Memo2->Lines->Strings[j]>q )
{
Memo2->Lines->Strings[j]=Memo2->Lines->Strings[j]-q;
}
else if ((Memo2->Lines->Strings[j])<-q )
{
Memo2->Lines->Strings[j]=Memo2->Lines->Strings[j]-(-q);
}
else
{
Memo2->Lines->Strings[j]=0 ;


各位大大我先提出我遇到的問題
這語言目的是要把清單(111.txt) 的i個數值 (個數)
如果不在 ±q(規範值)內就取差值,如果在規範內則顯示0

看似很簡單的我卻遇到難題了
1.當值為10(含)以上時就不會執行運算
2.相反的,負值需為-10(含)以上才會運算
3.如果-(-q)改成 q的話.... 理應是-9 2(設q為2)的值輸出竟然變成-92...
不知道是什麼原因~"~
請各位新進提攜!!
謝謝

看不懂可以跟我說!!

以下111.txt內的10個值(箭頭後為執行程式後想要的值)

-10 --->-8
-5 --->-3
-2 --->0
-1 --->0
1 --->0
1.5 --->0
2 --->0
4 --->2
3.5 --->1.5
10 --->8
附加檔案:4ec3da920edf7_111.txt
herbert2
尊榮會員


發表:58
回覆:640
積分:894
註冊:2004-04-16

發送簡訊給我
#2 引用回覆 回覆 發表時間:2011-11-22 00:02:30 IP:202.39.xxx.xxx 訂閱
請試一下是否合您需求:

[code cpp]
Memo2->Lines->LoadFromFile("C:\\111.txt");
// int i,q;
int i;
double q,n;
String sq;

// i=StrToFloat(InputBox("個數","請輸入個數 :",""));
// q=StrToFloat(InputBox("規範值","請輸入規範值 :",""));
i = Memo2->Lines->Count;
sq = InputBox("規範值","請輸入規範值 :","");
try {
q = StrToDouble(sq);
}
catch (...) {
q = 0.0;
}
if (q < 0.0) q *= -1; // 轉正數
for (int j = 0; j < i; j ) {
try {
n = StrToDouble(Memo2->Lines->Strings[j]);
}
catch (...) {
n = 0.0;
}
// if (Memo2->Lines->Strings[j]>q)
if (n > q ) {
// Memo2->Lines->Strings[j]=Memo2->Lines->Strings[j]-q;
Memo2->Lines->Strings[j] = FloatToStr(n - q);
}
// else if ((Memo2->Lines->Strings[j])<-q )
else if (n < -q) {
// Memo2->Lines->Strings[j]=Memo2->Lines->Strings[j]-(-q);
Memo2->Lines->Strings[j] = FloatToStr(n q);
}
else {
// Memo2->Lines->Strings[j] = 0;
Memo2->Lines->Strings[j] = "0";
}
}
[/code]

編輯記錄
herbert2 重新編輯於 2011-11-21 09:04:05, 註解 無‧
sirins78903
一般會員


發表:2
回覆:1
積分:0
註冊:2011-11-16

發送簡訊給我
#3 引用回覆 回覆 發表時間:2011-11-23 17:32:11 IP:125.230.xxx.xxx 訂閱
成功得到我想要的內容了^^
謝謝先進指導。
herbert2
尊榮會員


發表:58
回覆:640
積分:894
註冊:2004-04-16

發送簡訊給我
#4 引用回覆 回覆 發表時間:2011-11-28 11:32:28 IP:202.39.xxx.xxx 訂閱
甭客氣! 不過, 問題既已解決, 請務必結案!

===================引 用 sirins78903 文 章===================
成功得到我想要的內容了^^
謝謝先進指導。
系統時間:2024-11-21 22:46:33
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!