高分求：程序进行测试用例设计

判定类型 有效等价类
一般三角形:((a>0)∧(b>0)∧(c>0))∧ (((a+b)>c) V ((a+c)>b) V ((b+c)>a)) (1)
非一般三角形:(a<=0 V b<=0 V c<=0) ∧(((a+b)<=c) V ((a+c)<=b) V ((b+c)<=a)) (2)
等腰三角形:(1) ∧ (a=b V a=c V b=c) (3)
非等腰三角形:(2) V (a!=b V b!=c V a!=c) (4)
等边三角形:(1) ∧ (a=b=c ) (5)
非等边三角形:(2) V (a!=b!=c) (6)

根据上表组成的测试用例：

三角形等价类测试用例
输入数据 覆盖测试用例 输出结果
a b c
3 4 5 (1) 一般三角形
0 4 5 (2) 非(一般)三角形
3 0 5 (2)
3 4 0 (2)
1 4 5 (2)
3 8 5 (2)
3 2 1 (2)
3 3 5 (3) 等腰三角形
3 4 3
3 4 4
3 4 9 (4) 非等腰三角形
3 3 3 (5) 等边三角形
-1 0 1 (6) 非等边三角形

var
a,b,c:integer;
begin
if(a=0)or(b=0)or