经过优化如下:
INPUT
等边角钢 YES_NO
"是否为等边角钢"
IF 等边角钢==YES
边宽 NUMBER
"请输入角钢边宽"
ELSE
长边宽 NUMBER
"请输入角钢长边宽度"
短边宽 NUMBER
"请输入角钢短边宽度"
END IF
边厚 NUMBER
"请输入角钢边厚:"
内圆弧半径 NUMBER
"请输入角钢内圆弧半径 "
角钢长度 NUMBER
"请输入角钢长度"
END INPUT
RELATIONS
IF 等边角钢==YES
D1=边宽
D2=边宽
ELSE
D1=长边宽
D2=短边宽
ENDIF
D3=边厚
D4=内圆弧半径
D0=角钢长度
END RELATIONS