Question

解决pascal编程题

从键盘上输入三个数，把它们看成三角形三条边的长度，然后进行判断：
如果是一个等边三角形，就输出“3”
如果是一个等腰三角形，就输出“2”
如果是一个不等边三角形，就输出“1”
如果不能组成三角形，就输出“0”，

Answer 1

代码如下：

var a,b,c:integer;

begin

  readln(a,b,c);

  if not((a+b>c)and(b+c>a)and(a+c>b)) then      

  begin

    writeln('0');

    exit;

  end;                       //判断是否是三角形；

  if (a=b)and(b=c) then

  begin

    writeln('2&3');

    exit;

  end;                      //判断是否是等边三角形，等腰三角形一定是等边三角形，因此输出 2&3 ；

  if (a=b)or(b=c)or(a=c) then

  begin

    writeln('2');

    exit;

  end;                     //判断是否是等腰三角形；

  writeln('1');           //只能是不等边三角形；

end.

在附件中看一下效果吧