掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
2次方程式の解を求める方法がわかりません (ID：11923)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
要はやり方の問題かと思います。 判断があるということは分岐がある＝複雑化する、だと思います。 複素数ユニットを使えば、判断は不要です。 varX1 := (-varB - VarComplexSqrt(VarComplexSqr(varB)-4*varA*varC)) / (2*varA); varX2 := (-varB + VarComplexSqrt(VarComplexSqr(varB)-4*varA*varC)) / (2*varA); のみです。 各変数への代入も、 varA := VarComplexCreate(StrToFloatDef(Edit1.Text, 1.0), 0.0); というように出来ますし。 中身のしれないユニットを使うことが複雑化と考えるのであれば、正負の判断でやるほうがより簡潔ですね。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.