1．输入三角形的三个边,判断它是何类型的三角形（等边三角形?等腰三角形?一般三角形?）.关于Pascal语言--信息学奥赛
来源：学生作业帮助网 编辑：六六作业网 时间：2024/12/19 13:43:51
1．输入三角形的三个边,判断它是何类型的三角形（等边三角形?等腰三角形?一般三角形?）.关于Pascal语言--信息学奥赛
1．输入三角形的三个边,判断它是何类型的三角形（等边三角形?等腰三角形?一般三角形?）.
关于Pascal语言--信息学奥赛
1．输入三角形的三个边,判断它是何类型的三角形（等边三角形?等腰三角形?一般三角形?）.关于Pascal语言--信息学奥赛
Pascal语言不太了解.用c#给你写一个吧.反正逻辑都一样,基本语法也差不多.
public string caculate(int a,int b,int c){
if (a
理解了各种三角形的定义自然就能区分了
var a,b,c:longint;
begin
readln(a,b,c);
if (a=b)and(b=c) then writeln('等边三角形') else
if (a=b)or(b=c)or(a=c) then writeln('等腰三角形') else
writeln('普通三角形');
end.
program sjx1;
var a,b,c:integer;
begin
readln(a,b,c);
if (a=b)and(b=c) then writeln('等边三角形') else
if (a=b)or(b=c)or(a=c) then writeln('等腰三角形') else
writeln('普通三角形');
end.
var a,b,c:longint;
begin
readln(a,b,c);
if (a+b>c)and(a+c>b)and(b+c>a) then begin {判断任意两边之和是否等于第三边，否则不是三角形！}
if (a=b)and(b=c) then writeln('等边三角形');
if (a=b)or(b=c)or(a=c) then ...
全部展开
var a,b,c:longint;
begin
readln(a,b,c);
if (a+b>c)and(a+c>b)and(b+c>a) then begin {判断任意两边之和是否等于第三边，否则不是三角形！}
if (a=b)and(b=c) then writeln('等边三角形');
if (a=b)or(b=c)or(a=c) then writeln('等腰三角形')else
writeln('普通三角形');
end else writeln('不是三角形');
end.
怎么上面的人都漏了最关键的一步啊！
要判断是否三角形啊！
收起