教えて下さい

質問

二次方程式　x^2＋2x＋ｃ（ｃは実数）の解を求めるプログラム。

回答No.4

todo36 · ベストアンサー

VBの問題というより数学の問題でしょう。

Private Sub Solve(ByVal c As Double)
If (c < 1) Then
MsgBox (-1 + Sqr(1 - c)) & " と " & (-1 - Sqr(1 - c))
ElseIf (c = 1) Then
MsgBox -1
Else
MsgBox "-1+" & Sqr(c - 1) & "i" & " と -1-" & Sqr(c - 1) & "i"
End If
End Sub

Private Sub Command1_Click()
Solve Text1
End Sub

お礼

ありがとうございましたm(_ _)m

回答No.5

imogasi

この問題の解き方に（１）根の公式に数値を当てはめて解く方法
のほかに（２）ニュートン法（接線がX軸と交わる点の接線を順に
たどる方法）（３）反復法（値を代入して、計算を繰り返し収束値
たる根を計算する方法（４）その他があると思う。小生は文科
系人間で（３）はあいまい、（４）は思い出せない。
（１）しか解答が出ないのはさびしい。現役の理数系学生サンも
沢山ご覧になっているのでしょうから、コンピュターの数値解析への応用の一端でも示してもらって、日本の今後を担う若い人を鼓舞されては。

回答No.3

honiyon

こんにちは、honiyonです。

　　連続ですいません（．．

http://www.geisya.or.jp/~mwm48961/math/2eq05.htm

　　　元の二次方程式は一定のようなので、解を求める式をプログラムで計算する必要はないですよね。
　　　ということは、上記URLを参考にし、解を求める式を自分で導き出し、その式に従って計算するだけのプログラムで良いので楽勝だと思います。

　　　参考になれば幸いです（．．

#二次方程式なんてもう４，５年やってないので間違えていたらスイマセン...

回答No.2

honiyon

こんにちは、honiyonです。

　　すいません、質問の意図を誤解していました。
　　下記の補足要求は無視してください。

　　すいませんでした（．．

回答No.1

honiyon

こんにちは、honiyonです。

　　それを解決するには、二乗計算を行う方法と、足し算、かけ算を行う方法を知る必要がありますね。
　　それって基本中の基本だと思うのですが、その程度の事も自分で調べる事は出来ないのでしょうか？