Question

pascal编程中的问题

输入三条边的长度，判断是否构成三角形？
条件1：三条边大于0
条件2：两边之和大于第三边

Answer 1

program wuliao;
var
a,b,c;
begin
readln(a,b,c);
if (a<=0) or (b<=0) or (c<=0) then
begin
writeln('wrong'); //单引号还是双引号我忘了
halt;
end;
if (a+b<=c) or (a+c<=b) or (b+c<=a) then
begin
writeln('wrong'); //单引号还是双引号我忘了
halt;
end;
if (abs(a-b)>=c)) or (abs(a-c)>=b) or (abs(b-c)>=a) then
begin
writeln('wrong'); //单引号还是双引号我忘了
halt;
end;
writeln('right');
end.

闲的无聊，惊讶的发现我还记得pascal的语法。。。
大概就是这样吧
细节方面自己调

Answer 2

a,b,c:integer;

if (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a) then ...

Answer 3

program jiandan;
var a,b,c:real;
begin
read(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 write('right') else write('wrong');
end.

Answer 4

program sanjiao;
var a,b,c:integer; {三角形三边}
sj:boolean; {判断是否是三角形， 是 sj:=true 不是 sj:=false}
begin
read(a,b,c);
sj:=false;
{判断是否是三角形}
if(a>0)and(b>0)and(c>0)and(a+b>c)and(a+c>b)and(b+c>a) then sj:=true;
write(sj); {输出是否}
end.

Answer 5

var a,b,c:integer;
sj:boolean;
begin
read(a,b,c);
sj:=false;
if(a>0)and(b>0)and(c>0)and(a+b>c)and(a+c>b)and(b+c>a) then sj:=true;
write(sj);
end.
或
var a,b,c:real;
begin
read(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 write('right') else write('wrong');
end.
我试过了，这两种都行。