Question

pascal以下的有何问题？具体点。。。（判断三角形的）

program panduansjiao;
var a,b,c:real;
begin
write('a=');readln(a);
write('b=');readln(b);
write('c=');readln(c);
if a+b>c and a+c>b and b+c>a
then
if a*a+b*b=c*c or a*a+c*c=b*b or b*b+c*c=a*a
then
writeln('zhijiaosanjiaoxing')
else
if a*a+b*b>c*c or a*a+c*c>b*b or b*b+c*c>a*a
then writeln('rijiaosanjiaoxing')
else writeln('dunjiaosanjiaoxing')
else writeln('bushisanjiaoxing');
end.

Answer 1

这三个判断句有问题。

每一个语句两边都应用括号括起来，以第一个为例：

if a+b>c and a+c>b and b+c>a

应写成：

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