求用易語言編寫解固定二次方程 4a^2-4ad-r^2=0 輸入d、r的值自動解出a

請看下圖，以及文字源碼

如果我的答案符合您的問題，請您及時采納！

.版本?2

.程序集?窗口程序集1,?,?,?a6652399原創，嚴禁抄襲，抄襲可恥

.程序集變量?萬能,?整數型

.程序集變量?d,?整數型

.程序集變量?r,?整數型

.程序集變量?a,?整數型

.程序集變量?解1,?整數型

.程序集變量?解2,?整數型

.子程序?_按鈕1_被單擊,?,?,?a6652399原創，嚴禁抄襲，抄襲可恥

d?＝?到數值?(編輯框1.內容)

r?＝?到數值?(編輯框2.內容)

a?＝?求次方?(4?×?d,?2)

萬能?＝?a?－?4?×?4?×?求次方?(r,?2)

.判斷開始?(萬能?≥?0)

'?a6652399原創，嚴禁抄襲，抄襲可恥

萬能公式?＝?求次方?(萬能,?1?÷?2)

解1?＝?(4?×?d?＋?萬能公式)?÷?8

解2?＝?(4?÷?d?－?萬能公式)?÷?8

.判斷開始?(解1?＝?解2)

標簽3.標題?＝?“a只有壹個解，為：”?＋?到文本?(解1)

.默認

標簽3.標題?＝?“a有兩個個解:”?＋?到文本?(解1)?＋?“或”?＋?到文本?(解2)

.默認

標簽3.標題?＝?“無解”