發表新討論
#8652: 不知為何NA(80%) Pascal


hoou8547 (<巴里得)-刃)

學校 : 澳門濠江中學
編號 : 39063
來源 : [183.172.186.216]
最後登入時間 ：
2016-12-17 16:33:30
d507. 三角形的判斷 -- 板橋高中教學題 | From: [202.86.136.162] | 發表日期 : 2014-02-27 17:48

Pascal的~

兩個測資都是把right輸成了acute~

求助~感謝~

var a,b,c,t:longint;

procedure swap(var a,b:longint);
var t:longint;
begin
  t:=a;
  a:=b;
  b:=t;
end;

begin
  readln(a,b,c);
  if a>c then swap(a,b);
  if b>c then swap(b,c);
  if (sqr(b)+sqr(a)-sqr(c))>0 then writeln('acute triangle')
  else if (sqr(b)+sqr(a)-sqr(c))<0 then writeln('obtuse triangle')
  else writeln('right triangle');
end.

 
#9100: Re:不知為何NA(80%) Pascal


yywyh (华育王元鸿)

學校 : 上海市娄山中学
編號 : 40513
來源 : [58.37.55.65]
最後登入時間 ：
2018-11-24 09:17:11
d507. 三角形的判斷 -- 板橋高中教學題 | From: [222.66.36.254] | 發表日期 : 2014-08-21 15:52

var a,b,c,t:longint;

procedure swap(var a,b:longint);
var t:longint;
begin
  t:=a;
  a:=b;
  b:=t;
end;

begin
  readln(a,b,c);
  if a>b then swap(a,b);
  if b>c then swap(b,c);
  if a>b then swap(a,b)
  if (sqr(b)+sqr(a)-sqr(c))>0 then writeln('acute triangle')
  else if (sqr(b)+sqr(a)-sqr(c))<0 then writeln('obtuse triangle')
  else writeln('right triangle');
end.


 
ZeroJudge Forum