回 帖 发 新 帖 刷新版面

主题:三角形

输入三角形的三边,判断他是和类型的三角形(等边三角形?等腰三角形?一般三角形?)。

回复列表 (共1个回复)

沙发

说明:里面全是拼音.
var a,b,c:real;
begin
  readln(a,b,c);
  if (a+b<=c) or (a+c<=b) or (b+c<=a) then write('BuShi')
   else if (a=b) and (a=c) then write('DengBian')
   else if (a=b) or (b=c) or (c=a) then write('DengYao');
  if (abs(sqr(a)+sqr(b)-sqr(c))<(1E-5)*c) or
     (abs(sqr(b)+sqr(c)-sqr(a))<(1E-5)*a) or
     (abs(sqr(c)+sqr(a)-sqr(b))<(1E-5)*b)
  then write('ZhiJiao');
  write('SanJiaoXing');
  readln;
end.

我来回复

您尚未登录,请登录后再回复。点此登录或注册