求一个三角形的面积，程序时先输入三角形的一条边长，其他两边比输入的边长长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