(来学网)有程序：DATA A，B，C／4．0，-8．0，3．0／
P=B*B-4*A*C
IF(P．GE．0．0)THEN
S=(-B+SQRT(P))／(2*A)
T=C／(A*S)
P=(S+T)／2
ELSE
S=0
T=0
ENDIF
WRITE(*，*)P
END
执行此程序，则运行的结果是：