2.在表单中输入以下语句:SET TALK OFF CLEA INPUT"A="TO A INPUT"B="TO B INPUT"C="TO C ?"此一元二次方程为:",ALLTRIM(STR(A)),"X*X","+",ALLTRIM(STR(B)),"X","+",ALLTRIM(STR(C)),"=",0 D=B*B-4*A*C ?D P=-B/(2*A) ?P IF D<0 ?"复根!" ELSE IF D=0 ?"具有相同的根:","X1=X2=",ALLTRIM(STR(P)) ELSE D1=SQRT(D) ?D1 ?"第一个根为:","X1=",(-B+D1)/(2*A) ?"第二个根为:","X2=",(-B-D1)/(2*A) ENDIF ENDIF SET TALK ON
3.运行do x