主题：指点迷径(PASCAL)
lilyyfz
[专家分：0] 发布于 2006-03-21 16:28:00
为什么网上很多教材的习题都是一样的,有没关于这些习题的答案呢,希望各位大虾能针对这些习题集搞本习题集答案该多好啊,那我们这些初学者可就[em1][em1][em1]
不好意思还有个题目请帮忙.
1．输入三角形的三个边，判断它是何类型的三角形（等边三角形？等腰三角形？一般三角形？）。
回复列表 （共2个回复）
沙发
绿步甲 [专家分：1610] 发布于 2006-03-21 20:32:00
var
a,b,c:integer;
begin
read(a,b,c);
if (a=b)and(b=c)
then write(......)
else if (a=b)or(b=c)or(c=a)
then write(......)
else write(......);
end.
表忘了加分~~~~~~~~~~~~~~~~~~~``
板凳
贺天行宝 [专家分：2300] 发布于 2006-03-21 20:43:00
var
a,b,c:integer;
begin
read(a,b,c);
if (a=b)and(b=c)
then write(‘等边‘)
else if (a=b)or(b=c)or(c=a)
then write(‘等腰‘)
else write(‘普通‘);
end.
我来回复
您所在位置：