灵鹊做题网想要编写一个Pascal程序,
来源：学生作业帮 编辑：灵鹊做题网作业帮 分类：综合作业 时间：2024/04/30 07:49:14
想要编写一个Pascal程序,
三条直线段的长度是整数.用着三条直线段是否能构成一个三角形?分可以、可以构成直角三角形、不可以的三种情况讨论.
三条直线段的长度是整数.用着三条直线段是否能构成一个三角形?分可以、可以构成直角三角形、不可以的三种情况讨论.
program a4;
var a,b,c:integer;
begin
readln(a,b,c);
if (((a>0) and (b>0) and (c>0))and((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('can form a right triangle')
else writeln('can form a triangle')
else writeln('can not form a triange');
readln;
end.
再问： if 的那句能不能写得清楚一点啊，我是初学者，有点看不懂。
再答： 就是几个括号啊 if (((a>0) and (b>0) and (c>0))and((a+b>c) and (a+c>b) and (b+c>a))) then 如果 (a>0) and (b>0) and (c>0) 第1部分条件 and((a+b>c) and (a+c>b) and (b+c>a)）第二部分条件，然后来个总括号是if必须的
var a,b,c:integer;
begin
readln(a,b,c);
if (((a>0) and (b>0) and (c>0))and((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('can form a right triangle')
else writeln('can form a triangle')
else writeln('can not form a triange');
readln;
end.
再问： if 的那句能不能写得清楚一点啊，我是初学者，有点看不懂。
再答： 就是几个括号啊 if (((a>0) and (b>0) and (c>0))and((a+b>c) and (a+c>b) and (b+c>a))) then 如果 (a>0) and (b>0) and (c>0) 第1部分条件 and((a+b>c) and (a+c>b) and (b+c>a)）第二部分条件，然后来个总括号是if必须的