电脑编程的问题

From Admin 判断直角三角形

背景 Background 为了for beginngers，特设此题，^_^ 描述 Description 输入三角形的三边，判断它是否是直角三角形，是输出Yes!，不是输出No!，连三角形都不是，输出Error! 输入格式 Input Format 一行，输入3个整数 输出格式 Output Format Yes！ 或者 No！或者 Error！ （注意大小写，标点前无空格）

思路就是判断两边之和大于第三边了
如果不是那就是error
如果是 就判断 两个小边平方和是否等于第三编平方和
不知道你需要什么语言
但是思路给你了 应该对你有帮助

pascal的程序。

var a:array[1..3]of integer; i,temp:longint; begin read(a[1]); for i:=2 to 3 do begin read(a[i]); if a[i]>a[1] then begin temp:=a[i]; a[i]:=a[1]; a[1]:=temp; end; end; if a[2]+a[3]<=a[1] then writeln('Error!') else if a[2]*a[2]+a[3]*a[3]=a[1]*a[1] then writeln('Yes!') else writeln('No!'); end.

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息