解一元二次方程式- 明誠中學程式設計學習網 - Google Sites

Visual Basic 程式範例. 解一元二次方程式ax^2+bx+c=0，輸入係數a、b、c，求根x1、x2. 程式設計過程：. (1)定義問題è(2)分析問題è演算法設計è撰寫程式è(5)測試程式 ... 明誠中學程式設計學習網搜尋這個協作平台 首頁 VisualBASIC教學存檔及交作業方式循序結構選擇結構解一元二次方程式票價計算重複(迴圈)結構for...next繪函數圖for...next判斷質數for...next(累加、累乘)do...loop語法求最大公因數程式設計期末測驗一維陣列算全班成績二維陣列算全班成績氣泡排序法選擇排序法 appinventor設計導覽首頁ch1.簡介ch02.執行環境ch3.新建專案&介面ch4.程式測試方式ch05基礎操作5-1如何匯入專案ch06程式流程控制CH07元件介紹範例學習範例(1)：貓叫按鈕範例(2)：畫布設計範例(3)：步行計數器範例：畫動的球範例：圖片精靈測驗題104(1)程式範例檔案下載個人創作youtube教學範例網路資源 解一元二次方程式 VisualBasic程式範例 解一元二次方程式ax^2+bx+c=0，輸入係數a、b、c，求根x1、x2 程式設計過程：          (1)定義問題è(2)分析問題è演算法設計è撰寫程式è(5)測試程式        演算法是一組用來解決特定問題的有限指令或步驟。

設計演算法的方式有：敘述表示法及流程圖法兩種方式。

上述為敘述表示法， 若用流程圖表示法，如下：     (4)撰寫程式 程式碼：(1)命令按鈕command1執行公式解程式碼： PrivateSubCommand1_Click() a=Val(Text1)     '讀取文字方塊text1的文字轉換為數值,並令給變數a b=Val(Text2) c=Val(Text3)   d=b^2-4*a*c     '將右邊運算式幾算結果,令給變數d Ifd<0Then    x1="無解"           'd<0條件式成立,執行之程式區間        x2="無解" Else    x1=(-b+d^ 0.5)/(2*a)      'd<0條件式不成立,執行之程式區間    x2=(-b-d^ 0.5)/(2*a) EndIf   Text4=x1                 '輸出x1,x2變數值到文字方塊 Text5=x2 EndSub   (2)命令按鈕command2執行繪圖程式碼 PrivateSubCommand2_Click()                 Picture1.Scale(-30,30)-(30,-30)  '設定圖片盒Picture1的尺寸座標 Picture1.Line(-30,0)-(30,0)         '繪水平座標軸 Picture1.Line(0,30)-(0,-30)         '繪垂直座標軸   a=Val(Text1)     '讀取文字方塊text1的文字轉換為數值,並令給變數a b=Val(Text2) c=Val(Text3)   Fori=-30To30Step0.2              '繪製x從-30到30的函數圖形座標點        x=i y=a*x^2+b*x+c Picture1.PSet(x,y)                 'pset繪座標點(x,y) Nexti EndSub   (3)命令按鈕command3執行清除圖片盒內容之程式碼 PrivateSubCommand3_Click()                 Picture1.cls EndSub     (5)測試程式: 輸入1,-2,-3及5,2,1測試程式   延伸應用: 解二元一次聯立方程式 aX+bY=c dX+eY=f 並繪出圖形   數學解析: 若ae-db=0  則x,y無解;                   否則 x= (ce-fb)/(ae-db)   y=(af-dc)/(ae-db)     ČUpdating... ĉVisualBasic程式範例_一元2次方程式.doc(187k)GoldenSheu,2016年10月2日晚上8:14v.1ď Comments Signin|RecentSiteActivity|ReportAbuse|PrintPage|PoweredByGoogleSites