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

請問一下如何寫一程式

答題得分者是:P.D.
rebecca0226
一般會員


發表:1
回覆:1
積分:0
註冊:2007-10-22

發送簡訊給我
#1 引用回覆 回覆 發表時間:2007-10-22 16:32:13 IP:210.69.xxx.xxx 訂閱
假設y=f(x)=x 3-6x2 11x-6,請寫一程式,可以輸入x值而得到對應的y值。
上述程式中x3是指x的三次方
6x2是指6x的二次方

另外如何讓表單於按鈕1執行時變換顏色

初次學寫程式,不太會,可否請個位高手幫幫忙。
編輯記錄
rebecca0226 重新編輯於 2007-10-22 16:41:13, 註解 無‧
P.D.
版主


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

發送簡訊給我
#2 引用回覆 回覆 發表時間:2007-10-22 21:23:55 IP:61.67.xxx.xxx 未訂閱
給你一個方向
1.開一個專案
2.系統會自動建立一個form1
3.我不打算用一堆function來做,所以用最直覺的想法
4.在form1上建置一個 edit1 及 button1 及 lable1
5.在button1 按鍵上點兩下,建立 buttononclik事件的 begin ... end 下寫程式
6.程式我不全寫出來,幾個重點
Form1.button1.ONCLICK
var xval, yval: integer; // --> 宣告兩個整數變數
begin
把 edit1.text 指定給 xval, 你必須使用 StrtoInt()函數來轉換 或 StrtoIntDef()。--> 可以將輸入的值轉變成xval
把 yval 指定給這個運算式 (xval*xval*xval) - (6 * xval *xval) (11 * xval -6); -->可以算出yval值
把 label1指定給 yval; --> 將yval結果丟回 label1, 但由於yval是integer, label1.caption是字串,所以要用到 format()轉換
.......
end;

以上重點提示,運用的函式請查書或同學或老師請教
===================引 用 rebecca0226 文 章===================
假設y=f(x)=x 3-6x2 11x-6,請寫一程式,可以輸入x值而得到對應的y值。
上述程式中x3是指x的三次方
6x2是指6x的二次方

另外如何讓表單於按鈕1執行時變換顏色

初次學寫程式,不太會,可否請個位高手幫幫忙。
編輯記錄
P.D. 重新編輯於 2007-10-23 09:24:06, 註解 無‧
P.D. 重新編輯於 2007-10-23 09:24:56, 註解 無‧
rebecca0226
一般會員


發表:1
回覆:1
積分:0
註冊:2007-10-22

發送簡訊給我
#3 引用回覆 回覆 發表時間:2007-10-23 09:02:47 IP:210.69.xxx.xxx 訂閱
感謝P.D.的回覆
我會去試試看
謝謝!
系統時間:2024-04-25 22:54:31
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!