在图中，CDEF为闭合线圈，AB为电阻丝。当滑动变阻器的滑动头向下滑动时，线圈CDEF中的感应电流在G处产生的磁感强度的方向是“·”时，电源的哪一端是正极？

求一个三角形的面积，程序时先输入三角形的一条边长，其他两边比输入的边长长1倍和2倍，求计算面积前先要检查边长是否合理。
CLEAR MEMO
INPUT”请输入三角形一边长”T0 B
[12]
”B=” ,B
[13]
D0 AREA [14]
‘三角形面积：’S1
PROCEDURE ABC &&过程ABC
IF B+B+DB+2
RETURN
ELSE
WAIT “输入的三角形边长值不合格!”
CANCEL
ENDIF
RETURN
PROCEDURE AREA SA过程AREA
[15]
SS=(X+Y+Z)/2
S1=SQRT(SS*(SS-X)*(SS-Y)*(SS-Y))
RETURN